Ordner Suche
26.09.2005 15:39:54
Fuger
Leider komme ich schon wieder nicht weter mit VBA!
Ich bräuchte jemanden der mir den folgenden Code so umschreibt, dass ich nicht nach Files sondern nach Ordnern suche und in der ListBox1 aufliste.
Private Sub CommandButton2_Click()
Me.ListBox1.List = FileArray(Me.TextBox1.Text)
End Sub
Private Sub UserForm_Initialize()
'Pfad anpassen !!!
'lstFiles.List = FileArray("c:\Gelieferte Positionen\", "*.xls")
Me.ListBox1.List = FileArray("C:\Gelieferte Positionen\", "*.*")
End Sub
Function FileArray(strPath As String, strPattern As String)
Dim arrDateien()
Dim intCounter As Integer
Dim strDatei As String
If Right(strPath, 1) "\" Then strPath = strPath & "\"
strDatei = Dir(strPath & strPattern)
Do While strDatei ""
intCounter = intCounter + 1
ReDim Preserve arrDateien(1 To intCounter)
arrDateien(intCounter) = strDatei
strDatei = Dir()
Loop
FileArray = arrDateien
End Function
Ausserdem hätte ich gerne gewusst wie ich verhindern kann dass eine Fehlermeldung kommt wenn der Ordner C:\Gelieferte Positionen momentan keine Dateiern enthält, sondern die Listbox1 einfach ohne Inhalt angezeigt wird.
Auch hätte ich gerne gewusst wie ich in VBA eine Datei in einen anderen Ordner verschiebe. Von c:\Gelieferte Positionen in c:\Geliefert September2005
Danke im Voraus
Gerhard