hello
I need to excrat jpg files from folder in macros
i used
picPath = getfilename("C:\Documents and Settings\user\Desktop\pictures")
bcon = True
row = 1
On Error Resume Next
While bcon
spath = ".jpg"
Set fs = Application.FileSearch
With fs
.LookIn = picPath
' picPath = Cells(row, 2) &...