vb6 Dateinamen auslesen

30/08/2007 - 10:31 von mromica | Report spam
Hallo NG,

wie kann mann mit vb6 aus einem ordner C:\TEST alle Dateinamen die
die Endung bla haben (name.bla) ein eine Feldvariabile Name(100)
einlesen.
danke mromica
 

Lesen sie die antworten

#1 Norbert Schiller
30/08/2007 - 12:04 | Warnen spam
Hallo mromica,

wie kann mann mit vb6 aus einem ordner C:\TEST alle Dateinamen die
die Endung bla haben (name.bla) ein eine Feldvariabile Name(100)
einlesen.





Z.Bsp. so:


Private Sub Command1_Click()
Dim NAME As Variant, j%
Const folder$ = "C:\Test\"

NAME= GetAllFiles4Folder(folder$, "gif")

End Sub

Private Function GetAllFiles4Folder(ByRef pFolder As String, ByRef pEndung
As String) As Variant
Dim Name1$, arr$(), j%, ret&

ReDim arr(0)

If len(trim(pfolder))=0 then exit function
If InStr(1, UCase(pFolder), "SYSTEM VOLUME INFORMATION") Then Exit Function

Name1 = Dir(pFolder, vbNormal + vbSystem + vbHidden)

Do While Name1 <> ""
If Name1 <> "." And Name1 <> ".." And Name1 <> "pagefile.sys" And _
UCase(VBA.Right$(Name1, 3)) = UCase(pEndung) Then
ret = GetAttr(pFolder & Name1)
If ret <> vbDirectory Then
j = j + 1
ReDim Preserve arr(j)
arr(j) = Name1
End If
End If
Name1 = Dir
Loop

GetAllFiles4Folder = arr

End Function


Gruß, Norbert
[]

Ähnliche fragen