Dateien eines Verzeichnis suchen und auflisten

• Dateien eines Verzeichnis suchen und auflisten von Rocco vom 09.10.2003 19:17:21
  • AW: Dateien eines Verzeichnis suchen und auflisten - von ChrisL am 09.10.2003 19:43:19
    • AW: Dateien eines Verzeichnis suchen und auflisten - von Karl-Otto Reimann am 09.10.2003 20:02:47
    • AW: Dateien eines Verzeichnis suchen und auflisten - von andreas e am 09.10.2003 20:20:09
  • AW: Dateien eines Verzeichnis suchen und auflisten - von Rocco am 10.10.2003 00:14:15
    • AW: Dateien eines Verzeichnis suchen und auflisten - von ChrisL am 10.10.2003 11:23:01

Betrifft: Dateien eines Verzeichnis suchen und auflisten
von: Rocco
Geschrieben am: 09.10.2003 19:17:21
Hallo zusammen, ich möchte gerne alle Word-Dateien eines bestimmten Verzeichnis auflisten (in Excel oder Word). Die Auflistung erfolgt nach einem bestimmten Kriterium und zwar nach dem Autor. Die Ausgabe sollte eine Liste mit Word-Dokumenten eines bestimmten Autors. Kann mir jemand sagen wie so was funktioniert? Besten Dank im voraus.

gruss rocco

Betrifft: AW: Dateien eines Verzeichnis suchen und auflisten
von: ChrisL
Geschrieben am: 09.10.2003 19:43:19
Hi Rocco

Da du ein bischen was von VBA verstehst, schau doch einfach mal in der Recherche nach, Stichwort FileSearch oder benutze die Suchfunktion. Wenn du ein passendes Makro hast, müssen wir uns noch auf die Suche nach dem Autorproblem machen, wenn es mir recht ist gibts ein Zusatz, vermutlich '.Autor'.

Gruss
Chris

PS: Bin morgen wieder online

Betrifft: AW: Dateien eines Verzeichnis suchen und auflisten
von: Karl-Otto Reimann
Geschrieben am: 09.10.2003 20:02:47
Hallo Rocco
(Da muß ich an Rocco Granata denken)

Ich benutz dies, um alle Textdateien in einem Tebellenblatt aufzulisten:

Sub dateien()
Dim Dateiname As String, i As Integer
Dateiname = Dir$("c:\vt\boerse\*.*")
Do While Dateiname <> ""
Range("a3").Offset(i, 0) = Dateiname
i = i + 1
Dateiname = Dir$()
Loop
End Sub

mfG KO

Betrifft: AW: Dateien eines Verzeichnis suchen und auflisten
von: andreas e
Geschrieben am: 09.10.2003 20:20:09
Hallo,
es gibt ja : ActiveWorkbook.BuiltinDocumentProperties(XX).Value

nachstehende Liste sagt dir was da bei raus kommt:

B C 1 Title 1 2 Subject 2 3 Author 3 4 Keywords 4 5 Comments 5 6 Template 6 7 Last author 7 8 Revision number 8 9 Application name 9 10 Last print date 10 11 Creation date 11 12 Last save time 12 13 Total editing time 13 14 Number of pages 14 15 Number of words 15 16 Number of characters 16 17 Security 17 18 Category 18 19 Format 19 20 Manager 20 21 Company 21 22 Number of bytes 22 23 Number of lines 23 24 Number of paragraphs 24 25 Number of slides 25 26 Number of notes 26 27 Number of hidden Slides 27 28 Number of multimedia clips 28 29 Hyperlink base 29 30 Number of characters (with spaces) 30

Excel Tabellen einfach im Web darstellen   Excel Jeanie HTML  2.0    Download  
hilft das weiter ? Gruß Andreas E http://www.skripteundaufgaben.de viele kostenlose Downloads und Links zu EXCEL und mehr http://www.fachforen.de eine Linksammlung zu diversen fachforen

Betrifft: AW: Dateien eines Verzeichnis suchen und auflisten
von: Rocco
Geschrieben am: 10.10.2003 00:14:15
Besten Dank für Eure Bemühungen,
die version von karl-otto reinmann funktioniert bei mir nicht. ich habe ein geniales tool gefunden, dass jedoch nicht ermöglicht nach autor zu suchen. ich habe versucht dieses vorlage anzupassen. es ist mir jedoch nicht gelungen. nun fage z.b. an chrisL kannst du dir vorstellen wie man diese vorlage (sie unten link) so anpassen kann, dass man nach autor (als kriterium) suchen kann. wäre toll, wenn es klappen würde. besten dank und gruss rocco
link zur vorlage:
http://www.geocities.com/jh2001de/macrosdeutsch.htm ---> und dort Auflisten Ordner

Betrifft: AW: Dateien eines Verzeichnis suchen und auflisten
von: ChrisL
Geschrieben am: 10.10.2003 11:23:01
Hi Rocco

Kann leider keine Zip Dateien öffnen und mit VBA Programmierung in Word kenne ich mich auch nicht aus, aber versuchs mal hiermit...

Sub WordListe()
Dim sFile As String, sPath As String, zeilennr As Long
Dim FSObjekt As Object, FObjekt As Object
Dim WordApp As Object, WordDoc As Object
Set WordApp = CreateObject("Word.Application")
On Error Resume Next
Application.ScreenUpdating = False
Set FSObjekt = CreateObject("Scripting.FileSystemObject")
sPath = "C:\PFAD"
If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
sFile = Dir(sPath)
Do While sFile <> ""
If Right(sFile, 3) = "doc" Then
zeilennr = Range("A65536").End(xlUp).Row + 1
Cells(zeilennr, 1) = sFile
Set FObjekt = FSObjekt.GetFile(sPath & sFile)
Cells(zeilennr, 2) = FObjekt.DateLastModified
Cells(zeilennr, 3) = FObjekt.Size
WordApp.Application.Documents.Open sPath & sFile
Cells(zeilennr, 4) = WordApp.ActiveDocument.BuiltinDocumentProperties(3).Value
sFile = Dir()
End If
Loop
Set WordApp = Nothing
Application.ScreenUpdating = False
End Sub

Die Performance ist allerdings schlecht.

Gruss
Chris

Excel-Beispiele zum Thema " Dateien eines Verzeichnis suchen und auflisten"
Alle Dateien im Verzeichnis öffnen	Dateien listen
400 leere Textdateien anlegen	XL-Dateien in UserForm listen
XL5/7-Dateien nach XL8 konvertieren	Dateien aus Listbox auslesen und öffnen
Excel-Dateien eines Ordners listen	Alle Dateien ab einem bestimmten Datum listen
Alle Dateien eines Verzeichnisses drucken	Textdateien verbinden