VBA Experte gesucht!

Hallo zusammen,

ich brauche eure Hilfe und zwar habe ich einen Ordner mit vielen Textdateien. Manche haben Inhalt und manche sind leer (keine Zeichen). Ich will mithilfe von VBA eine Liste erstellen auf Excel die mir dann automatisch anzeigt welche Textdateien kein Inhalt haben.

Danke im Voraus!

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 3728901371

Url: https://administrator.de/forum/vba-experte-gesucht-3728901371.html

Ausgedruckt am: 22.12.2024 um 10:12 Uhr

13 Kommentare

Neuester Kommentar

Moin,

muss es zwingend VBA sein oder würde auch die Powershell gehen, die dir eine CSV/ XLSX erzeugt?

Gruß
em-pie

VBA wäre besser, da ich leider kein Zugang auf Powershell habe.

Servus,

das klingt wie Leere Textdateien finden (mit Batch oder VBA)

Hallo zusammen,
ich habe folgendes Problem und hoffe das jemand helfen kann.
Einen Ordner mit 10.000 verschiedenen Textdateien. Alle sind gleich groß (1KB), jedoch gibt es leere Textdateien, also ohne Zeilen.
Ich suche eine Möglichkeit um die leeren Textdateien irgendwie kenntlich zu machen ob sie dann anschließend löschen zu können.
Vielen Dank im Voraus.

VBA Experte gesucht!

😂😂 das macht dir Oma Grete beim Gang auf ScheiXXhaus.

Sub KeepInMindYouNeverLearnWithCopyNPaste()
    Set fso = CreateObject("Scripting.FileSystemObject")  
    For Each file In fso.GetFolder("D:\MyFiles").Files  
	    If LCase(fso.GetExtensionName(file.Name)) = "txt" and file.Size = 0 Then  
		ActiveSheet.Cells(Rows.Count,"A").End(xlUp).Offset(1,0).Value = file.Path  
	    End If
    Next
End Sub

Ich zitiere nochmal:

Alle sind gleich groß (1KB), jedoch gibt es leere Textdateien, also ohne Zeilen.

und

 and file.Size = 0 Then

:c)

Hiermit werden nur TXT-Dateien durchlaufen:

Sub start()
    pfad = "C:\test"  
    datei = Dir(pfad & "\*.txt")  
    i = 2
    Do While datei <> ""  
        If FileLen(pfad & "\" & datei) = 0 Then  
            ThisWorkbook.Worksheets("Tabelle1").Range("A" & i).Value = datei  
            i = i + 1
        End If
        datei = Dir()
    Loop
End Sub

Zitat von @NordicMike:

Ich zitiere nochmal:

Alle sind gleich groß (1KB), jedoch gibt es leere Textdateien, also ohne Zeilen.

und

 and file.Size = 0 Then

:c)

Eine Text-Datei ohne Inhalt/Zeilen ist immer 0, die kann keine 1kb haben, da hat der Jung sich sicher vertippelt.

Vermutlich sind es keine .txt und als Textdatei meint er auch .doc oder ganz was anderes.

Nachdem er das hier als Lösung markiert hat gehe ich von *.txt Files aus ...

Na dann :c)

Ist das jetzt "Mode", sich nen Account zu machen, eine Frage zu stellen und dann den Account wieder zu löschen, um später mit der gleichen Frage in einem neuen Account den Leuten erneut auf den S@*k zu gehen?

Frage für einen Freund...