Hi Ashish
well done ! Appreciate your knowledge & help !
On Sat, May 14, 2011 at 12:19 PM, ashish koul wrote:
> use move to move files and copy to copy the files
>
>
> Public f As Object, d As Object
> Sub Main()
>
> Dim Fso As Object
> Set Fso = CreateObject("Scripting.FileSystemObject
use this one
Public f As Object, d As Object, sw As Object
Sub Main()
Dim Fso As Object
Set sw = CreateObject("Scripting.FileSystemObject")
Set Fso = CreateObject("Scripting.FileSystemObject")
Set RootFolder = Fso.GetFolder("C:\Documents and
Settings\ashish\Desktop\ashish koul"
use move to move files and copy to copy the files
Public f As Object, d As Object
Sub Main()
Dim Fso As Object
Set Fso = CreateObject("Scripting.FileSystemObject")
Set RootFolder = Fso.GetFolder("C:\Documents and
Settings\ashish\Desktop\ashish koul")
FolderRead RootFolder
End Sub
