发信人: nonepassby(左右無人)
整理人: qcrsoft(2002-05-09 23:21:39), 站内信件
|
在看了前面关于新建web虚拟目录之后，相信看这个也不怎么困难了
'**********************************************************************************
' 创建一个FtpServer的虚拟目录
' 必须参数：WNumber为FtpServer的站点号，VDir为创建虚拟目录的物理路径；VDirName为虚拟目录说明
' 当创建成功时返回1，否则返回0
'**********************************************************************************
' Dim ftpno,vdirpath,vftpname,isvftpcreate
' ftpno=1 '默认ftp站点
' vdirpath="c:\ftp\book"
' vftpname="书库"
' isvftpcreate=CreateFtpVDir(ftpno,vdirpath,vftpname)
' if isvftpcreate=1 then
' response.write "虚拟目录创建成功!"
'else
'Response.write "虚拟目录创建失败!"
'end if
Function CreateFtpVDir(WNumber,VDir,VDirName)
On Error Resume Next
Dim ServerObj,VDirObj
Set ServerObj = GetObject("IIS://"&oComputer&"/MSFTPSVC/"&WNumber&"/ROOT")' 得到FtpServer的主目录对象
' 建立虚拟目录
Set VDirObj = ServerObj.Create("IIsFtpVirtualDir", VDirName)
If (Err.Number <> 0) Then' 是否出错
'Response.Write "错误: 创建Ftp虚拟目录的ADSI操作失败！<br>"
Err.Clear()
CreateFtpVDir=0
Exit Function
End If
' 配置虚拟目录
VDirObj.Path = VDir
VDirObj.AccessRead = True
VDirObj.AccessWrite = True
VDirObj.SetInfo
' 成功了！
Set VDirObj=Nothing
Set ServerObj=Nothing
CreateFtpVDir=1
End Function
----
網易之左右無人给我留言为了与更多的朋友交流，我已申请脚本技术版版卒 |
|