Drives
<%
Option Explicit
Dim objFileSys
Dim objDrives
Set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
Set objDrives = objFileSys.Drives
%>



BuildPath
<%
Option Explicit
Dim objFileSys
Dim ThePath1
Dim ThePath2
set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
ThePath1 = "c:\Program Files"
ThePath2 = "c:\Program Files\"
Response.Write objFileSys.BuildPath(ThePath1, "Office") & "<P>"
Response.Write objFileSys.BuildPath(ThePath1, "\Office") & "<P>"
Response.Write objFileSys.BuildPath(ThePath2, "Office") & "<P>"
Response.Write objFileSys.BuildPath(ThePath2, "\Office") & "<P>"
%>

CreateFolder
<%
Option Explicit
Dim objFileSys
Dim TheNewFolder
set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
set TheNewFolder = objFileSys.CreateFolder("c:\inetpub\wwwroot\myfolder")
%>


Delete
<%
Option Explicit
Dim objFileSys
set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
objFileSys.DeleteFile "c:\docs\mydoc.txt"
objFileSys.DeleteFile "c:\docs\*.txt"
%>


Drives
<%
Option Explicit
Dim objFileSys
set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
Response.Write "Drive C is valid: " & objFileSys.DriveExists("C") & "<P>"
Response.Write "Drive A is valid: " & objFileSys.DriveExists("A") & "<P>"
Response.Write "Drive R is valid: " & objFileSys.DriveExists("R") & "<P>"
%>



FileExists
<%
Option Explicit
Dim objFileSys
set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
Response.Write objFileSys.FileExists("myfile.txt") & "<P>"
Response.Write objFileSys.FileExists("..\myfile.txt") & "<P>"
Response.Write objFileSys.FileExists("c:\docs\myfile.txt") & "<P>"
%>



FolderExists
<%
Option Explicit
Dim objFileSys
set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
Response.Write objFileSys.FolderExists(".\Docs\MyFolder") & "<P>"
Response.Write objFileSys.FolderExists("MyFolder") & "<P>"
Response.Write objFileSys.FolderExists("..\..\MyFolder") & "<P>"
%>


Path
<%
Option Explicit
Dim objFileSys
set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
Response.Write objFileSys.GetAbsolutePathName("") & "<P>"
Response.Write objFileSys.GetAbsolutePathName(".\") & "<P>"
Response.Write objFileSys.GetAbsolutePathName("..\") & "<P>"
Response.Write objFileSys.GetAbsolutePathName("..\..\") & "<P>"
%>



GetBaseName
<%
Option Explicit
Dim objFileSys
set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
Response.Write objFileSys.GetBaseName("c:\docs\myfile.txt") & "<P>"
Response.Write objFileSys.GetBaseName("myfile.txt") & "<P>"
Response.Write objFileSys.GetBaseName("c:\docs\myfile") & "<P>"
%>



DriveName
<%
Option Explicit
Dim objFileSys
set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
Response.Write "<B>" & objFileSys.GetDriveName("c:\docs\doc1.txt") & "<P>"
Response.Write objFileSys.GetDriveName("c:\my documents") & "<P>"
Response.Write objFileSys.GetDriveName("a:") & "<P>"
%>


Extension
<%
Option Explicit
Dim objFileSys
set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
Response.Write objFileSys.GetExtensionName("c:\docs\doc1.txt") & "<P>"
Response.Write objFileSys.GetExtensionName("doc1.txt") & "<P>"
Response.Write objFileSys.GetExtensionName("doc1") & "<P>"
%>


FileName
<%
Option Explicit
Dim objFileSys
set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
Response.Write "The file name is: " & objFileSys.GetFileName("c:\docs\doc1.txt") & "<P>"
Response.Write "The file name is: " & objFileSys.GetFileName(".\doc1.txt") & "<P>"
Response.Write "The file name is: " & objFileSys.GetFileName("c:\docs\doc1") & "<P>"
%>


Parent Folder
<%
Option Explicit
Dim objFileSys
set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
Response.Write objFileSys.GetParentFolderName("c:\support\docs\doc1.txt") & "<P>"
Response.Write objFileSys.GetParentFolderName("c:\support\docs") & "<P>"
Response.Write objFileSys.GetParentFolderName("c:\support") & "<P>"
%>


GetSpecialFolder
<%
Option Explicit
Dim objFileSys
set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
Response.Write "Path to Windows: " & objFileSys.GetSpecialFolder(0) & "<P>"
Response.Write "Path to Windows/System: " & objFileSys.GetSpecialFolder(1) & "<P>"
Response.Write "Path to Temp Folder: " & objFileSys.GetSpecialFolder(2) & "<P>"
%>


Drives Collection
<%
Option Explicit
Dim objFileSys
Dim MyDrives
Dim TheDrive
set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
set MyDrives = objFileSys.Drives
Response.Write "Total Drives: " & MyDrives.Count & "<P>"
set TheDrive = MyDrives.Item("C")
Response.Write "Drive C is: " & TheDrive.DriveLetter & "<P>"
For Each TheDrive in MyDrives
	Response.Write "Drive: " & TheDrive.DriveLetter & "<P>"
Next
%>


Drive Object
<%
Option Explicit
Dim objFileSys
Dim MyDrives
Dim TheDrive
Dim TheRootFolder
set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
set MyDrives = objFileSys.Drives
set TheDrive = MyDrives.Item("E")
Response.Write "Available Space: " & FormatNumber(TheDrive.AvailableSpace, 0) & "<P>"
Response.Write "Drive Letter: " & TheDrive.DriveLetter & "<P>"
Response.Write "Drive Type: " & TheDrive.DriveType & "<P>"
Response.Write "File System: " & TheDrive.FileSystem & "<P>"
Response.Write "Free Space: " & FormatNumber(TheDrive.FreeSpace, 0) & "<P>"
Response.Write "Is Ready: " & TheDrive.IsReady & "<P>"
Response.Write "Path: " & TheDrive.Path & "<P>"
set TheRootFolder = TheDrive.RootFolder
Response.Write "Serial Number: " & TheDrive.SerialNumber & "<P>"
Response.Write "Share Name: " & TheDrive.ShareName & "<P>"
Response.Write "Total Size: " & FormatNumber(TheDrive.TotalSize, 0) & "<P>"
Response.Write "Volume Name: " & TheDrive.VolumeName & "<P>"
%>


Folders
<%
Option Explicit
Dim objFileSys
Dim MyDrives
Dim TheDrive
Dim TheRootFolder
Dim RootFolders
Dim SubFolder
set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
set MyDrives = objFileSys.Drives
set TheDrive = MyDrives.Item("E")
set TheRootFolder = TheDrive.RootFolder
set RootFolders = TheRootFolder.SubFolders
Response.Write "Total Folders in root: " & RootFolders.Count & "<P>"
set SubFolder = RootFolders.Item("Admin")
RootFolders.Add "NewFolder"
For Each SubFolder in RootFolders
	Response.Write SubFolder.Name & "<BR>"   
Next
%>


Folder
<%
Option Explicit
Dim objFileSys
Dim TheFolder
Dim TheFiles
Dim TheSubFolders
set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
set TheFolder = objFileSys.GetFolder("c:\my documents")
Response.Write "Attributes: " & TheFolder.Attributes & "<BR>"
Response.Write "Date Created: " & TheFolder.DateCreated & "<BR>"
Response.Write "Date Last Accessed: " & TheFolder.DateLastAccessed & "<BR>"
Response.Write "Date Last Modified: " & TheFolder.DateLastModified & "<BR>"
Response.Write "Drive: " & TheFolder.Drive & "<BR>"
Set TheFiles = TheFolder.Files
Response.Write "Is Root Folder: " & TheFolder.IsRootFolder & "<BR>"
Response.Write "Name: " & TheFolder.Name & "<BR>"
Response.Write "Parent Folder: " & TheFolder.ParentFolder & "<BR>"
Response.Write "Path: " & TheFolder.Path & "<BR>"
Response.Write "Short Name: " & TheFolder.ShortName & "<BR>"
Response.Write "Short Path: " & TheFolder.ShortPath & "<BR>"
Response.Write "Size: " & TheFolder.Size & "<BR>"
Set TheSubFolders = TheFolder.SubFolders
%>


Files
<%
Option Explicit
Dim objFileSys
Dim TheFolder
Dim TheFiles
Dim AFile
set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
set TheFolder = objFileSys.GetFolder("c:\my documents")
Set TheFiles = TheFolder.Files
Response.Write "Total files in collection: " & TheFiles.Count & "<P>"
Set AFile = TheFiles.Item("nmaha.mdb")
For Each AFile in TheFiles
   Response.Write AFile.Name & "<P>"
Next
%>


File
<%
Option Explicit
Dim objFileSys
Dim TheFolder
Dim TheFiles
Dim TheFile
set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
set TheFolder = objFileSys.GetFolder("c:\my documents")
Set TheFiles = TheFolder.Files
set TheFile = TheFiles.Item("nmaha.mdb")
If TheFile.Attributes and 1 Then
	Response.Write "The file is read only.<BR>"
else
	Response.Write "The file is not read only.<BR>"
End If
TheFile.Attributes = TheFile.Attributes or 1
If TheFile.Attributes and 1 Then
	Response.Write "The file is read only.<BR>"
else
	Response.Write "The file is not read only.<BR>"
End If
TheFile.Attributes = TheFile.Attributes and not 1
If TheFile.Attributes and 1 Then
	Response.Write "The file is read only.<BR>"
else
	Response.Write "The file is not read only.<BR>"
End If
Response.Write "Attributes: " & TheFile.Attributes & "<BR>"
Response.Write "Date Created: " & TheFile.DateCreated & "<BR>"
Response.Write "Date Last Accessed: " & TheFile.DateLastAccessed & "<BR>"
Response.Write "Date Last Modified: " & TheFile.DateLastModified & "<BR>"
Response.Write "Drive: " & TheFile.Drive & "<BR>"
Response.Write "Name: " & TheFile.Name & "<BR>"
Response.Write "Parent Folder: " & TheFile.ParentFolder & "<BR>"
Response.Write "Path: " & TheFile.Path & "<BR>"
Response.Write "Short Name: " & TheFile.ShortName & "<BR>"
Response.Write "Short Path: " & TheFile.ShortPath & "<BR>"
Response.Write "Size: " & TheFile.Size & "<BR>"
Response.Write "Type: " & TheFile.Type & "<BR>"
%>


TextStream
<%
Option Explicit
Dim objFileSys
Dim TheTextStream
set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
set TheTextStream = objFileSys.CreateTextFile("temp.txt", True)
TheTextStream.WriteLine "This is the first line."
TheTextStream.WriteLine "This is the second line."
TheTextStream.Write "No end of line."
TheTextStream.WriteBlankLines 2
TheTextStream.WriteLine "Another line."
TheTextStream.Close
set TheTextStream = objFileSys.OpenTextFile("temp.txt", 1)
Response.Write TheTextStream.ReadAll & "<P>"
TheTextStream.Close
set TheTextStream = objFileSys.OpenTextFile("temp.txt", 1)
Do Until TheTextStream.AtEndOfStream
   Response.Write TheTextStream.ReadLine & "<BR>"
Loop
TheTextStream.Close
set TheTextStream = objFileSys.OpenTextFile("temp.txt", 1)
Response.Write "<BR>" & TheTextStream.Read(6) & "<P>"
Response.Write "On Line: " & TheTextStream.Line & "<BR>Column: " & TheTextStream.COlumn
TheTextStream.Skip 4
Response.Write "<BR>" & TheTextStream.Read(3) & "<P>"
TheTextStream.SkipLine
Response.Write TheTextStream.ReadLine
%>


Dictionary
<%
Option Explicit
Dim ThePages
set ThePages = Server.CreateObject("Scripting.Dictionary")
ThePages.Add "Home", "This is the home page of the site"
ThePages.Add "Support", "Here you will find our knowledge base"
ThePages.Add "Contact", "This page contains our contact information"
ThePages.Add "Sale", "List of our products currently on sale"
Response.Write ThePages.Item("Home") & "<P>"
Response.Write ThePages("Contact") & "<P>"
%>