Re: Dateien aus Verzeichnis auslesen noch offen
19.12.2002 10:03:34
Holger
Hallo Hajo, Andre,hier ist der Code, auf dem ich aufbauen will. Ich hab es mit der Bedingung nach dem Stichwort noch nicht versucht, weil ich eben nicht weiß, wie ich Dateieigenschaften auslesen kann.
Sub dateisuchen(name)
Dim Dateisuche
Dim i
Set Dateisuche = Application.FileSearch
With Dateisuche
.FileName = name
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
Cells(3, 2).Select
Selection.Formula = .FoundFiles.Count & " Nachunternehmer für das Gewerk."
For i = 1 To .FoundFiles.Count
Cells(4 + i, 2).Select
Selection.Formula = .FoundFiles(i)
Next i
Else
Cells(3, 2).Select
Selection.Formula = " Keine Nachunternehmer für das Gewerk."
End If
End With
End Sub
Mit "name" übergebe ich bei diesem Beispiel aus einer SUB den Dateinamen mit voller Pfadangabe.
Vielleicht könnt Ihr mir helfen.
Tschau, Holger