for i=1 to ubound(brray)
if not fs.FolderExists(pathname) then fs.CreateFolder(pathname)
on error resume next
if i+1<=ubound(brray) then pathname=pathname&"\"&brray(i+1)
next

我的思想是
如果 if not fs.FolderExists(pathname) then fs.CreateFolder(pathname) 发生错误，我也要运
if i+1<=ubound(brray) then pathname=pathname&"\"&brray(i+1) 并继续循环。
大家帮忙解决一下，

问题是什么？？

如果 if not fs.FolderExists(pathname) then fs.CreateFolder(pathname) 发生错误，我也要运
if i+1<=ubound(brray) then pathname=pathname&"\"&brray(i+1) 并继续循环。

问题是 那句出了错误就提示，提示为：文件已经存在，就不运行下一句

[此贴子已经被作者于2005-9-1 9:33:44编辑过]

把on error resume next放上面试试