在用VBScript进行文件拷贝时，发现文件路径太长导致拷贝失败。可以尝试使用文件的短路径进行解决。
1
2
3
4
5
6
7
8
Dim tempDir,soucerDir,fso,shortPath
tempDir = "C:\toFolder"
soucerDir = "\\server\looooongfilepath"
set fso=CreateObject("Scripting.FileSystemObject")
shortPath = fso.GetFolder(soucerDir).ShortPath
fso.CopyFolder shortPath, tempDir
