[ vb6] Leggere contenuto di una cartella

[sanny82]

Come posso fare per leggere i file contenuti in una cartella?

grazie mille

[sanny82]

Nessuno può darmi una mano?

Non c'è un modo per poter leggere uno alla volta il nome dei file contenuti in una cartella?

Aiuto!!!!
Grazie

[MMarzia]

Dim strFile As String

  strFile = Dir("PercorsoCartella")
  Do Until Len(strFile) = 0
    MsgBox strFile
    strFile = Dir()
  Loop

[sanny82]

Ciao, ho provato a inserire il codice nel mio programma dando il percorso di una cartella con dentro tre file ma non restituisce nessun valore...

Grazie ancora

[MMarzia]

Private Sub Form_Load()
Dim file() As String
   file() = Elencafile("c:\")
End Sub

Private Function Elencafile(sDirectory As String) As String()
'elenca i file in una directory
'il primo elemento dell'array restituito è vuoto
Dim files() As String
Dim stemp As String
    ReDim files(0)
    stemp = Dir$(sDirectory)
    Do Until stemp = ""
        If stemp <> "." And stemp <> ".." And GetAttr(sDirectory & stemp) <> vbDirectory Then
            ReDim Preserve files(UBound(files) + 1)
            files(UBound(files)) = stemp
        End If
        stemp = Dir()
            
    Loop
    Elencafile = files
End Function

[sanny82]

Ho provato ma mi salta il tutto perchè

stemp = Dir$(sDirectory)

questo risulta uguale a vuoto, ma non è vero ci sono dentro tre pdf...

Grazie ancora per l'aiuto

[sanny82]

Scusa và benissimo è stato un errore mio non ho messo alla fine del nome della cartella "\".
E' perfetto grazie mille

[sanny82]

Scusa se ti disturbo ancora...

E se volessi fare il controllo sull'esistenza del file su un'altra cartella non lo posso fare vero?
Perche se no dopo quando faccio lo "stemp" prende il nome della nuova cartella giusto? Come posso fare allora?

Grazie ancora

[sanny82]

Ho risolto mettendo un array...
e dopo il loop facendo il controllo sull'esistenza del file.

[sanny82]

Scusami ma non lo trovavo più...

Per vedere se una cartella esiste o no come posso fare?
Grazie