我的FSO.asp 如下:
<%
Dim Path,fso,net,f
i=1
do while i <3
if i=1 then
sourcefile= "\\10.97.1.35\qjcf_no1\barcodeprinter.mdb "
targetfile= "\MDB\barcodeprinter35.mdb "
end if
if i=2 then
sourcefile= "\\10.97.1.36\产品数码跟踪(BarCodePrinter) "
targetfile= "\MDB\barcodeprinter36.mdb "
end if
Set fso = CreateObject( "Scripting.FileSystemObject ")
path= "X: "
If Not fso.DriveExists(fso.GetDriveName(Path)) Then
'如果不存在驱动器映射,映射网络驱动器 x:
Set net = Server.CreateObject( "WScript.Network ") '创建Network对象
net.MapNetworkDrive Path,sourcefile, "False ", "xcopy ", "xcopy "
'指定映射目录及登陆信息
'将电脑10.97.1.36上共享的qjcf_no1文件夹映射到本地磁盘X中;
'\False:不把映射存储在当前的用户配置文件中; 后面可再加两个参数,xcopy,xcopy 分别是共享文件夹的用户名与密码.
End If
Set f = fso.GetFile(Path& "\barcodeprinter.mdb ")
'获取到映射中的文件的句柄。
f.Copy(Server.MapPath(targetfile))
' 拷贝到WEB服务期当前目录下的MDB下;默认是强制覆盖
'response.write( "文件拷贝OK ")
'删除本地名称为X:的映射,True表示强制删除,不管当前有没有人正在使用这个映射.
net.RemoveNetworkDrive Path, "true "
'也可以不断开,以后直接像用本地的一样.
set fso=nothing
set f=nothing
i=i+1
loop
%>
老是报net.RemoveNetworkDrive Path, "true " 有问题;
什么原因?????????
------解决方案--------------------
net.RemoveNetworkDrive Path,true
bool型的