描述：提供對文件所有屬性的訪問，從FSO對象的GetFile方法獲得。
使用File對象
要用File對象模型來編程必須先用FileSystemObject(FSO)對象的GetFile方法獲取文件的句柄
1、使用 CreateObject 方法來創建 FileSystemObject 對象
2、使用GetFile方法獲取文件的句柄
3、在創建的File對象上使用適當的方法
4、訪問對象的屬性
方法：(僅常用的方法)
Copy方法
描述：將指定的文件從某位置復制到另一位置。
語法：object.Copy(destination[, overwrite])
參數：object,必選項。應為 File對象的名稱。
destination,必選項。復制文件的目標位置。不允許使用通配符。
overwrite,可選項。Boolean值。如果覆蓋現有文件，則為True（默認），否則為 False。
示例：復制c:\testfile.txt這個文件到D盤
Dim Fso,MyFile
'創建FileSystemObject對象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用GetFile方法獲取文件的句柄
Set MyFile = Fso.GetFile("c:\test.txt")
'Copy方法，將指定的文件復制到指定的存在的位置
MyFile.Copy("D:\") '覆蓋存在的文件
MyFile.Copy "D:\",False '不覆蓋存在的文件
Delete方法
描述：刪除指定的文件
語法：object.Delete force
參數：object必選項。應為 File對象的名稱。
force可選項。Boolean 值。如果要刪除的文件的屬性設置為只讀屬性，則該值為 True；否則為 False（默認）。
示例：刪除c:\testfile.txt這個文件
Dim Fso,MyFile
'創建FileSystemObject對象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用GetFile方法獲取文件的句柄
Set MyFile = Fso.GetFile("c:\test.txt")
'Delete方法，刪除指定的文件
MyFile.Delete
'True 刪除只讀文件
MyFile.Delete True
Move方法
描述：將指定的文件從某位置移動到另一位置。
語法：object.Move(destination)
參數：object必選項。應為 File對象的名稱。
destination必選項。目標位置。表示要將文件移動到該位置。不允許使用通配符。
示例：移動c:\testfile.txt到d盤
Dim Fso,MyFile
'創建FileSystemObject對象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用GetFile方法獲取文件的句柄
Set MyFile = Fso.GetFile("c:\test.txt")
'Move方法，移動指定的文件
MyFile.Move("D:\")
屬性：(僅常用的屬性)
Attributes
描述：設置或返回文件的屬性，可讀寫或只讀（與屬性有關）
語法：object.Attributes [= newattributes]
參數：object 必選項。應為 File 或 Folder 對象的名稱
newattributes可選項。如果指定參數，則 newattributes 為指定的 object 的屬性的新值。
newattributes 參數可為下列設置之一或下列設置的合理組合：
Normal 0 普通文件。沒有設置任何屬性。
ReadOnly 1 只讀文件。可讀寫。
Hidden 2 隱藏文件。可讀寫。
System 4 系統文件。可讀寫。
Directory 16 文件夾或目錄。只讀。
Archive 32 上次備份后已更改的文件。可讀寫。
Alias 1024 鏈接或快捷方式。只讀。
Compressed 2048 壓縮文件。只讀。
說明：忽略對只讀屬性（別名，壓縮或目錄）所作的改變。當設置屬性時，應首先閱讀當前屬性，然后按要求改變個別屬性，最后反寫屬性.
示例：獲取c:\test.txt的屬性，設置c:\test.txt的屬性為只讀並顯示出來
Dim Fso,MyFile
Dim Attributes
'創建FileSystemObject對象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用GetFile方法獲取文件的句柄
Set MyFile = Fso.GetFile("c:\test.txt")
'Attributes屬相，獲取文件屬性
Attributes = MyFile.Attributes
Msgbox Attributes
'設置c:\test.txt的屬性為只讀並顯示出來
MyFile.Attributes = 1
Attributes = MyFile.Attributes
Msgbox Attributes
DateCreated
描述：返回指定的文件或文件夾的創建日期和時間
語法：object.DateCreated
參數：object 應為 File 或 Folder 對象的名稱
示例：顯示c:\test.txt的創建時間
Dim Fso,MyFile
Dim DateCreated
'創建FileSystemObject對象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用GetFile方法獲取文件的句柄
Set MyFile = Fso.GetFile("c:\test.txt")
'DateCreated屬性，獲取文件創建的時間
DateCreated = MyFile.DateCreated
MsgBox DateCreated
DateLastAccessed
描述：返回指定的文件或文件夾的上次訪問日期和時間
語法：object. DateLastAccessed
參數：object 應為 File 或 Folder 對象的名稱
示例：顯示c:\test.txt的上次訪問時間
Dim Fso,MyFile
Dim DateLastAccessed
'創建FileSystemObject對象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用GetFile方法獲取文件的句柄
Set MyFile = Fso.GetFile("c:\test.txt")
'DateLastAccessed屬性，獲取文件上一次訪問的時間
DateLastAccessed = MyFile.DateLastAccessed
MsgBox DateLastAccessed
DateLastModified
描述：返回指定的文件或文件夾的上次修改日期和時間
語法：object. DateLastModified
參數：object 應為 File 或 Folder 對象的名稱
示例：顯示c:\test.txt的創建時間
Dim Fso,MyFile
Dim DateLastModified
'創建FileSystemObject對象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用GetFile方法獲取文件的句柄
Set MyFile = Fso.GetFile("c:\test.txt")
'DateLastModified屬性，獲取文件上一次修改的時間
DateLastModified = MyFile.DateLastModified
MsgBox DateLastModified
Name
描述：設置或返回指定的文件或文件夾的名稱，可讀寫
語法：object. Name [= newname]
參數：object必選項。應為 File 或 Folder 對象的名稱
newname可選項。如果提供此參數，則指定的 object 名稱更新為 newname
示例：顯示c:\test.txt的名字，且修改文件名再顯示文件名
Dim Fso,MyFile
Dim name
'創建FileSystemObject對象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用GetFile方法獲取文件的句柄
Set MyFile = Fso.GetFile("c:\test.txt")
'name屬性，獲取文件名稱
name = MyFile.name
MsgBox name
'修改文件名
MyFile.name = "test1.txt"
name = MyFile.name
MsgBox name
ParentFolder
描述：返回指定文件或文件夾的父文件夾
語法：object.ParentFolder
參數：object 應為 File 或 Folder 對象的名稱
示例：顯示c:\test.txt所在文件夾名稱
Dim Fso,MyFile
Dim parentfolder
'創建FileSystemObject對象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用GetFile方法獲取文件的句柄
Set MyFile = Fso.GetFile("c:\test.txt")
'parentfolder屬性，獲取文件父文件夾
parentfolder = MyFile.parentfolder
MsgBox parentfolder
ShortName
描述：返回按照早期 8.3 文件命名約定轉換的短文件名
語法：object.ShortName
參數：object 應為 File 或 Folder 對象的名稱
示例：獲取” C:\Program Files\Internet Explorer\JSProfilerCore.dll”的ShortName
Dim Fso,MyFile
Dim ShortName
'創建FileSystemObject對象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用GetFile方法獲取文件的句柄
Set MyFile = Fso.GetFile("C:\Program Files\Internet Explorer\JSProfilerCore.dll")
'ShortName屬性，獲取文件的ShortName
ShortName = MyFile.ShortName
MsgBox ShortName
ShortPath
描述：返回按照 8.3 命名約定轉換的短路徑名
語法：object. ShortPath
參數：object 應為 File 或 Folder 對象的名稱
示例：獲取” C:\Program Files\Internet Explorer\JSProfilerCore.dll”的ShortPath
Dim Fso,MyFile
Dim ShortPath
'創建FileSystemObject對象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用GetFile方法獲取文件的句柄
Set MyFile = Fso.GetFile("C:\Program Files\Internet Explorer\JSProfilerCore.dll")
'ShortPath屬性，獲取文件的ShortPath
ShortPath = MyFile.ShortPath
MsgBox ShortPath
Size
描述：返回指定文件的字節數
語法：object. Size
參數：object 應為 File 或 Folder 對象的名稱
示例：獲取C:\test.txt文件大小
Dim Fso,MyFile
Dim size
'創建FileSystemObject對象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用GetFile方法獲取文件的句柄
Set MyFile = Fso.GetFile("C:\test.txt")
'size屬性，獲取文件的大小
size = MyFile.Size
size = size/1024&"KB"
MsgBox size
Type
描述：返回文件或文件夾的類型信息
語法：object. Type
參數：object 應為 File 或 Folder 對象的名稱。
示例：獲取C:\test.txt的文件類型
Dim Fso,MyFile
Dim MyType
'創建FileSystemObject對象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用GetFile方法獲取文件的句柄
Set MyFile = Fso.GetFile("C:\test.txt")
'Type屬性，獲取文件的類型
MyType = MyFile.Type
MsgBox MyType