1推荐文件和文件夹vbs脚本大全枚举文件夹中的所有文件
描述
返回 Scripts 文件夹中所有文件的列表。如果计算机有多个文件夹（例如C:\Scripts 和 D:\Scripts），则文件将从这些文件夹中的每一个返回。
脚本代码
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer
& "\root\cimv2")
Set colFiles = objWMIService. _
ExecQuery("Select * from CIM_DataFile where Path =
'\\Scripts\\'")
For Each objFile in colFiles
Wscript.Echo objFile.Name
Next
移动文件
描述
演示脚本使用 FileSystermObject 将文件从一个位置移到另一个位置。此脚本必须运行在本地计算机上。
脚本代码
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFile "C:\FSO\ScriptLog.log" , "D:\Archive"
通过日期查文件夹
描述
查在 2002 年 3 月 1 日之后创建的所有文件。要修改此脚本，您必须修改赋给变量 dtmTargetDate 的值中的下列项：
?
2002 -- 将此项更改为目标年（如 1999）。
?
03--将此项更改为目标月（01 代表 1 月、 02代表 2月……12 代表 12月）
?
01 -- 将此项更改为目标天（01 代表该月的第一天、02 代表第二天）。
?
-420 -- 为了确保具有正确的结果，可以将此项更改为您所在的时区和格林尼治标准时间之间的偏移量。如果您不知道此偏移量，可以使用脚本确定与格林尼治标准时间的时区偏移量。
脚本代码
On Error Resume Next
dtmTargetDate = "20020301000000.000000-420"
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:" & "!\\" & strComputer & "\root\cimv2")
Set colFolders = objWMIService.ExecQuery _
("Select * from Win32_Directory Where CreationDate >
'" & _
dtmtargetDate & "'")
For Each objFolder in colFolders
Wscript.Echo objFolder.Name
Next
逐个字符地读取文本文件
描述
演示脚本使用 FileSystemObject 逐个字符地读取文本文件，并分别将这些字符显示在屏幕上。此脚本必须运行在本地计算机上。
脚本代码
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\FSO\New Text
<", 1)
Do Until objFile.AtEndOfStream
strCharacters = objFile.Read(1)
Wscript.Echo strCharacters
Loop
识别 Shell 对象动词
描述
为 Recycle Bin 返回 Shell 对象动词（上下文菜单项）的列表。
脚本代码
Const RECYCLE_BIN = &Ha&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(RECYCLE_BIN)
Set objFolderItem = objFolder.Self
Set colVerbs = objFolderItem.Verbs
For i = 0 to colVerbs.Count - 1
Wscript.Echo colVerbs.Item(i)
Next
生成文件名
描述
演示脚本使用 FileSystemObject 的 GetTempName 方法生成随机文件名。此脚本必须运行在本地计算机上。
脚本
代码
Set objFSO = CreateObject("Scripting.FileSystemObject")
For i = 1 to 10
strTempFile = objFSO.GetTempName
Wscript.Echo strTempFile
Next
创建和命名文本文件
描述
演示脚本使用 FileSystemObject 的 GetTempName 方法生成一个文件名，然后根据该名称创建一个文件。
脚本代码
Set objFSO = CreateObject("Scripting.FileSystemObject")
strPath = "C:\FSO"
strFileName = objFSO.GetTempName
strFullName = objFSO.BuildPath(strPath, strFileName)
Set objFile = objFSO.CreateTextFile(strFullName)
objFile.Close
objFSO.DeleteFile(strFullName)
创建网络共享
描述
创建一个名为 FinanceShare 的共享文件夹，将同时连接的最大数量设置为25，然后添加共享描述。
脚本代码
Const FILE_SHARE = 0
Const MAXIMUM_CONNECTIONS = 25
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer
& "\root\cimv2")
Set objNewShare = objWMIService.Get("Win32_Share")
errReturn = objNewShare.Create _
("C:\Finance", "FinanceShare", FILE_SHARE, _
MAXIMUM_CONNECTIONS, "Public share for the Finance
group.")
Wscript.Echo errReturn
创建文本文件
描述
演示脚本创建一个新的空文本文件。此脚本必须运行在本地计算机上。
脚本代码
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("C:\")
创建文件夹
描述
演示脚本使用 FileSystemObject 创建一个文件夹。此脚本必须运行在本地计算机上。
脚本代码
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder("C:\FSO")
发布共享文件夹
描述
在 Active Directory 中发布共享文件夹，给该文件夹指派一个描述和三个关键字。
脚本代码
Set objComputer = GetObject _
("LDAP://OU=Finance, DC=fabrikam, DC=com")
Set objShare = objComputer.Create("volume",
"CN=FinanceShare")
objShare.Put "uNCName", "[url=file://atl-dc-02/FinanceShare]\\atl-dc-02\FinanceShare[/url]"
objShare.Put "Description", "Public share for users in the
Finance group."
objShare.Put "Keywords", Array("finance", "fiscal",
"monetary")
objShare.SetInfo
在文件上执行操作
描述
使用 Shell 对象打印 C:\Logs 文件夹中的所有文件。
脚本代码
TargetFolder = "C:\Logs"
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(TargetFolder)
Set colItems = objFolder.Items
For i = 0 to colItems.Count - 1
colItems.Item(i).InvokeVerbEx("Print")
Next
按照从下到上的顺序读取文本文件
描述
演示脚本使用 FileSystemObject 读取一个文本文件，并以相反的顺序显示该文本文件（即从最后一行开始，以第一行结束）。
脚本代码
Dim arrFileLines()
i = 0
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\",
1)
Do Un
til objFile.AtEndOfStream
Redim Preserve arrFileLines(i)
arrFileLines(i) = objFile.ReadLine
i = i + 1
Loop
objFile.Close
For l = Ubound(arrFileLines) to LBound(arrFileLines) Step
-1
Wscript.Echo arrFileLines(l)
Next
创建新文件夹
描述
使用 Shell 对象创建名为 C:\Archive 的新文件夹。
脚本代码
ParentFolder = "C:\"
set objShell = CreateObject("Shell.Application")
set objFolder = objShell.NameSpace(ParentFolder)
vbs小程序代码大全objFolder.NewFolder "Archive"
监视文件修改
描述
任何时候修改文件 C:\Scripts\Index.vb，临时事件消费程序都会发出警告。最好运行在 下。
脚本代码
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\cimv2")
Set colMonitoredEvents =
objWMIService.ExecNotificationQuery _
("SELECT * FROM __InstanceModificationEvent WITHIN 10
WHERE " _
& "TargetInstance ISA 'CIM_DataFile' and " _
& "TargetInstance.Name='c:\\scripts\\index.vbs'")
Do
Set objLatestEvent = colMonitoredEvents.NextEvent
Wscript.Echo "File: " &
objLatestEvent.TargetInstance.Name
Wscript.Echo "New size: " &
objLatestEvent.TargetInstance.FileSize
Wscript.Echo "Old size: " &
objLatestEvent.PreviousInstance.FileSize
Loop
监视文件删除
描述
任何时候从 C:\Scripts 文件夹删除文件，临时事件消费程序都会发出警告。最好运行在 下。
脚本代码
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\cimv2")
Set colMonitoredEvents =
objWMIService.ExecNotificationQuery _
("SELECT * FROM __InstanceDeletionEvent WITHIN 10 WHERE
" _
& "Targetinstance ISA 'CIM_DirectoryContainsFile'
and " _
& "TargetInstance.GroupComp'Win32_Directory.Name=""c:\\\\scripts""'")
Do
Set objLatestEvent = colMonitoredEvents.NextEvent
Wscript.Echo
objLatestEvent.TargetInstance.PartComponent
Loop
复制文件夹
描述
演示脚本使用 FileSystemObject 将文件夹复制到新的位置。此脚本必须运行在本地计算机上。
脚本代码
Const OverWriteFiles = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder "C:\Scripts" , "C:\FSO" , OverWriteFiles
监视文件创建
描述
任何时候在 C:\Scripts 文件夹中创建文件，临时事件消费程序就发出警告。最好在 下运行。
脚本代码
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\cimv2")
Set colMonitoredEvents =
objWMIService.ExecNotificationQuery _
("SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE " _
& "Targetinstance ISA 'CIM_DirectoryContainsFile'
and " _
& "TargetInstance.GroupComp'Win32_Directory.Name=""c:\\\\sc
ripts""'")
Do
Set objLatestEvent = colMonitoredEvents.NextEvent
Wscript.Echo
objLatestEvent.TargetInstance.PartComponent
Loop
复制文件
描述
演示脚本使用 FileSystemObject 来复制文件。此脚本必须运行在本地计算机上。
脚本代码
Const OverwriteExisting = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "C:\" , "D:\Archive\",
OverwriteExisting
复制文件集
描述
演示脚本使用 FileSystemObject 将文件夹中的所有 .txt 文件复制到一个新的位置。
脚本代码
Const OverwriteExisting = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "C:\FSO\*.txt" , "D:\Archive\" ,
OverwriteExisting
解析路径名
描述
演示脚本使用 FileSystemObject 临时返回路径名信息，其中包括文件名、文件扩展名、完整文件路径等等。此脚本必须运行在本地计算机上。
脚本代码
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("")
Wscript.Echo "Absolute path: " &
objFSO.GetAbsolutePathName(objFile)
Wscript.Echo "Parent folder: " &
objFSO.GetParentFolderName(objFile)
Wscript.Echo "File name: " & objFSO.GetFileName(objFile)
Wscript.Echo "Base name: " & objFSO.GetBaseName(objFile)
Wscript.Echo "Extension name: " &
objFSO.GetExtensionName(objFile)
将文本文件读入数组
描述
演示代码使用 VBScript Split 命令从逗号分隔的值文件读取一行，然后将该行中的各个项放入一个数组。
脚本代码
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
("c:\scripts\servers ", ForReading)
Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
arrServiceList = Split(strNextLine , ",")
Wscript.Echo "Server name: " & arrServiceList(0)
For i = 1 to Ubound(arrServiceList)
Wscript.Echo "Service: " & arrServiceList(i)
Next
Loop
解压缩文件夹
描述 解压缩文件夹 C:\Scripts。
脚本代码
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer
& "\root\cimv2")
Set colFolders = objWMIService.ExecQuery _
("Select * from Win32_Directory where name =
'c:\\Scripts'")
For Each objFolder in colFolders
errResults = objFolder.Uncompress
Wscript.Echo errResults
Next
将网络共享映射到本地文件夹
描述
使用查询的 WMI Associators 返回计算机上所有网络共享的本地路径。
脚本代码
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer
& "\root\cimv2")
Set colShares = objWMIService.ExecQuery _
("Associators of {Win32_Share.Name='Scripts'} Where "
_
& "AssocClass=Win32_ShareToDirectory")
For Each objFolder in colShares
Wscript.Ec
ho objFolder.Name
Next
将所有的网络共享映射到本地文件夹
描述
使用查询的 WMI Associators 返回名为 Scripts 的网络共享的本地路径。
脚本代码
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer
& "\root\cimv2")
Set colShares = objWMIService.ExecQuery _
("Select * From Win32_Share")
For Each objShare in colShares
Set colAssociations = objWMIService.ExecQuery _
("Associators of {Win32_Share.Name='" &
objShare.Name & "'} " _
& " Where AssocClass=Win32_ShareToDirectory")
For Each objFolder in colAssociations
Wscript.Echo objShare.Name & vbTab & objFolder.Name
Next
Next
枚举文件夹属性
描述
演示脚本使用 FileSystemObject 枚举文件夹的属性。此脚本必须运行在本地计算机上。
脚本代码
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\Scripts")
Wscript.Echo "Date created: " & objFolder.DateCreated
Wscript.Echo "Date last accessed: " &
objFolder.DateLastAccessed
Wscript.Echo "Date last modified: " &
objFolder.DateLastModified
Wscript.Echo "Drive: " & objFolder.Drive
Wscript.Echo "Is root folder: " & objFolder.IsRootFolder
Wscript.Echo "Name: " & objFolder.Name
Wscript.Echo "Parent folder: " & objFolder.ParentFolder
Wscript.Echo "Path: " & objFolder.Path
Wscript.Echo "Short name: " & objFolder.ShortName
Wscript.Echo "Short path: " & objFolder.ShortPath
Wscript.Echo "Size: " & objFolder.Size
Wscript.Echo "Type: " & objFolder.Type
检验文件夹是否存在
描述
演示脚本使用 FileSystemObject 检验文件夹是否存在。如果文件夹存在，此脚本就绑定到该文件夹。此脚本必须运行在本地计算机上。
脚本代码
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists("C:\FSO") Then
Set objFolder = objFSO.GetFolder("C:\FSO")
Else
Wscript.Echo "Folder does not exist."
End If
检验文件是否存在
描述
演示脚本使用 FileSystemObject 检验文件是否存在。此脚本必须运行在本地计算机上。
脚本代码
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("C:\") Then
Set objFolder =
objFSO.GetFile("C:\")
Else
Wscript.Echo "File does not exist."
End If
枚举一组特定的文件夹
描述
返回计算机上所有隐藏文件夹的列表。
脚本代码
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer
& "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * from Win32_Directory Where Hidden = True")
For Each objFile in colFiles
Wscript.Echo objFile.Name
Next
枚举文件夹中的所有文件
描述
返回 Scripts 文件夹中所有文件的列表。如果计算机有多个文件夹（例如 C:\Scripts

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。