FSO Dictionary Object

Archive for the ‘Sample Code – FSO’ Category

FSO Dictionary Object

By Administrator on Thursday, July 7th, 2011 | No Comments

‘======================================================== ‘ NAME: FSO_Dictionary_Obj1.vbs ‘ AUTHOR: Neal Walters , Amerisoft Inc ‘ DATE : 3/26/2005 ‘ http://VBScript-Training.com ‘======================================================== Option Explicit Dim dict, empnum Set dict = CreateObject(“Scripting.Dictionary”) dict.Add 101, “John Doe” dict.Add 102, “Fred Flinstone” dict.Add 103, “Wilma Flinstone” dict.Add 104, “Barnie Rubble” dict.Add 222, “Betty Rubble” empnum = -1 Do While empnum 0 empnum [...]

Using FSO to Work with Disk Drives

By Administrator on Thursday, July 7th, 2011 | No Comments

‘======================================================== ‘ NAME: FSO_Drives_List.vbs ‘ AUTHOR: Neal Walters ‘ DATE : 3/26/2005 ‘ http://VBScript-Training.com ‘======================================================== WScript.Echo ShowDriveList Function ShowDriveList Dim fso, d, dc, s, n Set fso = CreateObject(“Scripting.FileSystemObject”) Set d = fso.Drives.Item(“D:”) n = “” s = s & d.DriveLetter & ” – ” If d.DriveType = Remote Then n = d.ShareName ElseIf d.IsReady [...]

Using FSO to Read All of a File Into a String Variable

By Administrator on Thursday, July 7th, 2011 | No Comments

‘========================================================== ‘ NAME: FSO_File_ReadAll.vbs ‘ AUTHOR: Neal Walters ‘ DATE : 3/26/2005 ‘ http://VBScript-Training.com ‘ ReadAll is sometimes called the “Big Gulp” method, ‘ because it reads the entire file into a string in one big gulp ‘========================================================== Option Explicit Dim fso, myFolderName, objFolder, myFileName, objFile, myFQFilename, objTextStream, fileContents Set fso = CreateObject(“Scripting.FileSystemObject”) Dim forReading, [...]

Using FSO to Read a File

By Administrator on Thursday, July 7th, 2011 | No Comments

‘=========================================================== ‘ NAME: FSO_File_ReadAll2.vbs ‘ AUTHOR: Neal Walters ‘ DATE : 3/26/2005 ‘ http://VBScript-Training.com ‘=========================================================== Option Explicit Dim fso, myFolderName, objFolder, myFileName, objFile, myFQFilename, objTextStream, fileContents Set fso = CreateObject(“Scripting.FileSystemObject”) Dim forReading, forWriting, forAppending forReading = 1 forWriting = 2 forAppending = 8 myFileName = “c:\Documents and Settings\nwalters\My Documents\Camtasia Studio\VBScript-Training2\FSO_Drive_Objects.txt” Set objTextStream = fso.OpenTextFile(myFileName, forReading) [...]

Using FSO to Write To A File

By Administrator on Thursday, July 7th, 2011 | No Comments

‘============================================================= ‘ NAME: FSO_File_Write.vbs ‘ AUTHOR: Neal Walters ‘ DATE : 3/26/2005 ‘ http://VBScript-Training.com ‘============================================================= Option Explicit Dim fso, myFolderName, objFolder, myFileNameIn, myFileNameOut, objTextStreamIn, objTextStreamOut Dim fileContents, currentLine, lineCounter Dim BlankLineCounter, filter, wordPosition, linesFoundCounter, LinesNotFoundCounter Set fso = CreateObject(“Scripting.FileSystemObject”) Dim forReading, forWriting, forAppending, overwrite forReading = 1 forWriting = 2 forAppending = 8 Overwrite = [...]

Using FSO to Recursively Show All (Child) Folders

By Administrator on Thursday, July 7th, 2011 | No Comments

‘=========================================================== ‘ NAME: FSO_Recursive.vbs – Recursively List all Folders on Disk Drive ‘ AUTHOR: Neal Walters ‘ DATE : 3/26/2005 ‘ http://VBScript-Training.com ‘=========================================================== Option Explicit Dim folder, depthLevel depthLevel = 0 folder = “C:\FSODEMO” getFolder(folder) Function getFolder(root) depthLevel = depthLevel + 1 Dim fso, folders, folder, file, files Set fso = CreateObject(“Scripting.FileSystemObject”) If fso.FolderExists(root) Then [...]

Using FSO to Delete a Folder

By Administrator on Thursday, July 7th, 2011 | No Comments

‘============================================================= ‘ NAME: FSO_Folder_Del.vbs ‘ AUTHOR: Neal Walters ‘ DATE : 3/26/2005 ‘ http://VBScript-Training.com ‘============================================================= Option Explicit Dim fso, myFolderName, objFolder Set fso = CreateObject(“Scripting.FileSystemObject”) myFolderName = “c:\Documents and Settings\nwalters\My Documents\Camtasia Studio\VBScript-Training2\MyNewDirectory” If fso.FolderExists(myFolderName) Then Set objFolder = fso.GetFolder(myFolderName) WScript.Echo ” Folder = ” & objFolder.Name WScript.Echo ” DateCreated = ” & objFolder.DateCreated objFolder.Delete WScript.Echo [...]

Using FSO to Add a New Folder

By Administrator on Thursday, July 7th, 2011 | No Comments

‘============================================================ ‘ NAME: FSO_Folder_Add.vbs ‘ AUTHOR: Neal Walters ‘ DATE : 3/26/2005 ‘ http://VBScript-Training.com ‘============================================================ Option Explicit Dim fso, myFolderName, objFolder, myNewFoldername, objFolders Set fso = CreateObject(“Scripting.FileSystemObject”) myFolderName = “c:\Documents and Settings\nwalters\My Documents\Camtasia Studio\VBScript-Training2″ myNewFolderName = “NealsNewestFolder” If fso.FolderExists(myFolderName) Then ‘Copy Folder Here Set objFolder = fso.GetFolder(myFolderName) Set objFolders = objFolder.SubFolders WScript.Echo ” Folder = [...]

Archive for the ‘Sample Code – FSO’ Category