LotusScript 在服务器上创建目录或文件夹

LotusScript 在服务器上创建(删除)目录或文件夹

创建:

Dim fso As Variant
Set fso = createobject("Scripting.FileSystemObject")
dim StorageFolder as String
StorageFolder = "D:/test"
'目录不存在则创建
If Not fso.FolderExists(StorageFolder) Then
fso.CreateFolder(Trim(StorageFolder))
End If


删除：

Dim fso As Variant
Set fso = createobject("Scripting.FileSystemObject")
Dim StorageFolder As String
StorageFolder = "D:/test"

'目录存在则删除
If fso.FolderExists(StorageFolder) Then
fso.DeleteFolder(Trim(StorageFolder))
End If


下面是FileSystemObject的参考API：

BuildPath() 生成一个文件路径
CopyFile() 复制文件
CopyFolder() 复制目录
CreateFolder() 创建新目录
CreateTextFile() 生成一个文件
DeleteFile() 删除一个文件
DeleteFolder() 删除一个目录
DriveExists() 检验盘符是否存在
Drives 返回盘符的集合
FileExists() 检验文件是否存在
FolderExists 检验一个目录是否存在
GetAbsolutePathName() 取得一个文件的绝对路径
GetBaseName() 取得文件名
GetDrive() 取得盘符名
GetDriveName() 取得盘符名
GetExtensionName() 取得文件的后缀
GetFile() 生成文件对象
GetFileName() 取得文件名
GetFolder() 取得目录对象
GetParentFolderName 取得文件或目录的父目录名
GetSpecialFolder() 取得特殊的目录名
GetTempName() 生成一个临时文件对象
MoveFile() 移动文件
MoveFolder() 移动目录
OpenTextFile()
打开一个文件流

实例说明

BuildPath(路径,文件名) //这个方法会对给定的路径加上文件，并自动加上分界符


CopyFile(源文件, 目标文件, 覆盖) //复制源文件到目标文件，当覆盖值为true时，如果目标文件存在会把文件覆盖


CopyFolder(对象目录,目标目录 ,覆盖) //复制对象目录到目标目录，当覆盖为true时，如果目标目录存在会把文件覆盖


CreateFolder(目录名) //创建一个新的目录


CreateTextFile(文件名, 覆盖) //创建一个新的文件，如果此文件已经

存在，你需要把覆盖值定为true


DeleteFile(文件名, 只读？) //删除一个文件，如果文件的属性是只读的话，你需要把只读值设为true


DeleteFolder(文件名, 只读？)//删除一个目录，如果目录的属性是只读的话，你需要把只读值设为true


DriveExists(盘符) //检查一个盘是否存在，如果存在就返会真，不存在就返回.......


FileExists(文件名) //检查一个文件是否存在，如果存在就返会真，不存在就返回.......


FolderExists(目录名) //检查一个目录是否存在，如果存在就返会真，不存在就返回.......


GetAbsolutePathName(文件对象) //返回文件对象在系统的绝对路径


GetBaseName(文件对象) //返回文件对象的文件名


GetExtensionName(文件对象) //文件的后缀


GetParentFolderName(文件对象) //取得父级的目录名


GetSpecialFolder(目录代码) //取得系统中一些特别的目录的路径，目录代码有3个分别是 0:安装Window的目录 1:系统文件目录 2:临时文件目录


GetTempName() //生成一个随机的临时文件对象，会以rad带头后面跟着些随机数，就好象一些软件在安装时会生成*.tmp


MoveFile(源文件, 目标文件) //把源文件移到目标文件的位置