制作发行光盘，运行报告“文件或路径无法找到”.txt

VB技巧问答10000例 VB技巧问答10000例

如 果 你 的 程 序 是 存 放 在 光 盘 的 根 目 录 ， 则 问 题 就 很 明 确 了 。 你 使 用 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变 量 的 值 ， 这 样 你 可 以 知 道 是 程 序 设 计 错 误 ， 还 是 哪 个 文 件 忘 了 拷 贝 到 光 盘 上 。 
<END>