import list of filenames

[ruick]

Hey everyone,

I have a list of pictures in a folder and i want the urls of the pictures to be inputted into a column. I searched the forums and the closest thing i found was this:

 Dim fs As FileSearch, i As Long    
    Set fs = Application.FileSearch    
    With fs    
        .SearchSubFolders = False
        .FileType = msoFileTypeWebPages
        .LookIn = "C:\Documents and Settings\sandeepw\Desktop\"
        If .Execute > 0 Then        
            For i = 1 To .FoundFiles.Count            
                Cells(i + 1, 60) = .FoundFiles(i)                
            Next i        
        End If        
    End With</pre>

Now i know msofiletypewebpages = what should that be changed to for pictures? Anyway i tried to test this with some html files and when i ran the macro it didnt do anything?

This is exactly what i had:

Sub MyMacro()
Dim fs As FileSearch, i As Long
    Set fs = Application.FileSearch
    With fs
        .SearchSubFolders = False
        .FileType = msoFileTypeWebPages
        .LookIn = "C:\Documents and Settings\user\Desktop\f\"
        If .Execute > 0 Then
            For i = 1 To .FoundFiles.Count
                Cells(i + 1, 60) = .FoundFiles(i)
            Next i
        End If
    End With
End Sub

 

[jim may]

One thing for sure - If you are running xl 2007...

Application.FileSearch ** NO LONG EXISTS**

It exists only in 2003 and prior..

 

[ruick]

One thing for sure - If you are running xl 2007...

Application.FileSearch ** NO LONG EXISTS**

It exists only in 2003 and prior..

im on 2003

 

[jbeaucaire]

This is how I would do it, compatible with 2007 or 2003:

Sub ListFiles()
Dim fName As String, fPath As String, i As Long

fPath = "C:\Documents and Settings\user\Desktop\f\"
fName = Dir(fPath & "*.html")  'first filename
i = 1
    
    Do While Len(fs) > 0
        Cells(i + 1, 6) = fs
        i = i + 1
        fName = Dir            'next filename
    Loop
End Sub