asp的fso问题

来源:百度知道 编辑:UC知道 时间:2024/05/16 17:44:27
if not fs.FileExists(""&mbwjj&"") then
fs.CreateFolder(""&mbwjj&"")
else
Set f2 = fs.GetFile(""&ywj&"")
f2.Move (""&mbwjj&"")
end if
上面的代码是判断目标文件夹是否存在,不存在则创建它,否则移动文件到该文件夹下,现在问题是,目标文件夹已经存在页面会报错:
Microsoft VBScript 运行时错误 错误 '800a003a'
文件已存在
那现在如何让目标文件存在的情况下跳过或者覆盖该文件?
是文件夹,但是我用了fs.FolderExist(mbwjj)后怎么会报错
Microsoft VBScript 运行时错误 错误 '800a01b6'

对象不支持此属性或方法: 'FolderExist'

这段代码有问题,不知道你的mbwjj变量的内容是文件路径还是文件夹路径。FileExist方法是看文件存不存在,不是文件夹存不存,而FolderExist方法才是看文件夹存不存在。
最好把你的ywj变量和mbwjj帖出来看一下。

>>>>>>>>>>>>>>>>

不好意思,我少打了个字母,应该是:
FolderExists

使用fso.CopyFolder.如果你的page在fullpath下,根据用户名来创建的文件夹也在fullpath下,那么假设新建的文件夹名称为UserFolder,那么:
fso.CoypFolder(fullpath&"page",fullpath&"\"&UserFolder&"\")
细节方面自己测试一下,如果你的fullpath本身已经包含"\",取消上面的斜杠就可以了.如果直接在ASP代码里写(不是脚本),需要把参数两边的括号去掉.

f2.Move (""&mbwjj&"\"&"") 这样试一下