VBS基础篇 - FileSystemObject对象详解

‘如下脚本就可以获得FileSystemObject的Drivers属性
Set objFSO = CreateObject ("Scripting.FileSystemObject")
Set colDrivers = objFSO.Drivers

' 创建FileSystemObject对象

Set objFSO = CreateObject("Scripting.FileSystemObject")
' 创建Drives集合，并赋值给colDrives

Set colDrives = objFSO.Drives

' 遍历Drives集合

For Each objDrive in colDrives

'判断驱动器是否已准备好

    If objDrive.IsReady Then

        msg = "驱动器的名称为：" & objDrive.DriveLetter & "  "

      msg =msg & "驱动器文件系统的类型：" & objDrive.FileSystem &" "

        msg = msg & "驱动器的总容量：" & int(objDrive.TotalSize/(1024*1024*1024)) & "G "

        msg = msg & "剩余空间的总量：" & int(objDrive.FreeSpace/(1024*1024*1024)) & "G "

    End If

Next

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

' 创建FileSystemObject对象

    Set objFSO = CreateObject ("Scripting.FileSystemObject")

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

     strLetter = Chr(intCode) 'Chr:返回与指定的 ANSI 字符代码相对应的字符。

      If objFSO.DriveExists(strLetter) Then '判断相应的盘符是否存在，如存在输出

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

      End If

Next

' 创建FileSystemObject对象
Set objfso = createobject("scripting.FileSystemObject")
' 将D:/test下所有的内容复制到c:/123
objfso.CopyFolder "D:/test","c:/123"

' 创建FileSystemObject对象

Set objfso = createobject("scripting.FileSystemObject")

‘ 在c:/创建new folder文件夹，如果文件夹存在，则会出现错误提示

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

‘ 删除c:/new folder文件夹

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

Function hanshu(strpath)
    Dim objfso,objset
    ‘ 创建FileSystemObjec对象
    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
‘创建FileSystemObject对象
Set objfso = createobject("Scripting.FileSystemObject")
‘返回当前的目录，下面两条语句返回一样的结果
msgbox (objfso.GetAbsolutePathName(""))
msgbox (objfso.GetAbsolutePathName("C:"))

Dim objfso,objset
'创建FileSystemObject对象
Set objfso = createobject("Scripting.FileSystemObject")
'返回C:/testing的Folder的对象
Set objset = objfso.GetFolder("C:/testing")
' 根据所返回的Folder对象，去访问其相关的属性
reporter.ReportEvent micDone ,"Folder对象的相关属性","文件夹创建的日期：" & objset.DateCreated &"; 文件夹所在的驱动：" & objset.Drive & "; 文件夹的名字：" & objset.Name

Dim objfso
'创建FileSystemObject对象
Set objfso = createobject("Scripting.filesystemobject")
'使用GetParentFolderName方法来返回上一层文件夹
msgbox (objfso.GetParentFolderName("C:/WINDOWS/addins"))

Dim fso,tempName
Set fso = CreateObject("Scripting.FileSystemObject")
'GetSpecialFolder()中的参数2，返回一个名为Temp的临时文件夹
Set tempName = fso.GetSpecialFolder(2)
msgbox tempName

Dim sourcepath,destination
sourcepath = "C:/testing"
destination = "C:/123"
'调用MoveFolders方法
call MoveFolders(sourcepath,destination)
 
Sub MoveFolders(sourcepath,destination)
  Dim fso
    '创建FileSystemObject对象
  Set fso = CreateObject("Scripting.FileSystemObject")
    '使用MoveFolder方法，将testing文件夹的内容移动到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对象
  Set objset = fso.getFolder(sourcepath)
  '将testing中的所有内容复制到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对象
  Set objset = fso.getFolder(sourcepath)
  '将testingw文件夹及文件夹里所有的内容全部删除
  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对象
    Set objset = fso.getFolder(sourcepath)
    '使用Move()将testing文件夹及里面所有的内容，移动到目标文件夹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对象
    Set objset = fso.getFolder(sourcepath)
'在testing文件夹下，使用CreateTextFile()创建myClass2.doc文件
  objset.CreateTextFile "myClass2.doc",true
End Sub

Dim objfso,objset
'创建FileSystemObject对象
Set objfso = createobject("Scripting.FileSystemObject")
'返回C:/testing的Folder的对象
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对象
    Set objset = fso.getFolder(sourcepath)
    '通过Folder对象来访问Folder属性
    reporter.ReportEvent micDone ,"测试Folder属性","文件夹所在的磁盘为：" & objset.Drive & " 文件夹所创建的日期：" & 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对象
    Set objset = fso.getFolder(sourcepath)
    'SubFolders属性将返回所有子文件夹对应的Folder集合
    Set objFolders = objset.SubFolders
    '遍历Folder集合，统计出共有多少个文件夹，及相关文件夹的名字
    For Each objFolder in objFolders
       i = i +1
       'vbcr为换行符
       FolderName = FolderName + objFolder.Name + vbcr
    Next
    msgbox ("共有" & i &"个文件夹，文件夹的名字为：" & FolderName)
End Sub

Dim objFso,objGetFolder,intCount,strFileName
intCount = 0
'创建FileSystemObject对象
Set objFso= CreateObject("Scripting.FileSystemObject")
'使用GetFolder()获得文件夹对象
Set objGetFolder = objFso.GetFolder("C:/test")
'遍历Files集合并显示文件夹中所有的文件名
For Each strFile in objGetFolder.Files
    intCount = intCount + 1
    strFileName =strFileName & "第" & intCount & "个文件夹名为：" & 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文件夹下所有扩展名名为.txt的文件，复制到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()创建myClass2.doc文件
fso.CreateTextFile sourcepath,true
'删除testing文件夹下，所有扩展名为.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, 扩展名 txt, 文件名+扩展名 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")
    '调用GetFile()返回File对象，通过File对象来访问其下的属性
    set objFile = fso.GetFile(sourcepath)
    reporter.ReportEvent micDone,"访问file的属性","该文件所在的盘符为：" & objFile.Drive & "       文件名为：" & objFile.Name
End Sub

Dim fso, tempfile
'创建FileSystemObject对象
Set fso = CreateObject("Scripting.FileSystemObject")
'调用CreateTempFile函数，并将对象赋值给tempfile
Set tempfile = CreateTempFile
'在临时文件中写入字符
tempfile.WriteLine "世界你好"
'关闭对象
tempfile.Close
 
Function CreateTempFile
  Dim tfolder, tname, tfile
  Const TemporaryFolder = 2
  'GetSpecialFolder()中的参数2，返回一个名为Temp的临时文件夹
  Set tfolder = fso.GetSpecialFolder(TemporaryFolder)
  '随机生成一个临时文件名
  tname = fso.GetTempName 
  '在Temp临时文件夹下面，创建一个临时文件
  Set tfile = tfolder.CreateTextFile(tname)
  '将结果赋值给函数
  Set CreateTempFile = tfile
End Function

Dim spec
spec = "C:/testing.txt"
'三个参数的分别为：以只读模式打开文件、以只写方式打开文件、打开文件并在文件末尾进行写操作
Const intForReading = 1,intForWriting = 2,intForAppending = 8
'调用OpenTextFileTest()
Call OpenTextFileTest(spec,intForAppending)
 
Sub OpenTextFileTest(sepc,intForAppending)
  Dim fso,objTStream
  '创建FileSystemObject对象
  Set fso = CreateObject("Scripting.FileSystemObject")
  '参数true表示：如果文件不存在，则创建文件。最后OpenTextFile()将返回TextStream对象
  Set objTStream = fso.OpenTextFile(sepc,intForAppending,true)
  '利用TextStream对象来将字符串写入文件
  objTStream.write "hello word!"
  '释放TextStream对象
  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")
    '调用GetFile()返回File对象，通过File对象来访问其下的属性
    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 !”
'调用函数
Call CreateFile(strPath,strText)
 
Sub CreateFile(strPath,strText)
    Dim objFso,objStream
    '创建FileSystemObject对象
    Set objFso = CreateObject("Scripting.FileSystemObject")
    '使用FileSystemObject对象的CreateTextFile()，来返回一个TextStream对象句柄
    Set objStream = objFso.CreateTextFile(strPath,True)
    '三个Write的意思分别为：在文本中写入字符、写入带换行符的字符、写入3个换行符
     objStream.Write(strText)
    ‘objStream.WriteLine(strText)
    ‘objStream. WriteBlankLines 3
    '关闭TextStream对象
    objStream.Close
End Sub

Sub CreateFile(strPath,strText)
    Dim objFso,objStream
    '创建FileSystemObject对象
    Set objFso = CreateObject("Scripting.FileSystemObject")
    '使用FileSystemObject对象的CreateTextFile()，来返回一个TextStream对象句柄
    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)))
     '关闭TextStream对象
    objStream.Close
End Sub

Dim strPath,strText
strPath = "C:/testing.txt"
'调用函数
Call CreateFile(strPath)
 
Sub CreateFile(strPath)
    Dim objFso,objStream
    '创建FileSystemObject对象
    Set objFso = CreateObject("Scripting.FileSystemObject")
    '使用FileSystemObject对象的CreateTextFile()，来返回一个TextStream对象句柄
    Set objStream = objFso.CreateTextFile(strPath,True)
    '在文本中写入字符
    objStream.Write "This is Test !" & vbCrLf & "hello word !"
    '以只读的方式打开文件
    Set objStream = objFso.OpenTextFile(strPath,1,true)
    '读取文件时跳过5个字符；或者跳过当前行，读取下一行
    objStream.Skip(5)
    'objStream.SkipLine
     '读取文本内容
    msgbox objStream.ReadAll
    '关闭TextStream对象
    objStream.Close
End Sub

Dim strPath,strText
strPath = "C:/testing.txt"
'调用函数
Call CreateFile(strPath)
 
Sub CreateFile(strPath)
    Dim objFso,objStream,str
    '创建FileSystemObject对象
    Set objFso = CreateObject("Scripting.FileSystemObject")
    '以只读的方式打开文件，如果文件不存在则创建它
    Set objStream = objFso.OpenTextFile(strPath,1,true)
    '如果当前的指针不在行末，则读取文本内容
    Do While objStream.AtEndOfLine <> true
    ‘Do While objStream.AtEndOfStream <> true
       str = str + objStream.Read(1)
    Loop
    msgbox str
     '关闭TextStream对象
    objStream.Close
End Sub

Sub TestTextStream(strPath)
  Dim objFso,objTStream,str
    Set objFso = CreateObject("Scripting.FileSystemObject")
    '以只读的方式打开文件
    Set objTStream = objFso.OpenTextFile(strPath,1)
    '如果当前的指针不在整个文档的末尾，读取文本的所有内容
  Do While objTStream.AtEndOfStream <> true
          objTStream.ReadAll
         str = str + "共有" & objTStream.Line & "行数据，光标最后所在列号为：" & 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 '输出计算机上所有的磁盘盘符
Next 

Dim Fso
'创建FileSystemObject对象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用CreateTextFile创建文件,不覆盖存在的文件
Fso.CreateTextFile "C:\test.txt",False
'覆盖存在的文件
Fso.CreateTextFile "C:\test.txt",True

Dim Fso
'创建FileSystemObject对象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用MyFolder创建文件夹
Fso.CreateFolder("c:\test")

Dim Fso
'创建FileSystemObject对象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用DeleteFile删除指定文件
Fso.DeleteFile("c:\test.txt")
'强制删除只读的文件
Fso.DeleteFile "c:\test.txt",True

Dim Fso
'创建FileSystemObject对象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用DeleteFile删除指定文件
Fso.DeleteFolder("c:\test")
'强制删除只读的文件
Fso.DeleteFolder "c:\test",True

Dim Fso
'创建FileSystemObject对象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用FileExists判断指定文件是否存在
MsgBox Fso.FileExists("c:\test.txt")

Dim Fso
'创建FileSystemObject对象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用FolderExists判断指定文件夹是否存在
MsgBox Fso.FolderExists("c:\test")

Dim Fso
'创建FileSystemObject对象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用CopyFile复制文件到另一个位置,False不覆盖已存在文件
Fso.CopyFile "c:\test.txt","D:\",False
'True覆盖已存在文件
Fso.CopyFile "c:\test.txt","D:\",True

Dim Fso
'创建FileSystemObject对象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用*.txt,可以同时将多个文件复制到另一个位置,False不覆盖已存在文件
Fso.CopyFile "c:\*.txt","D:\",False
'True表示覆盖已存在文件
Fso.CopyFile "c:\*.txt","D:\",True

Dim Fso
'创建FileSystemObject对象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用CopyFile复制文件到另一个位置,默认为True覆盖已存在文件
Fso.CopyFolder "c:\test","D:\"
'False不覆盖已存在文件
Fso.CopyFolder "c:\test","D:\",False

Dim Fso
'创建FileSystemObject对象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用MoveFile移动文件到另一个位置
Fso.MoveFile "c:\test.txt","D:\"

Dim Fso
'创建FileSystemObject对象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用MoveFolder移动文件夹到另一个位置
Fso.MoveFolder "c:\test","D:\"

Dim Fso
Dim GetExtensionName
'创建FileSystemObject对象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用GetExtensionName获取文件后缀名
GetExtensionName = fso.GetExtensionName("c:\test.txt")
MsgBox GetExtensionName '输出txt

Dim Fso
Dim GetBaseName
'创建FileSystemObject对象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用GetBaseName获取文件的文件名称
GetBaseName = Fso.GetBaseName("c:\test\test.txt")
MsgBox GetBaseName '输出test

Dim Fso
Dim GetParentFolderName
'创建FileSystemObject对象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用GetParentFolderName获取文件当前所在的文件夹
GetParentFolderName = Fso.GetParentFolderName("c:\test\test.txt")
MsgBox GetParentFolderName '输出c:\test