Datei/Textdatei/Grösse auslesen

Karl-Otto · 2004-09-01T22:20:36+00:00

Einen schönen guten Abend an die Forumsteilnehmer 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

Hallo,
na ja, einem Ordner sieht man es ja nicht an, welche Art Dateien er enthält.
Also dann mit Wahlmöglichkeit:
Option Explicit
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BInfo) As Long
Private Declare Function CoTaskMemFree Lib "ole32" (ByVal hMem As Long) As Long
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpStr1 As String, ByVal lpStr2 As String) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pList As Long, ByVal lpBuffer As String) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassname As String, ByVal lpWindowName As String) As Long
Private Type BInfo
hwnd As Long
Root As Long
DisplayName As Long
Title As Long
Flags As Long
FName As Long
lParam As Long
Image As Long
End Type


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

Sub Dateien_suchen()
Dim Ordner As String, Index As Long, objFSO As Object, objFile As Object
Dim Zeile As Long, Spalte As Integer, bolSubFolder As Boolean, msg As Integer
Ordner = GetFolder
If Ordner "" Then
msg = MsgBox("Sollen auch Unterordner durchsucht werden? ", 36, "wills wissen...")
If msg = 6 Then bolSubFolder = True
Application.ScreenUpdating = False
On Error Resume Next
Cells.Clear
Cells(1, 1) = "Pfad/Dateiname"
Cells(1, 2) = "Byte"
Zeile = 1: Spalte = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
With Application.FileSearch
.LookIn = Ordner
.Filename = "*.txt"
.SearchSubFolders = bolSubFolder
If .Execute > 0 Then
For Index = 1 To .FoundFiles.Count
Set objFile = objFSO.GetFile(.FoundFiles(Index))
If objFile.Size > 0 Then
Zeile = Zeile + 1
If Zeile > 65500 Then Spalte = Spalte + 2
Cells(Zeile, Spalte) = objFile.Path
Cells(Zeile, Spalte + 1) = objFile.Size
End If
Next
End If
End With
For Spalte = 2 To 20
Columns(Spalte).NumberFormat = "#,###,##0"
Next
Columns.AutoFit
Rows(1).Font.Bold = True
Application.ScreenUpdating = True
End If
End Sub
Gruß K.Rola

Forumthread: Datei/Textdatei/Grösse auslesen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Datei/Textdatei/Grösse auslesen

Forumthread: Datei/Textdatei/Grösse auslesen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread