Directory Structure and Filenames

poleary2000 · May 1st, 2002, 04:47 PM

Does anyone have any code that I could have that would enable me to retrieve all of the filename and their locations of the directory and sub-directories. I know there is a way to do it, but I am under a tight schedule [tomorrow!] and need it done right away.

Please help!

zacemmel · May 1st, 2002, 04:49 PM

Goto dos and type the following command.

dir/s > files.txt

poleary2000 · May 1st, 2002, 04:50 PM

how do i get to DOS on windows 2000?

brettvba · May 1st, 2002, 05:01 PM

goto run
type cmd

poleary2000 · May 1st, 2002, 05:04 PM

I did it using the following:

Sub GetFilenames()

Set fs = Application.FileSearch
With fs
.LookIn = "X:Line Balancing Project - Maynard"
.SearchSubFolders = True
.Filename = "*"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
ActiveCell.Value = .FoundFiles(i)
ActiveCell.Offset(1, 0).Select
Next i
Else
MsgBox "There were no files found."
End If
End With

End Sub

zacemmel · May 1st, 2002, 05:23 PM

Using dir/s > files.txt is a lot easier

poleary2000 · May 2nd, 2002, 06:46 AM

I see. I have never used DOS before. I had no idea. Thanks for the info.

May 1st, 2002, 04:47 PM	#1
poleary2000 Board Regular Join Date: Apr 2002 Location: Pittsburgh, PA Posts: 317	Does anyone have any code that I could have that would enable me to retrieve all of the filename and their locations of the directory and sub-directories. I know there is a way to do it, but I am under a tight schedule [tomorrow!] and need it done right away. Please help! __________________ Thanks in advance, Patrick

May 1st, 2002, 04:50 PM	#3
poleary2000 Board Regular Join Date: Apr 2002 Location: Pittsburgh, PA Posts: 317	how do i get to DOS on windows 2000? __________________ Thanks in advance, Patrick

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

May 1st, 2002, 04:49 PM	#2
zacemmel Board Regular Join Date: Apr 2002 Location: Redmond, WA Posts: 636	Goto dos and type the following command. dir/s > files.txt

May 1st, 2002, 05:01 PM	#4
brettvba MrExcel MVP Join Date: Feb 2002 Location: Christchurch New Zealand Posts: 1,030	goto run type cmd

May 1st, 2002, 05:04 PM	#5
poleary2000 Board Regular Join Date: Apr 2002 Location: Pittsburgh, PA Posts: 317	I did it using the following: Sub GetFilenames() Set fs = Application.FileSearch With fs .LookIn = "X:Line Balancing Project - Maynard" .SearchSubFolders = True .Filename = "*" If .Execute(SortBy:=msoSortByFileName, _ SortOrder:=msoSortOrderAscending) > 0 Then MsgBox "There were " & .FoundFiles.Count & _ " file(s) found." For i = 1 To .FoundFiles.Count ActiveCell.Value = .FoundFiles(i) ActiveCell.Offset(1, 0).Select Next i Else MsgBox "There were no files found." End If End With End Sub

May 1st, 2002, 05:23 PM	#6
zacemmel Board Regular Join Date: Apr 2002 Location: Redmond, WA Posts: 636	Using dir/s > files.txt is a lot easier

May 2nd, 2002, 06:46 AM	#7
poleary2000 Board Regular Join Date: Apr 2002 Location: Pittsburgh, PA Posts: 317	I see. I have never used DOS before. I had no idea. Thanks for the info.