'==========================================================================
' NAME: FSO_File_ReadAll.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

   myFolderName = "c:\Documents and Settings\nwalters\My Documents\Camtasia Studio\VBScript-Training2" 
   myFileName = "c:\rating.txt" 
   
   If fso.FolderExists(myFolderName) Then 
   
	   Set objFolder = fso.GetFolder(myFolderName) 
	   
	   WScript.Echo " Folder = " & objFolder.Name 
	   WScript.Echo " DateCreated = " & objFolder.DateCreated 
	   
	   Dim posLastSlash 
	   posLastSlash = InStrRev(myFolderName,"\") 
	   
	   
	   'dirname = "test"  len 4  dirname = "test\"  len 5 and slash in pos 5 
	   If posLastSlash = Len(myFolderName) Then 
	     'already ends with slash 
	     myFQFilename = myFolderName & myFileName
	   Else 
	     myFQFilename = myFolderName & "\" & myFileName
	   End If 
	   
	   WScript.Echo "FQ Filename=" & myFQFilename 
	   
	   If fso.FileExists(myFQFilename) Then 
		   Set objFile = fso.GetFile(myFQFilename) 
		   WScript.Echo "FileSize=" & objFile.Size 
		   
		   Set objTextStream = objFile.OpenAsTextStream (forReading) 
		   
		   fileContents = objTextStream.ReadAll 
		   
		   WScript.Echo "Length=" & len(fileContents) 
		   
		   WScript.Echo "Filename= " & myFileName 
		   WScript.Echo "FileContents = " & VbCrLf & fileContents 
	   Else 
	       WScript.Echo "File " & myFileName & " does not exist." 
	   End If 
	   
   Else 
   'If not exist - show the user the error 
       WScript.Echo "Folder does not exist: " & myFolderName 
   
   End If 


'==========================================================================
' 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)
   fileContents =   objTextStream.ReadAll
   
   WScript.Echo fileContents