文件复制问题（一经解决。马上接贴，在线等）

Question

Dim SourceFile, DestinationFile
  SourceFile = App.Path & "\数据库\" & GName & "公司.TAB" ' 指定源文件名。
 DestinationFile = CommonDialog1.filename & "\" & GName & "公司.TAB" ' 指定目的文件名。
 FileCopy SourceFile, DestinationFile   ' 将源文件的内容复制到目的文件中。错误：找不到文件，郁闷死了，文件路径明明对，却出错

Answer 1

Dim SourceFile, DestinationFile
  SourceFile = App.Path & "\数据库\" & GName & "公司.TAB" ' 指定源文件名。
 DestinationFile = CommonDialog1.filename & GName & "公司.TAB" ' 指定目的文件名。
 FileCopy SourceFile, DestinationFile   ' 将源文件的内容复制到目的文件中。

Answer 2

加一句
msgbox  SourceFile
msgbox DestinationFile   看看。另外 CommonDialog1.filename 应该包括完整的路径加文件名，怎么后面还加了文件名？

Answer 3

是不是Gname后面要加上\Dim SourceFile, DestinationFile
  SourceFile = App.Path & "\数据库\" & GName & "\公司.TAB" ' 指定源文件名。
 DestinationFile = CommonDialog1.filename & GName & "\公司.TAB" ' 指定目的文件名。
 FileCopy SourceFile, DestinationFile   ' 将源文件的内容复制到目的文件中。

Answer 4

cpp2017(幕白兄)  说的是关键   
你在出错后在即时窗口中输入?DestinationFile  仔细观察一下 CommonDialog1.filename已经是个文件名了  你后面加上"\" 就变成某个不存在的文件架了

Answer 5

SourceFile的路径
E:\项目\12.2\12.2\山东省燃气热力行业信息管理系统\数据库\济南公司.TABDestinationFile的路径
E:\项目\ttt\济南公司.TAB
有错误吗？

Answer 6

E:\项目\ttt\  有这个目录么？   对不起没有 问题就在这里 

Answer 7

ttt是根据CommonDialog1的输入创建的新目录 有,已经创建了

Answer 8

CommonDialog1 不会自己创建新目录的  

Answer 9

你检测的方法
1，用固定字符串代替那个出现问题的连接起来的字符串
2, DestinationFile = CommonDialog1.filename &"\" & GName & "\公司.TAB" ' 指定目的文件名。
试验一下呢？

Answer 10

我知道,老哥,  
 Text1.Text = CommonDialog1.filename
MkDir (Text1.Text)
文件已经创建了,

Answer 11

汗 你代码不给全 
我那你给的最先前的部分调试了 就是由于DestinationFile的问题
 
你尽量把你的源代码尽量多的贴出来一些 才好判断