分类：电脑/网络-软件-办公软件
问题：解压缩代码应用问题下面这段代码是别人写的，是用VBA控制的自动解 
下面这段代码是别人写的，是用A控制的自动解压程序，因我在日常工作中将原文件及解压文件都放在桌面，（一是桌面清楚，二是处理完毕不保留而清除掉了，三是我的电脑只有一个C盘）故我将"D:\******.rar"替换成"C:\Documents and Settings\Administrator\桌面\******.rar""D:\"替换成"C:\Documents and Settings\Administrator\桌面\"但运行结果是“找不到原文件”，但我再改回到D盘，则成功，请各位高手帮助分析一下，我错在哪里？谢谢下面这段代码是别人写的，是用A控制的自动解压程序，因我在日常工作中将原文件及解压文件都放在桌面，（一是桌面清楚，二是处理完毕不保留而清除掉了，三是我的电脑只有一个C盘）故我将"D:\******.rar"替换成"C:\Documents and Settings\Administrator\桌面\******.rar""D:\"替换成"C:\Documents and Settings\Administrator\桌面\"但运行结果是“找不到原文件”，但我再改回到D盘，则成功，请各位高手帮助分析一下，我错在哪里？谢谢Sub UnRarFileb()Dim Rarexe As StringDim Source As StringDim Target As StringDim FileString As StringDim Result As LongRarexe = "C:\Program files\WinRAR\WinRAR.exe"Source = "D:\******.rar" '测试过WINRAR生成的ZIP文件，可以解压缩Target = "D:\"FileString = Rarexe & " X " & Source & " " & TargetResult = Shell(FileString, vbHide)End Sub
回答：把所有长文件名改成8.3格式即：Documents and Settings改成docume~1，Program files改成progra~1试试