Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
280to284
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
280to284
280to284
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Länge einer Datei prüfen

Länge einer Datei prüfen
21.07.2003 10:17:54
Matthias
Hallo Zusammen,

ist es mit Hilfe von Excel möglich, in einer Ordnerstrucktur die Zeichenlänge aller dateien zu prüfen und alle Dateinamen die mehr als 255 Zeichen haben in einer Arbeitsmappe mit pfad aufzulisten. Wenn ja, wie??
Schonmal vorab besten Dank für die Hilfe!

Gruß
Matthias

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Länge einer Datei prüfen
21.07.2003 10:43:13
Bernd Held
Hallo Matthias,

so was in der Art sollte funktionieren:


Sub DateienLänger256()
Dim i As Integer
Dim i_Datei As Integer

i = 1
With Application.FileSearch
    .Filename = "*.xls"
    .LookIn = "D:\Eigene Dateien\"
    .SearchSubFolders = True
    .Execute
    For i_Datei = 1 To .FoundFiles.Count
       If Len(.FoundFiles(i_Datei)) > 256 Then Cells(i, 1).Value = .FoundFiles(i_Datei)
       i = i + 1
    Next i_Datei
 End With
End Sub
     Code eingefügt mit Syntaxhighlighter 1.14



Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA-Bücher mit Leseproben(PDF), VBA-Forum und VBA-Schulungen unter: http://held-office.de



Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige