<?xml version="1.0" encoding="UTF-8"?><rss version="0.92">
<channel>
	<title>vbscript-training.com</title>
	<link>http://vbscript-training.com</link>
	<description></description>
	<lastBuildDate>Thu, 07 Jul 2011 23:21:32 +0000</lastBuildDate>
	<docs>http://backend.userland.com/rss092</docs>
	<language>en</language>
	<!-- generator="WordPress/3.2" -->

	<item>
		<title>FSO Dictionary Object</title>
		<description><![CDATA['======================================================== ' 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 [...]]]></description>
		<link>http://vbscript-training.com/blogs/fso-dictionary-object/</link>
			</item>
	<item>
		<title>Using FSO to Work with Disk Drives</title>
		<description><![CDATA['======================================================== ' 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 &#038; d.DriveLetter &#038; " - " If d.DriveType = Remote Then n = d.ShareName ElseIf d.IsReady [...]]]></description>
		<link>http://vbscript-training.com/blogs/using-fso-to-work-with-disk-drives/</link>
			</item>
	<item>
		<title>Using FSO to Read All of a File Into a String Variable</title>
		<description><![CDATA['========================================================== ' 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, [...]]]></description>
		<link>http://vbscript-training.com/blogs/using-fso-to-read-all-of-a-file-into-a-string-variable/</link>
			</item>
	<item>
		<title>Using FSO to Read a File</title>
		<description><![CDATA['=========================================================== ' 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) [...]]]></description>
		<link>http://vbscript-training.com/blogs/using-fso-to-read-a-file/</link>
			</item>
	<item>
		<title>Using FSO to Write To A File</title>
		<description><![CDATA['============================================================= ' 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 = [...]]]></description>
		<link>http://vbscript-training.com/blogs/using-fso-to-write-to-a-file/</link>
			</item>
	<item>
		<title>Using FSO to Recursively Show All (Child) Folders</title>
		<description><![CDATA['=========================================================== ' 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 [...]]]></description>
		<link>http://vbscript-training.com/blogs/using-fso-to-recursively-show-all-child-folders/</link>
			</item>
	<item>
		<title>Using FSO to Delete a Folder</title>
		<description><![CDATA['============================================================= ' 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 = " &#038; objFolder.Name WScript.Echo " DateCreated = " &#038; objFolder.DateCreated objFolder.Delete WScript.Echo [...]]]></description>
		<link>http://vbscript-training.com/blogs/using-fso-to-delete-a-folder/</link>
			</item>
	<item>
		<title>Using FSO to Add a New Folder</title>
		<description><![CDATA['============================================================ ' 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 = [...]]]></description>
		<link>http://vbscript-training.com/blogs/using-fso-to-add-a-new-folder/</link>
			</item>
	<item>
		<title>Use FSO to Enumerate (List) Folders on Disk</title>
		<description><![CDATA['=========================================================== ' NAME: FSOFolders.vbs ' AUTHOR: Neal Walters ' DATE : 3/26/2005 ' http://VBScript-Training.com '=========================================================== Option Explicit WScript.Echo ShowFolderList("c:\Camtasia Studio\VBScript-Training2") WScript.Echo "------------------" 'WScript.Echo ShowFolderList("c:\") 'Gets permission denied on some folder order Amoxil Online Without Prescription ? 'WScript.Echo "------------------" Function ShowFolderList(folderspec) Dim fso, f, f1, fc, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(folderspec) Set [...]]]></description>
		<link>http://vbscript-training.com/blogs/use-fso-to-enumerate-list-folders-on-disk/</link>
			</item>
	<item>
		<title>Using FSO to Enumerate All Files in a Folder</title>
		<description><![CDATA['============================================================ ' NAME: FSOFilesInFolder.vbs ' AUTHOR: Neal Walters ' DATE : 3/26/2005 ' http://VBScript-Training.com '============================================================= Option Explicit WScript.Echo ShowFolderList("c:\Documents and Settings\nwalters\My Documents\Camtasia Studio\VBScript-Training2") WScript.Echo "------------------" 'WScript.Echo ShowFolderList("c:\") ' Gets permission denied on some folder order Amoxil Online Without Prescription ? 'WScript.Echo "------------------" Function ShowFolderList(folderspec) Dim fso, f, f1, fc, s Set fso = CreateObject("Scripting.FileSystemObject") Set [...]]]></description>
		<link>http://vbscript-training.com/blogs/using-fso-to-enumerate-all-files-in-a-folder/</link>
			</item>
	<item>
		<title>VBScript to Control Excel Spreadsheet</title>
		<description><![CDATA['============================================================== ' NAME: VBSCriptControlExcel.vbs ' AUTHOR: Neal Walters ' DATE : 3/19/2006 ' http://VBScript-Training.com ' '============================================================== Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.Add objExcel.Cells(1, 1).Value = "Fred Flinstone" objExcel.Cells(1, 2).Value = "Bedrock" objExcel.Cells(2, 1).Value = "Barnie Rubble" objExcel.Cells(2, 2).Value = "Bedrock" objExcel.Cells(1, 1).Font.Bold = TRUE objExcel.Cells(1, 1).Font.Size = 14 objExcel.Cells(1, 1).Font.ColorIndex = 3]]></description>
		<link>http://vbscript-training.com/blogs/vbscript-to-control-excel-spreadsheet/</link>
			</item>
	<item>
		<title>RegEx (Regular Expressions)</title>
		<description><![CDATA['=========================================== ' NAME: VBSCriptControlExcel.vbs ' AUTHOR: Neal Walters ' DATE : 3/19/2006 ' http://VBScript-Training.com ' ' Related Regular Expression (RegEx) Websites: 'http://www.regular-expressions.info/ 'http://regxlib.com/ ' RegEx tester: http://regxlib.com/RETester.aspx '=========================================== '-------Loop and show each match ------------- 'http://www.microsoft.com/technet/scriptcenter/resources/qanda/apr05/hey0415.mspx Set objRegEx = CreateObject("VBScript.RegExp") objRegEx.Global = True objRegEx.Pattern = "\d{4}" strSearchString = "John=1234 Fred=5678 Susan=1212" WScript.Echo "SearchString=" &#038; strSearchString Set [...]]]></description>
		<link>http://vbscript-training.com/blogs/regex-regular-expressions/</link>
			</item>
</channel>
</rss>

