[list image files]

K

Karol_tom

Hello,

I want to create image files list in folder and then, when user choose one
of them show it.

What's wrong with this code ?

Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(folder) Then
Pattern_TEST.Create_folder_inv.Visible = True
Pattern_TEST.informacja_o_dostawcy = " Folder " & folder & " does not
exist "
Else
Counter = 0
folderek = fso.GetFolder(folder)
For Each pliczek In folderek.Files
If Right(pliczek.Name, 3) = "tif" Then
Pattern_TEST.ListBox1.AddItem pliczek.Name
Counter = Counter + 1
End If

Next pliczek
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Help needed! Extracting Heading 3 and Contents from a Word Doc to Excel 0
VBA - exporting serial letters to single documents 0
Merging from an Excel file with graphics 1
hyperlink solution requested 1
enable re-code to re-read on re-hidden columns, if can be possible 6
Need to Copy Files (all Subfolders and Files) 2
macro function--very nice 7
Working outlook via vba code with xlsx - error 0

Top