<h1> File System Operation in QTP</h1>

Create a Folder
Option Explicit
Dim objFSO, objFolder, strDirectory
strDirectory = "D:\Testprimer"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder(strDirectory)

Delete a Folder 
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.DeleteFolder("E:\Testprimer")

Copying Folders
Set oFSO=createobject("Scripting.Filesystemobject")
oFSO.CopyFolder "E:\test", "C:\test1", True