Dir mit *.doc und *.xls ?
ing.grohn
bisher Liste ich Dateien aus einem Verzeichnis mit:
Sub MandantVerz(SuchName As String)
Dim strFile As String, lngA As Long
Dim strVz As String
Dim MandantVerz As String
Dim Dateivorh As Boolean
Dim BuchVerz As String
Load UF_Dateiliste
BuchVerz = Left(SuchName, 1)
MandantVerz = Workbooks("Jutta.xls").Sheets("Konstanten").Range("Mandanten").Value
Dateivorh = False
strVz = LW & MandantVerz & BuchVerz & "\*" & SuchName & "*.doc"
strFile = Dir(strVz, vbNormal)
While strFile ""
UF_Dateiliste.ListBox1.AddItem _
LW & MandantVerz _
& BuchVerz & "\" & strFile
strFile = Dir
Dateivorh = True
Wend
strVz = LW & MandantVerz & BuchVerz & "\*" & SuchName & "*.xls"
strFile = Dir(strVz, vbNormal)
While strFile ""
UF_Dateiliste.ListBox1.AddItem _
LW & MandantVerz _
& BuchVerz & "\" & strFile
strFile = Dir
Dateivorh = True
Wend
If Dateivorh = True Then
UF_Dateiliste.Show
Unload UF_Dateiliste
Else
MsgBox ("Zum Mandanten(Kurzname) " & strVz & Buchstabe & " sind keine Dateien vorhanden")
End If
End Sub
Funktioniert
Dadurch, dass ich erst *.doc und dann *.xls suche ist das natürlich etwas umständlich.
Kann man das Ganze eleganter abwickeln?
Wenn JA, wie?
freue mich auf eure antworten.
Mit freundlichen Grüßen
Albrecht