文件复制 filecopy

xzh_yzcn

各位老师：
我想复制文件，pwrdDocname 为目标文件全路径，opath & owrdDocname为源文件全路径
当pwrdDocname 字符数超过150时，执行FileCopy opath & owrdDocname, pwrdDocname 出错，文件未找到，当小于等于150时，执行未出错，请老师指点一下其中原因
以下是代码
pwrdDocname = jsbgpath & "\1-1" & Left(xmmc, Len(xmmc) - 8) & "决算审计报告.doc"
    x = Len(pwrdDocname)
'    pwrdDocname = jsbgpath & "\" & owrdDocname
'    Debug.Print opath & owrdDocname
'    Debug.Print pwrdDocname
'    Debug.Print opath
''    On Error GoTo EarlyExit
'    If Not Dir(opath & owrdDocname, vbDirectory) = vbNullString Then
'    FileFolderExists = True
'    End If
'    If Not Dir(jsbgpath, vbDirectory) = vbNullString Then
'    FileFolderExists = True
'    End If

    FileCopy opath & owrdDocname, pwrdDocname


请老师帮检查一下，谢谢
文件名的长度有限制？？，请指点，谢谢

xiangbaoan

'真不知道，不知fso方法行不行
set fso=createobject("scripting.filesystemobject")
fso.copyfile  路径 & 文件, 新路径,true
'另外，复制的文件是否打开了，以上全蒙的。