3728860337
Goto Top

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!

Content-Key: 3728901371

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

Printed on: March 1, 2024 at 04:03 o'clock

Member: em-pie
em-pie Aug 23, 2022 updated at 07:09:15 (UTC)
Goto Top
Moin,

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

Gruß
em-pie
Mitglied: 3728860337
3728860337 Aug 23, 2022 at 07:10:33 (UTC)
Goto Top
VBA wäre besser, da ich leider kein Zugang auf Powershell habe.
Member: MrCount
MrCount Aug 23, 2022 updated at 08:20:37 (UTC)
Goto Top
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.
Mitglied: 3714160434
3714160434 Aug 23, 2022 updated at 08:39:39 (UTC)
Goto Top
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
Member: NordicMike
NordicMike Aug 23, 2022 at 08:53:40 (UTC)
Goto Top
Ich zitiere nochmal:

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

und

 and file.Size = 0 Then

:c)
Member: TheJoker2305
TheJoker2305 Aug 23, 2022 at 08:56:19 (UTC)
Goto Top
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
Mitglied: 3714160434
3714160434 Aug 23, 2022 updated at 08:57:51 (UTC)
Goto Top
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.
Member: NordicMike
NordicMike Aug 23, 2022 at 09:07:48 (UTC)
Goto Top
Vermutlich sind es keine .txt und als Textdatei meint er auch .doc oder ganz was anderes.
Mitglied: 3714160434
3714160434 Aug 23, 2022 at 09:14:47 (UTC)
Goto Top
Nachdem er das hier als Lösung markiert hat gehe ich von *.txt Files aus ...
Member: NordicMike
NordicMike Aug 23, 2022 at 09:15:54 (UTC)
Goto Top
Na dann :c)
Member: MrCount
MrCount Aug 23, 2022 at 10:07:50 (UTC)
Goto Top
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... face-wink
Mitglied: 3714160434
3714160434 Aug 23, 2022 at 10:09:20 (UTC)
Goto Top
Wird Zeit das die Schulferien endlich wieder zu Ende gehen.
Member: NordicMike
NordicMike Aug 23, 2022 at 11:00:18 (UTC)
Goto Top
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...