首页 > 学术百科

文件和文件夹VBS脚本大全

文件和文件夹VBS脚本大全.txt不相信永远，不拥有期待，不需要诺言当你不能再拥有的时候，唯一可以做的，就是令自己不要忘记。王子之所以能口奂酉星目垂美人是因为王子用心了我能口奂酉星什么文件和文件夹VBS脚本大全2010-07-09 10:52文件和文件夹VBS脚本大全

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

移动文件

描述

演示脚本使用 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

逐个字符地读取文本文件

描述

演示脚本使用 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 objFo

lder = objShell.NameSpace(RECYCLE_BIN)

Set objFolderItem = objFolder.Self

Set colVerbs = objFolderItem.Verbs

For i = 0 to colVerbs.Count - 1

Wscript.Echo colVerbs.Item(i)

生成文件名

描述

演示脚本使用 FileSystemObject 的 GetTempName 方法生成随机文件名。此脚本必须运行在本地计算机上。

脚本代码

Set objFSO = CreateObject("Scripting.FileSystemObject")

For i = 1 to 10

strTempFile = objFSO.GetTempName

Wscript.Echo strTempFile

创建和命名文本文件

描述

演示脚本使用 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")

按照从下到上的顺序读

取文本文件

描述

演示脚本使用 FileSystemObject 读取一个文本文件，并以相反的顺序显示该文本文件（即从最后一行开始，以第一行结束）。

脚本代码

Dim arrFileLines()

i = 0

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile("C:\",

Do Until 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)

创建新文件夹

描述

使用 Shell 对象创建名为 C:\Archive 的新文件夹。

脚本代码

ParentFolder = "C:\"

set objShell = CreateObject("Shell.Application")

set objFolder = objShell.NameSpace(ParentFolder)

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'")

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""'")

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:\\\\scripts""'")

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)

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

将网络共享映射到本地文件夹

描述

使用查询的 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.Echo objFolder.Name

将所有的网络共享映射到本地文件夹

描述

使用查询的 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

枚举文件夹属性

描述

演示脚本使用 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}!\\"

本文发布于:2024-09-22 01:18:09，感谢您对本站的认可！

本文链接：https://www.17tex.com/xueshu/96693.html

上一篇：VB程序分析方法及修改例 (“万能分析断点”、启动form修改,form隐藏)【原创】

下一篇：博图软件的C语言脚本,winccv13博图软件里如何写脚本程序

标签：脚本文件文件夹使用文本文件演示代码

留言与评论（共有 0 条评论）