gerry
Goto Top

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

Content-Key: 7432

Url: https://administrator.de/contentid/7432

Ausgedruckt am: 28.03.2024 um 17:03 Uhr

Mitglied: Trbun
Trbun 26.02.2005 um 20:33:02 Uhr
Goto Top
.Filename = "*.zip"

das sollte die Lösung sein.
Mitglied: Gerry
Gerry 26.02.2005 um 23:03:16 Uhr
Goto Top
Nein das geht nicht habs probiert ich bin nicht der einzige mit diesem fehler.
Mitglied: gemini
gemini 27.02.2005 um 00:07:35 Uhr
Goto Top
Evtl. hilft dir das.
Sieh dir mal den Beitrag von Ron de Bruin an
http://www.excelforum.com/archive/index.php/t-252336.html
Mitglied: Gerry
Gerry 27.02.2005 um 13:05:18 Uhr
Goto Top
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.
Mitglied: gemini
gemini 27.02.2005 um 13:31:42 Uhr
Goto Top
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
Mitglied: Gerry
Gerry 01.03.2005 um 19:26:42 Uhr
Goto Top
Super gemini hatt funktioniert danke