<h1> Working With Files : QTP</h1>

Computer file System

In computing , a file system is a method for storing and organizing computer files and the data they contain to make it easy to find and access them.File systems may use a data storage device such as a hard disk or CD-ROM.

Working with and Folders

•  Creating a Folder:

Option explicit

Dim Objfso,objFolder,strDirectory

strDirectory = "C:\bibhas"   

Set Objfso = CreateObject("Scripting.FileSystemObject")

Set objFolder = Objfso.CreateFolder(strDirectory)

•  Deleting a Folder :

Set objFolder = CreateObject ("Scripting.FileSystemObject")

objFolder.DeleteFolder("E:\NewFolder") ' This is folder which is already exist in the system

• Copying a Folder :

Set objFolder = CreateObject ("Scripting.FileSystemObject")

objFolder.CopyFolder "C:\NewFolder","D:\NewFolder1" , True

• Creating a Folder , After verifying it's present or not :

Option explicit

Dim Objfso,objFolder,strDirectory

strDirectory = "C:\bibhas"   

Set Objfso = CreateObject("Scripting.FileSystemObject")

If Objfso.FolderExists(strDirectory) Then
Set objFolder = Objfso.GetFolder(strDirectory)
msgbox strDirectory & " already Exist !!!"
else
Set objFolder = Objfso.CreateFolder(strDirectory)
end if

•  Returning a Collection Of Disk Drives available in the System:

Set dFso = CreateObject ( "Scripting.FileSystemObject")

Set collectionDrives = dFso.Drives

For Each oDrive in collectionDrives

msgbox "Drive letter : " & oDrive.DriveLetter

Next

•  Find Out the Available Space on a Disk Drive :

Set objFso = CreateObject ("Scripting.FileSystemObject")

Set oDrive = objFso.GetDrive("C:")

msgbox "Available Space " &  oDrive.AvailableSpace