Ich such' mir einen Wolf, um in ein Tabellenblatt die Dateigröße von Textdateien
eines Ordners auszulesen.
Hat jemand eine befriedigend schnell laufende Lösung dafür?
Viele Grüße
KO
Sub CollectFileData()
Dim SVerz As String, fExt As String
Dim fName As String
SVerz = "C:\Temp\"
fExt = "*.xls"
fName = Dir(SVerz & fExt)
Debug.Print Dir(SVerz & fExt)
Do Until fName = ""
ReadFileSize SVerz, fName
fName = Dir()
Loop
End Sub
Function ReadFileSize(getfolder As String, getFile As String)
Dim FSO As Object
Dim FSO_Fol As Object
Dim FSO_File As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FSO_Fol = FSO.getfolder(getfolder)
Set FSO_File = FSO_Fol.Files
Cells(Range("A65536").End(xlUp).Row + 1, 1) = FSO_Fol.Size & " bytes."
End Function
Private Function GetFolder() As String
Dim xl As BInfo, IDList As Long, RetVal As Long, FolderName As String
With xl
.hwnd = FindWindow("xlmain", vbNullString)
.Title = lstrcat("Verzeichnis wählen...", "")
.Flags = 1
End With
IDList = SHBrowseForFolder(xl)
If IDList <> 0 Then
FolderName = Space(256)
RetVal = SHGetPathFromIDList(IDList, FolderName)
CoTaskMemFree (IDList)
FolderName = Trim$(FolderName)
FolderName = Left(FolderName, Len(FolderName) - 1)
End If
GetFolder = FolderName
End Function