VBS基礎(chǔ)篇 - FileSystemObject對(duì)象詳解

‘如下腳本就可以獲得FileSystemObject的Drivers屬性
Set objFSO = CreateObject ("Scripting.FileSystemObject")
Set colDrivers = objFSO.Drivers

' 創(chuàng)建FileSystemObject對(duì)象

Set objFSO = CreateObject("Scripting.FileSystemObject")
' 創(chuàng)建Drives集合，并賦值給colDrives

Set colDrives = objFSO.Drives

' 遍歷Drives集合

For Each objDrive in colDrives

'判斷驅(qū)動(dòng)器是否已準(zhǔn)備好

    If objDrive.IsReady Then

        msg = "驅(qū)動(dòng)器的名稱為："  objDrive.DriveLetter  "  "

      msg =msg  "驅(qū)動(dòng)器文件系統(tǒng)的類型："  objDrive.FileSystem " "

        msg = msg  "驅(qū)動(dòng)器的總?cè)萘浚?  int(objDrive.TotalSize/(1024*1024*1024))  "G "

        msg = msg  "剩余空間的總量："  int(objDrive.FreeSpace/(1024*1024*1024))  "G "

    End If

Next

reporter.ReportEvent micDone ,"遍歷Drives集合",msg

' 創(chuàng)建FileSystemObject對(duì)象

    Set objFSO = CreateObject ("Scripting.FileSystemObject")

For intCode = 65 To 90 'ANSI codes for 'A' to 'Z'

     strLetter = Chr(intCode) 'Chr:返回與指定的 ANSI 字符代碼相對(duì)應(yīng)的字符。

      If objFSO.DriveExists(strLetter) Then '判斷相應(yīng)的盤符是否存在，如存在輸出

         Reporter.ReportEvent micDone,"Show Drive”,” Found drive "  strLetter

      End If

Next

' 創(chuàng)建FileSystemObject對(duì)象
Set objfso = createobject("scripting.FileSystemObject")
' 將D:/test下所有的內(nèi)容復(fù)制到c:/123
objfso.CopyFolder "D:/test","c:/123"

' 創(chuàng)建FileSystemObject對(duì)象

Set objfso = createobject("scripting.FileSystemObject")

‘ 在c:/創(chuàng)建new folder文件夾，如果文件夾存在，則會(huì)出現(xiàn)錯(cuò)誤提示

objfso.CreateFolder("c:/new folder")

‘ 刪除c:/new folder文件夾

objfso.DeleteFolder("c:/new folder")

Function hanshu(strpath)
    Dim objfso,objset
    ‘ 創(chuàng)建FileSystemObjec對(duì)象
    Set objfso = CreateObject("Scripting.FileSystemObject")
    ‘ 判斷在指定的路徑中是否有
    If Not objfso.FolderExists(strpath) Then
        objset = objfso.CreateFolder(strpath)
    else
        objset = objfso.DeleteFolder(strpath)
    End If
    hanshu = objset
End Function
 
hanshu("c:/new folder")

Dim objfso
‘創(chuàng)建FileSystemObject對(duì)象
Set objfso = createobject("Scripting.FileSystemObject")
‘返回當(dāng)前的目錄，下面兩條語句返回一樣的結(jié)果
msgbox (objfso.GetAbsolutePathName(""))
msgbox (objfso.GetAbsolutePathName("C:"))

Dim objfso,objset
'創(chuàng)建FileSystemObject對(duì)象
Set objfso = createobject("Scripting.FileSystemObject")
'返回C:/testing的Folder的對(duì)象
Set objset = objfso.GetFolder("C:/testing")
' 根據(jù)所返回的Folder對(duì)象，去訪問其相關(guān)的屬性
reporter.ReportEvent micDone ,"Folder對(duì)象的相關(guān)屬性","文件夾創(chuàng)建的日期："  objset.DateCreated "; 文件夾所在的驅(qū)動(dòng)："  objset.Drive  "; 文件夾的名字："  objset.Name

Dim objfso
'創(chuàng)建FileSystemObject對(duì)象
Set objfso = createobject("Scripting.filesystemobject")
'使用GetParentFolderName方法來返回上一層文件夾
msgbox (objfso.GetParentFolderName("C:/WINDOWS/addins"))

Dim fso,tempName
Set fso = CreateObject("Scripting.FileSystemObject")
'GetSpecialFolder()中的參數(shù)2，返回一個(gè)名為Temp的臨時(shí)文件夾
Set tempName = fso.GetSpecialFolder(2)
msgbox tempName

Dim sourcepath,destination
sourcepath = "C:/testing"
destination = "C:/123"
'調(diào)用MoveFolders方法
call MoveFolders(sourcepath,destination)
 
Sub MoveFolders(sourcepath,destination)
  Dim fso
    '創(chuàng)建FileSystemObject對(duì)象
  Set fso = CreateObject("Scripting.FileSystemObject")
    '使用MoveFolder方法，將testing文件夾的內(nèi)容移動(dòng)到123文件夾下
  fso.MoveFolder sourcepath,destination
End Sub

Dim sourcepath
sourcepath = "C:/testing"
Call FolderAttributes(sourcepath)
 
Sub FolderAttributes(sourcepath)
  Dim fso,objset
  Set fso = CreateObject("Scripting.FileSystemObject")
  '使用GetFolder方法來返回Folder對(duì)象
  Set objset = fso.getFolder(sourcepath)
  '將testing中的所有內(nèi)容復(fù)制到123文件夾中
  objset.Copy("d:/123")
End Sub

Dim sourcepath
sourcepath = "C:/testing"
Call FolderAttributes(sourcepath)
 
Sub FolderAttributes(sourcepath)
  Dim fso,objset
  Set fso = CreateObject("Scripting.FileSystemObject")
  '使用GetFolder方法來返回Folder對(duì)象
  Set objset = fso.getFolder(sourcepath)
  '將testingw文件夾及文件夾里所有的內(nèi)容全部刪除
  objset.Delete(True)
End Sub

Dim sourcepath
sourcepath = "C:/testing"
Call FolderAttributes(sourcepath)
 
Sub FolderAttributes(sourcepath)
  Dim fso,objset
    Set fso = CreateObject("Scripting.FileSystemObject")
    '使用GetFolder方法來返回Folder對(duì)象
    Set objset = fso.getFolder(sourcepath)
    '使用Move()將testing文件夾及里面所有的內(nèi)容，移動(dòng)到目標(biāo)文件夾123中
    objset.Move("C:/123")
End Sub

Dim sourcepath
sourcepath = "C:/testing"
Call FolderAttributes(sourcepath)
 
Sub FolderAttributes(sourcepath)
  Dim fso,objset
    Set fso = CreateObject("Scripting.FileSystemObject")
    '使用GetFolder方法來返回Folder對(duì)象
    Set objset = fso.getFolder(sourcepath)
'在testing文件夾下，使用CreateTextFile()創(chuàng)建myClass2.doc文件
  objset.CreateTextFile "myClass2.doc",true
End Sub

Dim objfso,objset
'創(chuàng)建FileSystemObject對(duì)象
Set objfso = createobject("Scripting.FileSystemObject")
'返回C:/testing的Folder的對(duì)象
Set objset = objfso.GetFolder("C:/testing")

Dim sourcepath
sourcepath = "C:/testing"
Call FolderAttributes(sourcepath)
 
Sub FolderAttributes(sourcepath)
  Dim fso,objset
    Set fso = CreateObject("Scripting.FileSystemObject")
    '使用GetFolder方法來返回Folder對(duì)象
    Set objset = fso.getFolder(sourcepath)
    '通過Folder對(duì)象來訪問Folder屬性
    reporter.ReportEvent micDone ,"測(cè)試Folder屬性","文件夾所在的磁盤為："  objset.Drive  " 文件夾所創(chuàng)建的日期："  objset.DateCreated  " 文件夾的名字為："  objset.Name
End Sub

Dim sourcepath
sourcepath = "C:/Program Files/Common Files"
Call FolderAttributes(sourcepath)
 
Sub FolderAttributes(sourcepath)
  Dim fso,objset,objFolders,FolderName,i
  i = 0
    Set fso = CreateObject("Scripting.FileSystemObject")
    '使用GetFolder方法來返回Folder對(duì)象
    Set objset = fso.getFolder(sourcepath)
    'SubFolders屬性將返回所有子文件夾對(duì)應(yīng)的Folder集合
    Set objFolders = objset.SubFolders
    '遍歷Folder集合，統(tǒng)計(jì)出共有多少個(gè)文件夾，及相關(guān)文件夾的名字
    For Each objFolder in objFolders
       i = i +1
       'vbcr為換行符
       FolderName = FolderName + objFolder.Name + vbcr
    Next
    msgbox ("共有"  i "個(gè)文件夾，文件夾的名字為："  FolderName)
End Sub

Dim objFso,objGetFolder,intCount,strFileName
intCount = 0
'創(chuàng)建FileSystemObject對(duì)象
Set objFso= CreateObject("Scripting.FileSystemObject")
'使用GetFolder()獲得文件夾對(duì)象
Set objGetFolder = objFso.GetFolder("C:/test")
'遍歷Files集合并顯示文件夾中所有的文件名
For Each strFile in objGetFolder.Files
    intCount = intCount + 1
    strFileName =strFileName  "第"  intCount  "個(gè)文件夾名為："  strFile.Name  vbcr
Next
msgbox strFileName

Dim sourcepath,targetpath
sourcepath = "C:/testing/*.txt"
targetpath = "C:/123/"
Call FolderAttributes(sourcepath,targetpath)
Sub FolderAttributes(sourcepath,targetpath)
  Dim fso
    Set fso = CreateObject("Scripting.FileSystemObject")
'將testing文件夾下所有擴(kuò)展名名為.txt的文件，復(fù)制到123文件夾下
    fso.CopyFile sourcepath,targetpath
    fso.MoveFile sourcepath,targetpath
End Sub

Dim sourcepath
sourcepath = "C:/testing/ myClass2.doc "
Call FolderAttributes(sourcepath)
 
Sub FolderAttributes(sourcepath)
  Dim fso
    Set fso = CreateObject("Scripting.FileSystemObject")
'在testing文件夾下，使用CreateTextFile()創(chuàng)建myClass2.doc文件
fso.CreateTextFile sourcepath,true
'刪除testing文件夾下，所有擴(kuò)展名為.txt的文件
fso.DeleteFile sourcepath,true
End Sub

Dim sourcepath
sourcepath = "C:/testing/test.txt"
Call FolderAttributes(sourcepath)
 
Sub FolderAttributes(sourcepath)
  Dim fso
    Set fso = CreateObject("Scripting.FileSystemObject")
    '判斷C:/testing/test.txt是否有存在，如果存在返回“true”;否則返回“false”
    If fso.FileExists(sourcepath) Then
       msgbox "true"
    else
       msgbox "false"
    End If
End Sub

Dim sourcepath
sourcepath = "C:/testing/test.txt"
Call FolderAttributes(sourcepath)
 
Sub FolderAttributes(sourcepath)
  Dim fso
    Set fso = CreateObject("Scripting.FileSystemObject")
    '返回文件名test, 擴(kuò)展名 txt, 文件名+擴(kuò)展名 test.txt
     Msgbox (fso.GetBaseName(sourcepath))
     Msgbox (fso. GetExtensionName(sourcepath))
    Msgbox (fso.GetFileName(sourcepath))
End Sub

Dim sourcepath
sourcepath = "C:/testing/778899.txt"
Call FolderAttributes(sourcepath)
 
Sub FolderAttributes(sourcepath)
  Dim fso,objFile
    Set fso = CreateObject("Scripting.FileSystemObject")
    '調(diào)用GetFile()返回File對(duì)象，通過File對(duì)象來訪問其下的屬性
    set objFile = fso.GetFile(sourcepath)
    reporter.ReportEvent micDone,"訪問file的屬性","該文件所在的盤符為："  objFile.Drive  "       文件名為："  objFile.Name
End Sub

Dim fso, tempfile
'創(chuàng)建FileSystemObject對(duì)象
Set fso = CreateObject("Scripting.FileSystemObject")
'調(diào)用CreateTempFile函數(shù)，并將對(duì)象賦值給tempfile
Set tempfile = CreateTempFile
'在臨時(shí)文件中寫入字符
tempfile.WriteLine "世界你好"
'關(guān)閉對(duì)象
tempfile.Close
 
Function CreateTempFile
  Dim tfolder, tname, tfile
  Const TemporaryFolder = 2
  'GetSpecialFolder()中的參數(shù)2，返回一個(gè)名為Temp的臨時(shí)文件夾
  Set tfolder = fso.GetSpecialFolder(TemporaryFolder)
  '隨機(jī)生成一個(gè)臨時(shí)文件名
  tname = fso.GetTempName 
  '在Temp臨時(shí)文件夾下面，創(chuàng)建一個(gè)臨時(shí)文件
  Set tfile = tfolder.CreateTextFile(tname)
  '將結(jié)果賦值給函數(shù)
  Set CreateTempFile = tfile
End Function

Dim spec
spec = "C:/testing.txt"
'三個(gè)參數(shù)的分別為：以只讀模式打開文件、以只寫方式打開文件、打開文件并在文件末尾進(jìn)行寫操作
Const intForReading = 1,intForWriting = 2,intForAppending = 8
'調(diào)用OpenTextFileTest()
Call OpenTextFileTest(spec,intForAppending)
 
Sub OpenTextFileTest(sepc,intForAppending)
  Dim fso,objTStream
  '創(chuàng)建FileSystemObject對(duì)象
  Set fso = CreateObject("Scripting.FileSystemObject")
  '參數(shù)true表示：如果文件不存在，則創(chuàng)建文件。最后OpenTextFile()將返回TextStream對(duì)象
  Set objTStream = fso.OpenTextFile(sepc,intForAppending,true)
  '利用TextStream對(duì)象來將字符串寫入文件
  objTStream.write "hello word!"
  '釋放TextStream對(duì)象
  objTStream.close
End Sub

Dim sourcepath
sourcepath = "C:/testing/778899.txt"
Call FolderAttributes(sourcepath)
 
Sub FolderAttributes(sourcepath)
  Dim fso,objFile
    Set fso = CreateObject("Scripting.FileSystemObject")
    '調(diào)用GetFile()返回File對(duì)象，通過File對(duì)象來訪問其下的屬性
    set objFile = fso.GetFile(sourcepath)
    reporter.ReportEvent micDone,"訪問file的屬性","該文件所在的盤符為："  objFile.Drive  "       文件名為："  objFile.Name
End Sub

Dim strPath,strText
strPath = "C:/testing.txt"
strText = "This is Test !"  vbCrLf  “hello word !”
'調(diào)用函數(shù)
Call CreateFile(strPath,strText)
 
Sub CreateFile(strPath,strText)
    Dim objFso,objStream
    '創(chuàng)建FileSystemObject對(duì)象
    Set objFso = CreateObject("Scripting.FileSystemObject")
    '使用FileSystemObject對(duì)象的CreateTextFile()，來返回一個(gè)TextStream對(duì)象句柄
    Set objStream = objFso.CreateTextFile(strPath,True)
    '三個(gè)Write的意思分別為：在文本中寫入字符、寫入帶換行符的字符、寫入3個(gè)換行符
     objStream.Write(strText)
    ‘objStream.WriteLine(strText)
    ‘objStream. WriteBlankLines 3
    '關(guān)閉TextStream對(duì)象
    objStream.Close
End Sub

Sub CreateFile(strPath,strText)
    Dim objFso,objStream
    '創(chuàng)建FileSystemObject對(duì)象
    Set objFso = CreateObject("Scripting.FileSystemObject")
    '使用FileSystemObject對(duì)象的CreateTextFile()，來返回一個(gè)TextStream對(duì)象句柄
    Set objStream = objFso.CreateTextFile(strPath,True)
    '寫入字符
    objStream.WriteLine(strText)
    Set objStream = objFso.OpenTextFile(strPath,1,true)
    msgbox (objStream.ReadLine)
    'msgbox (objStream.ReadAll)
  ' msgbox (objStream.Read(Len(strText)))
     '關(guān)閉TextStream對(duì)象
    objStream.Close
End Sub

Dim strPath,strText
strPath = "C:/testing.txt"
'調(diào)用函數(shù)
Call CreateFile(strPath)
 
Sub CreateFile(strPath)
    Dim objFso,objStream
    '創(chuàng)建FileSystemObject對(duì)象
    Set objFso = CreateObject("Scripting.FileSystemObject")
    '使用FileSystemObject對(duì)象的CreateTextFile()，來返回一個(gè)TextStream對(duì)象句柄
    Set objStream = objFso.CreateTextFile(strPath,True)
    '在文本中寫入字符
    objStream.Write "This is Test !"  vbCrLf  "hello word !"
    '以只讀的方式打開文件
    Set objStream = objFso.OpenTextFile(strPath,1,true)
    '讀取文件時(shí)跳過5個(gè)字符；或者跳過當(dāng)前行，讀取下一行
    objStream.Skip(5)
    'objStream.SkipLine
     '讀取文本內(nèi)容
    msgbox objStream.ReadAll
    '關(guān)閉TextStream對(duì)象
    objStream.Close
End Sub

Dim strPath,strText
strPath = "C:/testing.txt"
'調(diào)用函數(shù)
Call CreateFile(strPath)
 
Sub CreateFile(strPath)
    Dim objFso,objStream,str
    '創(chuàng)建FileSystemObject對(duì)象
    Set objFso = CreateObject("Scripting.FileSystemObject")
    '以只讀的方式打開文件，如果文件不存在則創(chuàng)建它
    Set objStream = objFso.OpenTextFile(strPath,1,true)
    '如果當(dāng)前的指針不在行末，則讀取文本內(nèi)容
    Do While objStream.AtEndOfLine > true
    ‘Do While objStream.AtEndOfStream > true
       str = str + objStream.Read(1)
    Loop
    msgbox str
     '關(guān)閉TextStream對(duì)象
    objStream.Close
End Sub

Sub TestTextStream(strPath)
  Dim objFso,objTStream,str
    Set objFso = CreateObject("Scripting.FileSystemObject")
    '以只讀的方式打開文件
    Set objTStream = objFso.OpenTextFile(strPath,1)
    '如果當(dāng)前的指針不在整個(gè)文檔的末尾，讀取文本的所有內(nèi)容
  Do While objTStream.AtEndOfStream > true
          objTStream.ReadAll
         str = str + "共有"  objTStream.Line  "行數(shù)據(jù)，光標(biāo)最后所在列號(hào)為："  objTStream.Column  vbCrLf
  Loop
    '打印信息
print str
End Sub

Set fso = CreateObject("Scripting.FileSystemObject")
Set Drivers = fso.Drives
For Each Driver in Drivers
Msgbox Driver.DriveLetter '輸出計(jì)算機(jī)上所有的磁盤盤符
Next 

Dim Fso
'創(chuàng)建FileSystemObject對(duì)象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用CreateTextFile創(chuàng)建文件,不覆蓋存在的文件
Fso.CreateTextFile "C:\test.txt",False
'覆蓋存在的文件
Fso.CreateTextFile "C:\test.txt",True

Dim Fso
'創(chuàng)建FileSystemObject對(duì)象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用MyFolder創(chuàng)建文件夾
Fso.CreateFolder("c:\test")

Dim Fso
'創(chuàng)建FileSystemObject對(duì)象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用DeleteFile刪除指定文件
Fso.DeleteFile("c:\test.txt")
'強(qiáng)制刪除只讀的文件
Fso.DeleteFile "c:\test.txt",True

Dim Fso
'創(chuàng)建FileSystemObject對(duì)象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用DeleteFile刪除指定文件
Fso.DeleteFolder("c:\test")
'強(qiáng)制刪除只讀的文件
Fso.DeleteFolder "c:\test",True

Dim Fso
'創(chuàng)建FileSystemObject對(duì)象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用FileExists判斷指定文件是否存在
MsgBox Fso.FileExists("c:\test.txt")

Dim Fso
'創(chuàng)建FileSystemObject對(duì)象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用FolderExists判斷指定文件夾是否存在
MsgBox Fso.FolderExists("c:\test")

Dim Fso
'創(chuàng)建FileSystemObject對(duì)象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用CopyFile復(fù)制文件到另一個(gè)位置,False不覆蓋已存在文件
Fso.CopyFile "c:\test.txt","D:\",False
'True覆蓋已存在文件
Fso.CopyFile "c:\test.txt","D:\",True

Dim Fso
'創(chuàng)建FileSystemObject對(duì)象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用*.txt,可以同時(shí)將多個(gè)文件復(fù)制到另一個(gè)位置,False不覆蓋已存在文件
Fso.CopyFile "c:\*.txt","D:\",False
'True表示覆蓋已存在文件
Fso.CopyFile "c:\*.txt","D:\",True

Dim Fso
'創(chuàng)建FileSystemObject對(duì)象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用CopyFile復(fù)制文件到另一個(gè)位置,默認(rèn)為True覆蓋已存在文件
Fso.CopyFolder "c:\test","D:\"
'False不覆蓋已存在文件
Fso.CopyFolder "c:\test","D:\",False

Dim Fso
'創(chuàng)建FileSystemObject對(duì)象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用MoveFile移動(dòng)文件到另一個(gè)位置
Fso.MoveFile "c:\test.txt","D:\"

Dim Fso
'創(chuàng)建FileSystemObject對(duì)象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用MoveFolder移動(dòng)文件夾到另一個(gè)位置
Fso.MoveFolder "c:\test","D:\"

Dim Fso
Dim GetExtensionName
'創(chuàng)建FileSystemObject對(duì)象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用GetExtensionName獲取文件后綴名
GetExtensionName = fso.GetExtensionName("c:\test.txt")
MsgBox GetExtensionName '輸出txt

Dim Fso
Dim GetBaseName
'創(chuàng)建FileSystemObject對(duì)象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用GetBaseName獲取文件的文件名稱
GetBaseName = Fso.GetBaseName("c:\test\test.txt")
MsgBox GetBaseName '輸出test

Dim Fso
Dim GetParentFolderName
'創(chuàng)建FileSystemObject對(duì)象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用GetParentFolderName獲取文件當(dāng)前所在的文件夾
GetParentFolderName = Fso.GetParentFolderName("c:\test\test.txt")
MsgBox GetParentFolderName '輸出c:\test