VBA: Potřeboval bych makro pro vytvoření seznamu TXT souborů

[zicomp]

Ahoj, prosim toho, kdo umi programovat ve Visual Basic:
Potreboval bych jednoduchy programek, ktery zmapuje zvolenou adresu, napr. C:\ a VYPISE do list1.Range("A1:A100").value - NAZVY vsech najdenych ".txt" souboru
DEKUJI ZA POMOC
Petr

// Změna názvu tématu. Původní název "MAKRO - help" svou nulovou informační hodnotou porušoval pravidla fóra.
// mike007

[Poki]

Nejak takto by to slo:

Kód: Vybrat vše

Sub soubory()
  Dim f As String
  Dim Cesta As String
  Dim i As Integer

Cesta = "C:\Documents and Settings\pokorny9\Dokumenty\zVBA_Office\zVD\EXCEL\" 'musi konci zpetnym lomitkem '\'

ChDir Cesta
f = Dir(Path & "*.txt")
i = 1

  While f <> ""
    Cells(i, 1) = f
    i = i + 1
    f = Dir()
  Wend
End Sub

[zicomp]

Diky moc, funguje !
P.

// Téma označuji za vyřešené...za tebe...
// mike007