制作发行光盘，运行报告“文件或路径无法找到”
编号：QA000211
建立日期: 1998年12月16日 最后修改日期：1998年12月16日
所属类别：
tjboyzw:
我在制作一张发行光盘，主要是图形图象的浏览和复制。在编译后运行报告“文件或路径无法找到”。请问如何处理？请将方法描述的详尽一些。最好举例说明。
操作系统是windows95、软件的版本VB5.0
复制文件部分代码如下：
Private Sub Command14_Click()
For I = 1 To 6
Apath = App.Path
FilePath = Apath + "\Pic\dwg\98-3\Af\ns\3nsa0" + CStr(I) + "f.dwg"
SourceFile = FilePath
DestinationFile = Dir1.Path + "\3nsa0" + CStr(I) + "f.dwg"
FileCopy SourceFile, DestinationFile
Next I
For I = 0 To 5
Apath = App.Path
FilePath = Apath + "\Pic\dwg\98-3\T\n\3nt0" + CStr(I) + ".dwg"
SourceFile = FilePath
DestinationFile = Dir1.Path + "\3nt0" + CStr(I) + ".dwg"
FileCopy SourceFile, DestinationFile
Next I
End Sub
回答:
如果你的程序是存放在光盘的根目录，则问题就很明确了。你使用App.Path返回.exe所在的目录，如果.exe位于根目录，则App.Path的末尾就会加上一个“\”号，如“E:\”，所以你的FilePath就可能变成这样：E:\\Pic\dwg\98-3\Af\ns\3nsa01f.dwg，显然不对。所以你应该把Apath = App.Path后加一句：
If Right(Apath, 1) = "\" Then Apath = Left(Apath, Len(Apath) - 1)
如果不是这个原因，你可以在FileCopy前加上一个出错处理，如果发生错误，程序应该显示SourceFile和DestinationFile变量的值，这样你可以知道是程序设计错误，还是哪个文件忘了拷贝到光盘上。
此问题由李海回答。
| |
|
|
| |
|
|
