Dateien auslesen funktioniert nicht mehr
10.03.2009 11:10:53
Roland
ich lese mit untenstehendem Code alle zip-Dateien aus einem Verzeichnis aus. Ich habe das ganze auf einem Computer programmiert, auf dem Office 2000 installiert ist. Der ganze Code läuft einwandfrei.
Auf meinem anderen Computer, auf dem Office 2003 installiert ist, funktioniert der Code nicht mehr. Das heisst er findet keine zip-Dateien obwohl es im Verzeichnis solche hat.
Auf beiden Computern sind die gleichen VBE-Verweise installiert, natürlich mit dem Unterschied, dass bei Office 2003 die Object Libary nicht 9 sondern 11 sind.
Hat jemand eine Idee was ich machen kann, dass der Code auch unter Office 2003 läuft?
Besten Dank
Sub GetFileNamesZIP()
Dim i, j As Integer
Dim strFile As String
'Tabellenblattbereich löschen
With Worksheets("SSXMLZIP")
.Rows("100:160").ClearContents
.Cells(100, 1).Value = getText("tabTitelZIP")
End With
With Application.FileSearch ' Suchaktion starten
.LookIn = strPfadKalk
.NewSearch
.SearchSubFolders = False
.Filename = "*.zip"
.FileType = msoFileTypeAllFiles
If .Execute(msoSortByFileName, msoSortOrderAscending) > 50 Then
MsgBox (getText("MsgBoxTextMax50")), vbInformation, (getText("MsgBoxTitelImport"))
End
Else
If .Execute(msoSortByFileName, msoSortOrderAscending) > 0 Then
For i = 1 To .FoundFiles.Count
' Bei Ausgelesene Dateinamen Pfad entfernen
For j = Len(.FoundFiles(i)) To 1 Step -1
If (Mid(.FoundFiles(i), j, 1) = "\") Then Exit For
Next
strFile = Right(.FoundFiles(i), Len(.FoundFiles(i)) - j)
' Ausgelesene Dateinamen in Tabellenblatt schreiben
ThisWorkbook.Worksheets("SSXMLZIP").Cells(i + 100, 1) = strFile
Next i
Else
MsgBox (getText("MsgBoxTextKeinZip")), vbInformation, (getText("MsgBoxTitelImport")) _
End
End If
End If
End With
End Sub