How to read and copy files by fso?
Dim a,b,c
Set a=createobject("scripting.filesystemobject")
Set b=a.createfolder("D:\name")
Set c=a.createtextfile("D:\name\name1.txt",true)
c.WriteLine("Madhavi vs QTP" )
a.CopyFolder "D:\name","C:\"
If a.FolderExists("c:\name") Then
msgbox (" Folder copy sucessfully")
Else
msgbox("Not sucessfully")
End If
a.DeleteFolder "C:\name"
If a.FolderExists("c:\name") Then
msgbox("Not Deleted Folder")
Else
msgbox("Deleted Sucessfully")
End If
c.Close
Set a=createobject("scripting.filesystemobject")
Set b=a.createfolder("D:\name")
Set c=a.createtextfile("D:\name\name1.txt",true)
c.WriteLine("Madhavi vs QTP" )
a.CopyFolder "D:\name","C:\"
If a.FolderExists("c:\name") Then
msgbox (" Folder copy sucessfully")
Else
msgbox("Not sucessfully")
End If
a.DeleteFolder "C:\name"
If a.FolderExists("c:\name") Then
msgbox("Not Deleted Folder")
Else
msgbox("Deleted Sucessfully")
End If
c.Close
Comments
Post a Comment