6
Exel Befehl Filesearch findet keine zip dateien
Set fs = Application.FileSearch
With fs
.LookIn = "C:\testordner"
.Filename = "*.*"
.SearchSubFolders = True
If .Execute > 0 Then
' MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
' MsgBox .FoundFiles(i)
x = fs.FoundFiles(i)
Worksheets("tabelle3").Range("b" & i).Value = x
Next i
Else
'MsgBox "There were no files found."
End If
Wie kann ich es so schreiben das es zip endungen findet.
Anderes findet es
Einer einen Tip
Gruss Gerry
With fs
.LookIn = "C:\testordner"
.Filename = "*.*"
.SearchSubFolders = True
If .Execute > 0 Then
' MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
' MsgBox .FoundFiles(i)
x = fs.FoundFiles(i)
Worksheets("tabelle3").Range("b" & i).Value = x
Next i
Else
'MsgBox "There were no files found."
End If
Wie kann ich es so schreiben das es zip endungen findet.
Anderes findet es
Einer einen Tip
Gruss Gerry
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 7432
Url: https://administrator.de/contentid/7432
Ausgedruckt am: 22.11.2024 um 09:11 Uhr
6 Kommentare
Neuester Kommentar
.Filename = "*.zip"
das sollte die Lösung sein.
das sollte die Lösung sein.
Nein das geht nicht habs probiert ich bin nicht der einzige mit diesem fehler.
Evtl. hilft dir das.
Sieh dir mal den Beitrag von Ron de Bruin an
http://www.excelforum.com/archive/index.php/t-252336.html
Sieh dir mal den Beitrag von Ron de Bruin an
http://www.excelforum.com/archive/index.php/t-252336.html
Was du geschrieben hast funktioniert zwar, aber ich brauche die Suche leider über Netzwerk.
und der Verwendete dir Befehl geht leider nicht über Netzwerkpfade.
Sonst noch einen Ide.
und der Verwendete dir Befehl geht leider nicht über Netzwerkpfade.
Sonst noch einen Ide.
Aus der Excel-Hilfe:
Sub ShowFolderList(folderspec)
Dim fs, f, f1, s, sf
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set sf = f.SubFolders
For Each f1 in sf
If Right(zip, 3) Then
s = s & f1.name & vbCrLf
End If
Next
MsgBox s
End Sub
Sub ShowFolderList(folderspec)
Dim fs, f, f1, s, sf
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set sf = f.SubFolders
For Each f1 in sf
If Right(zip, 3) Then
s = s & f1.name & vbCrLf
End If
Next
MsgBox s
End Sub
Super gemini hatt funktioniert danke
