Liste erstellen Frage

[Herman1]

ich habe auf einer Festplatte ca. 200 Ordner mit Unterordnern
in diesen sind viele Avis drinnen da ich mir ein Dokumentations Archiv erstelle auf meiner 2 TB Platte
jetzt weiß ich aber nie was ich habe und mcöhte eine Liste erstellen in wrod oder Excel
die genau auflistet, welche Ordner mit Unterordnern, und was für Avis ich da habe. wie geht das?

 

[Fabioff]

Hallo,
sind also nur die Dateien oder auch die Ordner von belang?

Wenn nur die Dateien (Avise), sind das alles die gleichen dateien also z.B. *.pdf ??

 

[Herman1]

habe 100 ordner und in jedem sind 100 avis ungeäfhr drinnen
und ich mcöhte das so in word haben dass 1 ordner - alle avis aufgelistet usw.

 

[destiny]

Programm kenn ich keins, aber warum schreibst du dir nicht selbst schnell eins (sofern du dazu in der Lage bist).
Dürfte nicht sehr schwierig sein.

 

[max2k3]

evtl langt dir ja ein auszug des einfachen dir befehls

in den order gehen den du auflisten willst (mit "cd" ) und

dir /s > list.txt

in der eingabe aufforderung eingeben

das *.txt dokument kannst ja dann in word importieren oder mit Guttenberg-copy einfügen

 

[destiny]

stimmt.... das ist so simpel, dass es mir gar nicht eingefallen wäre ^^

 

[Fabioff]

Hi
ich hätte noch die möglichkeit per Makro sich
- entweder die Ordnerstruktur anzeigen zu lassen:

Option Explicit 
Dim FSO, FO, FU, F 
Dim lRow As Long 
Dim icol As Integer 
Public Sub Ordner_Auflisten() 
Set FSO = CreateObject("Scripting.FileSystemObject") 
icol = 0 
lRow = 0 
GetSubFolders "C:\Temp"  ' Hier gibst Du Deinen Pfand zum gewünschten Verzeichnis an 
End Sub 
Function GetSubFolders(Pfad) 
Set FO = FSO.GetFolder(Pfad) 
Set FU = FO.SubFolders 
On Error Resume Next 
   For Each F In FU 
      lRow = lRow + 1 
      icol = icol + 1 
      Cells(lRow, icol) = F.Name 
      GetSubFolders F.Path 
   Next 
icol = icol - 1 
End Function

- oder alle Dateien, die sich in einem bestimmten Ordner befinden anzeigen zu lassen (per untermakro können die Dateiendungen entfernt werden)

Sub FilmeEinlesen () 
   Dim zeile As Variant 
   Dim sFile As String, sPattern As String, sPath As String 
   Dim iRow As Integer 
   Columns(1).ClearContents 
   sPath = "C:Verzeichnis\" ' Hier gibst Du Deinen Pfand zum gewünschten Verzeichnis an 
   If Right(sPath, 1) <> "\" Then sPath = sPath & "\" 
   sPattern = "*.*" 
   sFile = Dir(sPath & sPattern) 
   Do Until sFile = "" 
      iRow = iRow + 1 
      Cells(iRow, 1).Value = sFile 
      sFile = Dir() 
   Loop 
    For zeile = 1 To Cells.SpecialCells(xlLastCell).Row 
 Next 
End Sub 'Bei erneutem Aufruf werden die alten Funde überschrieben

Untermakro:

Sub WechMitAVI() 
 Dim zeile As Variant 
  For zeile = 1 To Cells.SpecialCells(xlLastCell).Row 
   If InStr(1, Range("A" & zeile), ".") > 0 Then 
     Range("A" & zeile) = Left(Range("A" & zeile), InStrRev(Range("A" & zeile), ".") - 1) 
   End If  
  Next 
End Sub

 

[Herman1]

dass ist super danke
allerdings weiß ich nicht was ich mit den zahlen da machen soll

 

[Fabioff]

Was für Zahlen?

beim "dir" Befehl der in der *.txt Datei abgelegt wird,
werden vorne lediglich das Änderungsdatum/Erstelldatum + Uhrzeit angezeigt.

Die Makros führst du in Excel aus und bekommst, nach Änderung des Pfades,
die von mir beschriebenen Ergebnisse geliefert.

 

[Herman1]

nein ich meine diese ganzen Buchstaben, ich habe 0 ahnung was ich damit machen soll. also bei start ausführen im xp und *.txt tut sich gar nix. kommt ne fehlermeldung. und ich weiß nicht mal was ein makro ist.

 

[quwieorp]

Ich lade hier eine Batch-Datei hoch, also ein Programm, das du einfach der Doppelklick startest.
Beim Ausführen wird eine Datei "avi-Dateien.txt" erstellt, in der die Dateinamen aller .avi-Dateien stehen, die sich in diesem Ordner oder in Unterordnern befinden.
Anhang anzeigen avi-liste.zip

 

[Herman1]

ah ja super
wow du kannst zaubern gibs zu
ist ja iiiiiiiiiiiiiiiirre