---

Hallo Damen und Herren,

ich hätte da eine grosse (für mich) bitte , für ein klaxx !!
Und zwar möchte ich mittels einem eingabe feld einen pfad auf meiner festeplatte (etvl. auch netzwerk) angeben und dessen inhalt
also dateinamen , grösse , datum und was noch so geht in eine
normale excelsheet einlesen.
nur wie geht das ?!
hab schon lange im internet gesucht, leider ohne erfolg.

danke xxxxxxxmal vorab
vlg
juergen

------------------
"Hier werden Sie geholfen........"

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

im gewünschten Verzeichnis einfach die Eingabeaufforderung aktivieren (entweder ist sie im Kontext-Menu enthalten oder via Eingabe-Aufforderung in das gewünschte Verzeichnis wechseln)

Dort dann einfach dir /b > dir.txt eingeben.

Die daraus resultierende dir.txt mit Excel öffnen - fertig.

Für dir gibt es natürlcih verschiedene Optionen welche mittels dir /? abgefragt werden können.

------------------
Grüsse

Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo thomas,
danke mal vorab für die prompte aw.
hab da mal was gefunden klappt auch soweit,
nur wäre es jetzt noch hilfreich den pfad über eine
maske eingebenzu können und
vieleicht auch dateigrösse und datum, dann wäre ich wunschlos ;-)

anbei mal eine erkenntnis !
********************************
Option Explicit
Sub link_me()
Dim i&, x$
i = 1
x = Dir("c:\temp\*.tmp")
Do While x <> ""
With Sheets(1)
  .Cells(i, 1) = x
  End With
i = i + 1
x = Dir
Loop
End Sub
*************************

LG
Juergen

------------------
"Hier werden Sie geholfen........"

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Abend der Herr ;-),

Jürgen, dazu eignet sich das File System Object vielleicht besser,
versuche es mal so, was Du nicht brauchst kannst ja löschen
BTW, das Default "c:\windows\" kannste anpassen oder auch löschen;-)

Code:

---

Sub oder()
  Dim fso As Object, fo As Object, fi As Object
  Dim i As Long, pfad$
  pfad = InputBox("Pfad angeben:", "x:\yy\zz\", "c:\windows\")
  If pfad = "" Then Exit Sub
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set fo = fso.getfolder(pfad)
  i = 1
  For Each fi In fo.Files
    With Sheets(1)
      .Cells(i, 1) = fi.Name
      .Cells(i, 2) = fi.Type
      .Cells(i, 3) = fi.Size
      On Error Resume Next
      .Cells(i, 4) = fi.datecreated
      .Cells(i, 5) = fi.datelastaccessed
      .Cells(i, 6) = fi.dateLastModified
      On Error GoTo 0
    End With
    i = i + 1
  Next
  Set fso = Nothing
End Sub

---

Gruss Nancy 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

HAllo Nancy,

10Units für dich !!

Hat super geklappt !!

danke !!!

Bis denne,
Juergen

------------------
"Hier werden Sie geholfen........"

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP