with [ code ] brackets:
Option Explicit
Const con_CREATEPROGRESSDLG = &H0&
Dim MapOrg, MapDest, objShell, objFolder
Set objShell = CreateObject("Shell.Application")
MapOrg = "E:\images\*.*"
MapDest = "E:\images2\"
MapCopy MapOrg, MapDest
Sub MapCopy(MapOrg, MapDest)
Set objFolder = objShell.NameSpace(MapDest)
objFolder.CopyHere MapOrg, con_CREATEPROGRESSDLG
Set objFolder = Nothing
End Sub ' MapCopy
without [ code ] brackets:
Option Explicit
Const con_CREATEPROGRESSDLG = &H0&
Dim MapOrg, MapDest, objShell, objFolder
Set objShell = CreateObject("Shell.Application")
MapOrg = "E:\images\*.*"
MapDest = "E:\images2\"
MapCopy MapOrg, MapDest
Sub MapCopy(MapOrg, MapDest)
Set objFolder = objShell.NameSpace(MapDest)
objFolder.CopyHere MapOrg, con_CREATEPROGRESSDLG
Set objFolder = Nothing
End Sub ' MapCopy