【vbs脚本】01.文件系统相关_vbs查询文件系统-CSDN博客

例子01、在D盘创建hello.txt，并写入字符串 Hello, world!。

Dim objFso, filTest
Set objFso = CreateObject("Scripting.FileSystemObject")
Set filTest = objFso.CreateTextFile("d:\hello.txt", true)
filTest.WriteLine("Hello, world!")
filTest.Close

例子02、删除D盘根目录下hello.txt。

Dim objFso
Set objFso = CreateObject("Scripting.FileSystemObject")
objFso.DeleteFile("d:\hello.txt")

例子03、在D盘根目录创建新文件夹newFolder

Dim objFso, fldNew
Set objFso = CreateObject("Scripting.FileSystemObject")
Set fldNew = objFso.CreateFolder("d:\newFolder")

例子04、在D盘根目录删除新文件夹newFolder

Dim objFso
Set objFso = CreateObject("Scripting.FileSystemObject")
'不管文件夹中有没有文件都一并删除
objFso.DeleteFolder("d:\newFolder")

例子05、获取计算机所有盘符

Dim objFso, objDrive, objDrives
Set objFso = CreateObject("Scripting.Filesystemobject")
'取得当前计算机的所有磁盘驱动器
Set objDrives = objFso.Drives
'遍历磁盘
For Each objDrive In objDrives
    MsgBox objDrive
Next