Hi,
I'm wanting excel to find list of folders, name and size...
it does work, i dont know..it is giving error message.
code source
http://www.vbaexpress.com/kb/getarticle.php?kb_id=1042
also please check this link
http://%22http//www.automatee…a-directory/%22
Code
[COLOR=#0000ff]Option Explicit[/COLOR]
[COLOR=blue]Sub[/COLOR] GetFileNames()
[COLOR=blue]Dim[/COLOR] xRow [COLOR=blue]As[/COLOR] [COLOR=blue]Long[/COLOR]
[COLOR=blue]Dim[/COLOR] xDirect$, xFname$, InitialFoldr$
InitialFoldr$ = "G:\" [COLOR=darkgreen]'<<< Startup folder to begin searching from[/COLOR]
[COLOR=blue]With[/COLOR] Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Application.DefaultFilePath & "\"
.Title = "Please select a folder to list Files from"
.InitialFileName = InitialFoldr$
.Show
[COLOR=blue]If[/COLOR] .SelectedItems.Count <> 0 [COLOR=blue]Then[/COLOR]
xDirect$ = .SelectedItems(1) & "\"
xFname$ = Dir(xDirect$, 7)
[COLOR=blue]Do[/COLOR] [COLOR=blue]While[/COLOR] xFname$ <> ""
ActiveCell.Offset(xRow) = xFname$
xRow = xRow + 1
xFname$ = Dir
[COLOR=blue]Loop[/COLOR]
[COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR]
[COLOR=blue]End With[/COLOR]
[COLOR=blue]End Sub[/COLOR]
Display More
Thanks everyone for helping.
Pedie.