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

Comments

Popular posts from this blog

Is QA a easy job?

Latest Version of TestComplete

Successful tester