vbscript file operation & parameter

1. parameter

vbscript
cscript script_file.vbs parameter1 parameter2

 

 

' use WScript.Arguments get parameters
Dim fileName
set objArgs = WScript.Arguments
fileName = WScript.Arguments(0)

 

2. file operation

DriveExists(divespec)
GetDrive(divespec)
GetDriveName(divespec)
BuildPath(path,name) 向现有路径后添加名称
CopyFile source, destination[, overwrite] 将一个或多个文件从某位置自制到另一位置
CopyFolder source, destination[, overwrite] 将文件夹从某位置递归复制到另一位置
CreateFolder(foldername)    创建文件夹
OpenTextFile(filename[, iomode[, create[, format]]]) 打开指定的文件并返回一个TextStream对象，可以读取、写入此对象或将其追加到文件
CreateTextFile      创建指定文件并返回TextStream对象,该对象可用于读或定创建的文件
DeleteFile filespec[, force]    删除指定的文件
DeleteFolde      删除指定的文件夹
FileExists(filespec)     如果指定的文件存在返回True,否则返回False
FolderExits(folderspec)     如果指定的文件夹存在返回True,否则返回False
GetAbsolutePathName(pathspec)    从提供的指定路径中返回完整含义明确的路径
GetBaseName(path)     返回字符串，包含文件的基本名，或者路径说明的文件夹
GetExtensionName(path)     返回字符串，包含路径最后一个组成部分的扩展名
GetFile(filespec)     返回与指定路径中某文件相应的File对象
GetFolder(folderspec)     返回与指定的路径中某文件夹相应的Folder对象
GetFileName(pathspec)     返回指定路径(不是指定路径驱动器路径部分)的最后一个文件或文件夹
GetTempName      返回随机生成的临时文件或文件夹的名称，用于执行要求临时文件夹或文件的操
GetSpecialFolder(folderspec)    返回指定的特殊文件夹
GetParentFolderName     返回指定的路径中最后一个文件或才文件夹的父文件夹
MoveFile source, destination    将一个或多个文件从某位置移动到另一位置
Drives集合      只读所有可用驱动器的集合
filesystemobject.Drives
Folders集合      包含在一个Folder对象的所有Folder对象集合
filesystemobject.SubFolders
Files集合      文件夹中所有File对象的集合
filesystemobject.Files

Drive


AvailableSpace 可用空间的大小
DriveLetter 返回驱动器号
DriveType 描述驱动器类型的值
FileSystem 文件系统的类型
FreeSpace 对用户的可用空间大小
IdReady   指定的驱动器就绪与否,返回True/False
Path   返回指定文件、文件夹或驱动器的路径
RootFolder 返回一个Folder对象,表示指定驱动器的根文件夹.
SerialNumber 返回十进制序列号,用于唯一标识一个磁盘卷
TotalSize 返回驱动器或网络共享的总字节数
VolumeName 设置或返回指定驱动器的卷标(盘符说明)
ShareName 返回指定的驱动器的网络共享名

Folder(File)


Attributes   设置或返回文件或文件夹的属性
DateCreated   返回指定的文件或文件夹的创建日期和时间。只读
DateLastAccessed 返回指定的文件或文件夹的上次访问日期(和时间)。只读
DateLastModified 返回指定的文件或文件夹的上次修改日期和时间。只读
Drive    返回指定的文件夹或文件夹所在的驱动器的驱动器号。只读
Files    返回指定文件夹中所有File对象(系统或隐藏)组成的Files集合
IsRootFolder   如果指定的文件夹是根文件夹，返回True;否则返回False
Name    设置或返回指定的文件或文件夹的名称。可读写
ParentFolder   返回指定文件或文件夹的父文件夹。只读
ShortName   返回按照早期8.3文件命名约定转换的短文件名
ShortPath   返回按照早期8.3命名约定转换的短路径名
Size    对于文件返回指定文件的字节数；对于文件夹，返回文件夹所有的文件夹和子文件夹的字节数
SubFolders   返回由指定文件夹中所有子文件夹组成的Folders集合
Type    返回文件或文件夹的类型信息。
Path    返回指定文件、文件夹或驱动器的路径


'创建多层目录的方法
'所需支持:服务器必须启用FSO和RegExp
Sub LeesCreateFolder(Folder)
    Dim RegEx, arrFolder, thisFolder
        Set RegEx = New RegExp

        '搜索所有的非\字符和\ 如d:\a\网络\cc 则结果为 d:\ a\网络\ cc
        RegEx.Pattern = "[^\\]+\\"
    RegEx.IgnoreCase = True
        RegEx.Global = True
        Set arrFolder = RegEx.Execute(Folder)
        
        Set RegEx = Nothing
       
        Set fsoLee = CreateObject("Scripting.FileSystemObject")
       
        For Each SubFolder In arrFolder
            thisFolder = thisFolder & SubFolder '一层一层的推进
           
            If Not fsoLee.FolderExists(thisFolder) Then
                'Response.Write(thisFolder)
                fsoLee.CreateFolder(thisFolder) '如果该层不存在则创建
            End If
           
        Next
        Set fsoLee = Nothing
End Sub


 

' file operation
Const ForWritting = 2 'there will be error when use OpenTextFile if without this declaration
set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(fileName, ForWritting, True)
objFile.WriteLine "hello, world!"
objFile.Close