Aug 23, 2022, updated at 10:10:35 (UTC)

1472

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!

Please also mark the comments that contributed to the solution of the article

Content-Key: 3728901371

Url: https://administrator.de/contentid/3728901371

Printed on: May 14, 2024 at 19:05 o'clock

13 Comments

Latest comment

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...

Wird Zeit das die Schulferien endlich wieder zu Ende gehen.

Ist das jetzt "Mode", sich nen Account zu machen, eine Frage zu stellen und dann den Account wieder zu löschen

Wir haben schon manchmal sehr rauhe Töne...

German solved Question Trashcan Off Topic

Hotly discussed

EdgeRouter Lite 3 IPv6 configurationLinuxero - 15 Comments