Hallo zusammen,
ich möchte folgendes VBA-Script gerne abändern, es soll der Pfad noch mit angegeben werden und die unterverzeichnis. Also die Gesamte festplatte oder partition.
wie kann ich es machen das ich noch mit Laufwerk = cells (x,y) das C oder C: ersetzen kann um das entsprechende Laufwerk oder den Pfad anzugeben.
Sub DateinamenAuflisten()
Dim Dateiname As String, i As Integer
Dateiname = Dir$("c:\*.*")
Do While Dateiname <> ""
ActiveCell.Offset(i, 0) = Dateiname
i = i + 1
Dateiname = Dir$()
Loop
End Sub
ich möchte folgendes VBA-Script gerne abändern, es soll der Pfad noch mit angegeben werden und die unterverzeichnis. Also die Gesamte festplatte oder partition.
wie kann ich es machen das ich noch mit Laufwerk = cells (x,y) das C oder C: ersetzen kann um das entsprechende Laufwerk oder den Pfad anzugeben.
Sub DateinamenAuflisten()
Dim Dateiname As String, i As Integer
Dateiname = Dir$("c:\*.*")
Do While Dateiname <> ""
ActiveCell.Offset(i, 0) = Dateiname
i = i + 1
Dateiname = Dir$()
Loop
End Sub
