Facebook

For any corporate training requirements Please mail To sudhakar@qtpsudhakar.com
Course Name Date Time Duration Type Location
An important update from QtpSudhakar. I stopped giving classroom training in MindQ Systems. I have bigger plans and I want to put an end to regular classroom training because very less people are practicing. From now onwards every session of mine is going to have explanation and practice. Everyone should practice in presence of mine and should go out of classroom with practical knowledge. So I started my own institute AnyTechLabs in Madhapur. Please reach out to +91-8328152362 for course details. Visit AnyTechLabs.com for address details.
Selenium + Cucumber 22nd September 9 AM IST to 2.00 PM IST 4 WeekEnds Theory + Practical AnyTechLabs
Selenium + Cucumber 8th October 7.30 AM IST to 9.00 AM IST 45 Days Theory+Practical AnyTechLabs

A book "Cracking the QTP interview" authored by Sudhakar.Read More. Buy From FlipKart

Friday, May 15, 2009

File System Object

'********************************************************************************
'******************************* Working with drives ****************************
'********************************************************************************
Dim fso, d
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive(fso.GetDriveName(drvPath))
'Volume Name
msgbox d.VolumeName
'The total size of the drive in bytes (TotalSize property) 
msgbox "Total Space: " & FormatNumber(drv.TotalSize / 1024, 0)
'How much space is available on the drive in bytes (AvailableSpace or FreeSpace properties) 
msgbox "Available Space: " & FormatNumber(d.AvailableSpace/1024, 0)
'What letter is assigned to the drive (DriveLetter property) 
msgbox "Drive " & d.DriveLetter
'What type of drive it is, such as removable, fixed, network, CD-ROM, or RAM disk (DriveType property) 
'0:"Unknown"
'1:"Removable"
'2:"Fixed"
'3:"Network"
'4:"CD-ROM"
'5:"RAM Disk"
msgbox d.DriveType
'The drive's serial number (SerialNumber property) 
msgbox d.SerialNumber
'********************************************************************************
'******************************Working with Folders*********************************
'********************************************************************************
'Create Folder
CreateObject("scripting.filesystemobject").CreateFolder(FolderPath)
'Delete Folder
CreateObject("scripting.filesystemobject").DeleteFolder(FolderPath)
'Move Folder
CreateObject("scripting.filesystemobject").MoveFolder SourceFolderPath,DestinationFolderPath
'Copy Folder
CreateObject("scripting.filesystemobject").CopyFolder SourceFolderPath,DestinationFolderPath
'Get Name of a Folder
msgbox CreateObject("scripting.filesystemobject").GetFolder(FolderPath).Name
'Check for Folder Existance
msgbox CreateObject("scripting.filesystemobject").FolderExists(FolderPath)
'Get Parent Folder Name
msgbox CreateObject("scripting.filesystemobject").GetFolder(FolderPath).ParentFolder.Name
'Get Sub Folders from a Folder
Dim fso,fld,sfolders,sFld
Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFolder(FolderPath)
Set sfolders = fld.SubFolders
For Each sFld in sfolders
msgbox sFld.name 
Next
'Get Files From a Folder
Dim fso,fld,sFiles,sFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFolder(FolderPath)
Set sFiles = fld.Files
For Each sFile in sFiles
msgbox sFile.name 
Next
'********************************************************************************
'******************************Working with Files***********************************
'********************************************************************************
'Creating Text Files
CreateObject("Scripting.FileSystemObject").CreateTextFile(FileName)
'Read Text File 
Set fso=CreateObject("scripting.filesystemobject")
Set fl=fso.OpenTextFile(FilePath,1)
'Reading Specified number of Characters
MsgBox fl.Read(5)
'Reading Complete Data from File
MsgBox fl.ReadAll
'Read Data Line by Line
While Not fl.AtEndOfStream
MsgBox fl.ReadLine
Wend
'Write Data to a text file
Set fso=CreateObject("scripting.filesystemobject")
Set fl=fso.OpenTextFile(FilePath,2)
'Write characters
fl.Write("hello")
'Write blank lines
fl.WriteBlankLines(2)
'Write data line by line 
fl.WriteLine("A New Line")
 
'Update/Append Data to a Text File
Set fso=CreateObject("scripting.filesystemobject")
Set fl=fso.OpenTextFile(FilePath,8)
'Write characters
fl.Write("hello")
'Write blank lines
fl.WriteBlankLines(2)
'Write data line by line 
fl.WriteLine("A New Line")
 
'Remove Data From a text File
Set fso=CreateObject("scripting.filesystemobject")
Set fl=fso.OpenTextFile(FilePath,2)
'Write nothig
fl.Write("")
'Moving a File
CreateObject("scripting.filesystemobject").MoveFile SourceFilePath,DestinationFilePath
'Copying a File
CreateObject("scripting.filesystemobject").CopyFile SourceFilePath,DestinationFilePath
'Deleting files
CreateObject("scripting.filesystemobject").DeleteFile(FilePath)
 
'********************************************************************************
'Modify a Specific Line in a TextFile
'********************************************************************************
Dim txtFilePath,txtRowNumber,TextToModify
Dim fso,f,txtData,strTxtData,cnt
txtFilePath= "C:\abc.txt"
txtRowNumber=3
TextToModify="three"
Set fso= CreateObject( "scripting. FilesystemObject ")
Set f=fso.OpenTextFile( txtFilePath, 1)
txtData=f.readall
f.close
Set f=fso.OpenTextFile( txtFilePath, 2)
strTxtData=split( txtData,vbnewline)
For cnt=0 to ubound(strTxtData)
If cnt<>txtRowNumber- 1 Then
f.writeline( strTxtData( cnt))
else
f.writeline( TextToModify )
End If
Next
f.close
'********************************************************************************
'********************************************************************************

No comments :

Post a Comment