file names

  • Thread starter Thread starter Esradekan
  • Start date Start date
E

Esradekan

seems i jumped the gun a bit

i DO want a file listing INCLUDING the path

what i am actually trying to do is to find out the drawings i have for
certain buildings and they are all on a disk, folder names are the
buildings, and the parts of buildings that they belong to. FIle names
can be repetitive, so therefore need the folder names, ie full path.

can i get that in excel becuase the data is far more useful to me in
excel.

Thanks for Hector helping me before, sorry, now I need more.

TIA

Esra
 
Esradekan,
Yes. If you type the information to identify the file in cell A3.
Then in cell B3, selct "Insert", "hyperlink" point it to the file that you
want and
fill out the window with the folder name/file name and all.
It will dispay it for you.
hth
 
Esradekan,
 Yes. If you type the information to identify the file in cell A3.
Then in cell B3, selct "Insert", "hyperlink" point it to the file that you
want and
fill out the window with the folder name/file name and all.
It will dispay it for you.
hth









- Show quoted text -
Click to expand...

HUH?, are you talking about the same thing I am?

All I want is a list of the path to files (tif files), and file
names, in a directory or sub directory. What does a hyperlink have
to do with that?

Esra
 
Minimal testing. In Hector's ListFilesIn function, replace this:

For Each xFile In .Files
With xFile
If InStr(1, .Name, xType, 1) Then _
Range("a" & nRow) = Application.Substitute(.Name, .Path, ""): _
nRow = nRow + 1
End With
Next

with this:

For Each xFile In .Files
With xFile
If InStr(1, .Name, xType, 1) Then
Range("a" & nRow) = .Path & "\" & .Name
nRow = nRow + 1
End If
End With
Next

Greg
 
Minimal testing. In Hector's ListFilesIn function, replace this:

For Each xFile In .Files
With xFile
If InStr(1, .Name, xType, 1) Then _
Range("a" & nRow) = Application.Substitute(.Name, .Path, ""): _
nRow = nRow + 1
End With
Next

with this:

For Each xFile In .Files
With xFile
If InStr(1, .Name, xType, 1) Then
Range("a" & nRow) = .Path & "\" & .Name
nRow = nRow + 1
End If
End With
Next

Greg









- Show quoted text -
Click to expand...

thats perfect greg, thanks so much.

Esra
 
Back
Top