File Names 2

[luceze]

Is there a way to populate a table with the file names from a directory. I tried messing with the Dir function but could not get it to work.

Thanks,

Eric

 

[SuzieQQ]

use the DOS redirection symbol ">>" to direct the listing to a text file, e.g.

DIR *.* >> FILENAMES.TXT

Then you can import this file into a table.

 

[luceze]

Perfect! Thanks!

 

[jfischer]

What doesn't work for you with the Dir() function? Try adapting the following code.

Dim sFile As String
  
sFile = Dir("C:\*.*", vbNormal)
Do While sFile & &quot;&quot; <> &quot;&quot;
  Debug.Print sFile
  sFile = Dir()
Loop

 

[luceze]

jfischer,

I tried it but I'm not sure what's supposed to happen. How should I call the function and how do I display the output. Here's what I used:

Public Function FileName()


Dim sfile As String

sfile = Dir("C:\winnt\profiles\ExcelFiles\*.xls", vbNormal)
Do While sfile & &quot;&quot; <> &quot;&quot;
Debug.Print sfile
sfile = Dir()
Loop

End Function

 

[SusieQQ]

That code does not populate a table; it just prints the file.

 

[jfischer]

This is just a code sample. You need to adapt it to your situation. To test the sample code as you entered it:

1) Open a Debug (Immediate) window [press Ctrl-G].
2) Type the following:

? FileName()

If the function runs properly you should see a list of Excel spreadsheets appear in the Debug window.

Your next step is to change the Debug.Print statement into the appropriate statements to add records to your file name table.

 

[luceze]

Got it. Thanks guys.