Private Sub Command2_Click()
Dim SourceFile, DestinationFile
SourceFile = App.Path & "\1.txt"
DestinationFile = "c:\"
If Check1.Value = 1 Then
FileCopy SourceFile, DestinationFile
End If
End Sub提示找不到文件路径,我调试看了下SourceFile, DestinationFile两个值都是正确的啊
Dim SourceFile, DestinationFile
SourceFile = App.Path & "\1.txt"
DestinationFile = "c:\"
If Check1.Value = 1 Then
FileCopy SourceFile, DestinationFile
End If
End Sub提示找不到文件路径,我调试看了下SourceFile, DestinationFile两个值都是正确的啊
解决方案 »
- 排序问题
- row cannot be located for updating求解,错误代码80040e38,ADO问题
- 将窗体的关闭按钮屏蔽掉,如何调用API。请高手指教。
- 自制控件问题
- 急急,高手请指教,我的毕业设计要交工了(在线等)
- SQL语句计算的困惑???
- 有关 MediaPlayer 控件的问题!!
- 哪里有可以作不规则表格的控件!不想用Excel!
- 看到那么多人散分,我也散
- 表单有3个Combo控件,建立为控件列表,分别为Cmb(0),Cmb(1),Cmb(2),问题如下:
- 用Timer控件动态生成随机数问题!在线等,急~~~~~
- 怎么编写这样一个程序,让它自动检查成批的QQ号和其对应的密码是否正确
SourceFile = App.Path & "\1.txt"
DestinationFile = "c:\1.txt"
FileCopy SourceFile, DestinationFile