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两个值都是正确的啊