Set fso = CreateObjcect(“Scripting.FilesystemObject”)
File operations:
Set File = fso.createtextfile(“path”,true)
Set file = fso.opentextfile(“path”,1/2/8(read/write/append))
‘Writing into the file
File.write “text”
File.writeline “text”
‘Reading from the file
Do while file.AtendofStream <> true
File.readall
File.readline
Loop
Do while file.atendofline<> true
File.read(2)
Loop
File.close
Set file = nothing
Set fso = nothing
Method: GetFile
Set fso=createobject("Scripting.FileSystemObject")
'File for getting details Sourcefile="D:\qtptest.txt"
Set get_file=fso.GetFile(Sourcefile)
'Some of the following details can be retrieved from a file
msgbox get_file.DateCreated
msgbox get_file.DateLastAccessed
msgbox get_file.DateLastModified
msgbox get_file.ParentFolder
msgbox get_file.Path
Set fso=nothing
Fso.copyfile(sourcefilepath,destfilepath)
Fso.fileexist(filepath)àtrue/false
Fso.deletefile(path)
Folder operations:
Fso.folderExist(folderpath)
Set fol = Fso.getfolder(folderpath)
Set subfol = fol.subfolders
Fso.deletefolder(path)
Fso.createfolder(path)
Fso.copyfolder(source,dest)
Fso.movefolder(source,destination) //all are paths with folder
Drivers operations:
Fso.drivers
For each dr in fso.drivers
Dr.driverletter
next
fso.getdriver(“D:/”)
msgbox get_drv.AvailableSpace
Msgbox get_drv.DriveLetter
msgbox get_drv.DriveType
msgbox get_drv.FileSystem
msgbox get_drv.FreeSpace
msgbox get_drv.Path
Msgbox get_drv.RootFolder
Msgbox get_drv.SerialNumber
Msgbox get_drv.TotalSize
Fso.driverexist(“D:/”)
