[Solved] VBA : list of files

Hi Brister,

You can use the replace function to get rid of the unneeded path info.

dim path as string
dim file as string


path="Directory Path here" 


With Application.FileSearch 


.NewSearch 
.LookIn = path
.Filename = "*.jpg" 'file extension 
.SearchSubFolders = False 
.Execute 
For i = 1 To .FoundFiles.Count 
file= replace(.FoundFiles(i),path,"")
imageform1.ListBox1.AddItem file 
Next i 
End With

That should work but I haven't debugged. Best of luck.

Cheers,

Jen

Hi Brister,

Try this modified line in your code,

ListBox1.AddItem Mid(.FoundFiles(i), Len(.LookIn) + 2)

Cheers
Andy

Hi Brister,

From the help file,

Quote

Returns a Variant (String) containing a specified number of characters from a string.

Syntax

Mid(string, start[, length])

The Mid function syntax has these named arguments:

Part Description
string Required. String expression from which characters are returned. If string contains Null, Null is returned.
start Required; Long. Character position in string at which the part to be taken begins. If start is greater than the number of characters in string, Mid returns a zero-length string ("").
length Optional; Variant (Long). Number of characters to return. If omitted or if there are fewer than length characters in the text (including the character at start), all characters from the start position to the end of the string are returned.

Display More

Cheers
Andy