file names

[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

 

[FloMM2]

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]

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 -

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

 

[Greg Wilson]

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

 

[Esradekan]

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 -

thats perfect greg, thanks so much.

Esra