Unterverzeichnisnamen im Array
23.07.2003 15:14:04
Dirk
Mit der folgenden Funktion ("FileArray", stammt von Hans) erzeugt man eine Array mit den Namen von Word-Dateien im Ordner "Eigene Dateien". Wie kann ich ein´Array erzeugen mit den Namen aller UnterOrdner, die in "Eignen Dateien" vorhanden sind? Wäre für Hilfe sehr dankbar! :)
Sub Verschieben()
Dim arrFiles As Variant
...
arrFiles = FileArray("c:\eigene Dateien", "*.doc")
...
End Sub
Private Function FileArray(sPath As String, sPattern As String)
Dim arrFiles()
Dim iCounter As Integer
Dim sFile As String
If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
sFile = Dir(sPath & sPattern)
Do While sFile <> ""
iCounter = iCounter + 1
ReDim Preserve arrFiles(1 To iCounter)
arrFiles(iCounter) = sFile
sFile = Dir()
Loop
FileArray = arrFiles
End Function