Namen vd bestanden in de verkenner exporteren naar Exel

[regenboogje]

Ik wil een lijst maken in Exel waarin alle bestanden komen te staan die in de verkenner zitten, dus ook die in de onderliggende mappen staan.
Is dit mogelijk?
Met vriendelijke groet en dank,
Regenboogje.

 

[namliam]

alle bestanden van een schijf? 1 Folder? Een hele folder structuur?

Je kan of

 Dir /s > C:\Files.csv

gebruiken in een CMD box, die file kan je daarna openen in excel
Of echt in VBA met FileSystem Object (FSO) zie (o.a.) hier: http://support.microsoft.com/kb/186118

 

[Piet Bom]

Files ophalen uit folder en subfolders

Ik heb ooit een handig tooltje gemaakt..............

 

[Warme bakkertje]

Sub tst()
  c00 = CreateObject("scripting.filesystemobject").getfile(Application.GetOpenFilename).ParentFolder
  
  sn = Split(CreateObject("wscript.shell").exec("cmd /c Dir """ & c00 & "\*.*"" /b/s").stdout.readall, vbCrLf)
  Cells(1).Resize(UBound(sn) + 1) = Application.Transpose(sn)
End Sub

 

[Piet Bom]

@Rudi,
Mooie code !
Korte code !
Snelle code !

 

[snb]

Van wie ook weer ?

 

[Warme bakkertje]

Tja snb, als't goe is .......