prabha

[prabha]

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) & Cells(row, 1) & ".jpg"


ActiveSheet.Pictures.Insert(picPath).Select



is it correct
i have to submit it
and it's working
help me