windows.vbs.FSO.文件操作信息.磁盤驅動信息.文件夾操作信息全集
2020-07-26 12:04:25
供稿:網友
 
						源址: 
http://www.zhouguoqing.com.cn/article.asp?id=50 
' FSO 文件操作相關 
' FSO 參數詳解: 
' Fso.IsRootFolder=True|False  '是否為根目錄 
' Fso.GetFolder    '讀取文件夾  用法:Set fldr = fso.GetFolder("C://目錄2") 
' Fso.FolderExists=True|False  '查找此文件夾是否存在 
' Fso.CreateFolder   '創建文件夾  用法:fso.CreateFolder("C://目錄1") 
' Fso.GetBaseName    '返回文件夾的名字 用法:fso.GetBaseName("C://目錄1") 
' Fso.DeleteFolder   '刪除指定的文件夾 用法:fso.DeleteFolder("C://目錄1") 
' Fso.MoveFolder    '移動指定的文件夾 用法:fso.MoveFolder("C://目錄1","C://目錄2") 將C://目錄1移動到C://目錄2下 
' Fso.CopyFolder    '復制指定的文件夾 用法:fso.CopyFolder("C://目錄2//cnbruce","c://") 將C://目錄2//cnbruce復制到C://下 
' 
' Fso.Drive    '返回驅動器的名字 返回 “D:” 
' Fso.GetDriveName   '提取驅動器名 返回“d:” 
' Fso.GetDrive    '提取驅動器名 返回 “D:” 常用寫法:fso.GetDrive(fso.GetDriveName(drvPath)) 
' 磁盤驅動器信息 
' Drv.DriveLetter    '返回盤符 
' Drv.VolumeName    '取得驅動器的卷標 
' Drv.TotalSize    '取得空間總大小  返回字節數,用FormatNumber(Drive.TotalSize/1024,0)格式化,返回多少G 
' Drv.FreeSpace    '剩余空間大小  返回同上 
' Drv.DriveType    '文件類型   0“設備無法識別” 1“軟盤驅動器” 2“硬盤驅動器” 3“網絡硬盤驅動器” 4“光盤驅動器” 5“RAM虛擬磁盤” 
' Drv.FileSystem    '磁盤格式 
' Drv.SerialNumber   '磁盤系列號 
' Drv.IsReady    '是否可用 
' Drv.Path    '磁盤路徑 
' 
' FSO文件操作 
' Txt.OpenTextFile   '打開指定的文件  用法:fso.OpenTextFile(whichfile,1) 參數1:表示“ForReading:只讀,禁寫。” 參數2:表示“ForWriting:可讀,可寫。” 參數8:表示“ForAppending:打開文件并從文件末尾開始寫” 
' Txt.ReadLine    '讀取一整行 
' Txt.Read(7)    '讀取指定數量字符 
' Txt.ReadAll    '讀取文本所有內容 
' Txt.CreateTextFile   '創建文件   用法:Set MyFile = Txt.CreateTextFile(whichfile,True) True即表示能覆蓋已有文件 
' Txt.WriteLine    '向已有文件寫入內容 用法:Txt.WriteLine("歡迎您來到本站") 
' Txt.Name    '返回文件名稱 
' Txt.ShortPath    '返回文件短路徑名 
' Txt.Path    '返回文件物理地址 
' Txt.Attributes    '返回文件屬性 
'  返回值附錄: 
'  Normal  0 普通文件。 沒有設置任何屬性 
'  ReadOnly 1 只讀文件。 可讀寫 
'  Hidden   2 隱藏文件。 可讀寫 
'  System   4 系統文件。 可讀寫 
'  Directory  16 文件夾或目錄。 只讀 
'  Archive  32 上次備份后已更改的文件。 可讀寫 
'  Alias   1024 鏈接或快捷方式。 只讀 
'  Compressed  2048 壓縮文件。 只讀 
' 
' Txt.Move    '移動指定的文件  用法:Set Txt = fso.GetFile(whichfile) Txt.Move "C://" 
' Txt.Copy    '復制指定的文件  用法:Set Txt = fso.GetFile(whichfile) Txt.Copy "D://" 
' Txt.delete    '刪除指定的文件  用法:Set Txt = fso.GetFile("d://cnbruce.txt") Txt.delete 
' 
' 
' Txt.Size    '返回文件大小 
' Txt.Type    '返回文件類型 
' Txt.DateCreated    '返回文件創建時間 
' Txt.DateLastAccessed   '返回文件最近訪問時間 
' Txt.DateLastModified   '返回文件最后修改時間 
' 
' 
' 常用函數記錄 
' instr     '用法:alert(instr("Abcde","A")) 
' mid     '用法:alert(mid("abjdllodfjd",2,8)) 說明:顯示從第二位到第8位的這符 
' 
'------------------------------------------------