AW: Dateien konvertieren
12.11.2007 17:25:00
Tino
Hallo,
da in 2007 nicht Application.FileSearch mehr geht
hier ein anderes beispiel
Sub ListFilesInFolder(SourceFolderName As String, IncludeSubfolders As Boolean, Optional _
DateiFormat As String)
' lists information about the files in SourceFolder
' example: ListFilesInFolder "C:\FolderName\", True
Dim FSO As Scripting.FileSystemObject
Dim SourceFolder As Scripting.Folder, SubFolder As Scripting.Folder
Dim FileItem As Scripting.File
Dim r As Long
Set FSO = New Scripting.FileSystemObject
Set SourceFolder = FSO.GetFolder(SourceFolderName)
r = Range("A65536").End(xlUp).Row + 1
For Each FileItem In SourceFolder.Files
' display file properties
If InStr(FileItem.Name, DateiFormat) > 0 Then
Cells(r, 1).Formula = FileItem.Path '& FileItem.Name
r = r + 1 ' next row number
End If
Next FileItem
If IncludeSubfolders Then
For Each SubFolder In SourceFolder.SubFolders
ListFilesInFolder SubFolder.Path, True
Next SubFolder
End If
Columns("A:H").AutoFit
Set FileItem = Nothing
Set SourceFolder = Nothing
Set FSO = Nothing
ActiveWorkbook.Saved = True
End Sub
Sub tsst()
Cells.Clear
ListFilesInFolder "C:\Dokumente und Einstellungen\Test\", True, "xls"
End Sub
Gruss
Tino