复制代码 代码如下: Option Explicit On Error Resume Next ''生成列表的文件类型 Const sListFileType = 'wmv,rm,wma' ''文件所在的相对路径 Const sShowPath='.' ''排序类型的常量定义 Const iOrderFieldFile

复制代码 代码如下: ''/*========================================================================= '' * Intro 定时自动备份文件夹到一个以时间命名的新目录，设置好后加到启动项里，只要一启动机器程序就会自动运行，占系统资源可以不计 '

不用组件的话有两种办法： setobjFile=CreateObject('SAFRCFileDlg.FileOpen') SetobjShell=CreateObject('Shell.Application') 本blog里都有示例。 如果调用vb组件，可以是: flag=&h200 whichone=OpenFi

GetOwner.VBS用法,在命令行下:GetOwner.vbs 目录名会在相应目录下生成一个TXT.TXT文件,内里列出该目录下所有文件和文件夹的类型,大小,和所有者 注意:大小以MB为单位,小于1MB的就显示为0MB, 以下是代码: G = WScript.arguments(0) Set oFSO = Crea

复制代码 代码如下: option explicit dim fpath,fso,logfile,fwrite fpath=inputbox ('输入目标文件夹','文件处理器') logfile='logfile.txt' set fso=createobject('scripting.filesystemobjec

复制代码 代码如下: ''This code is done by KangKang@ Option explicit ‘This is optional, but better to use. Dim FolderPath,Folder Dim fso,File,Files Dim fileNums Dim File