Question

高分悬赏VB高手，帮忙看看哪里出错了！！

下面这段代码的功能是：特定的时间自动建一个以当前日期命名的文件夹，然后点击Command实现打开一个对话框，选择一个图片后复制到先前日期命名的文件夹内！
Private Sub Timer1_Timer()
Dim Str As String
Str = Format(Now, "mmddyyyy") '得到当前系统日期
If Time > "00:00:00" Then
If Dir("d:\wing\" & Str, vbDirectory) = "" Then
MkDir "d:\wing\" & Str '建立目录
End If
End If
End Sub

Private Sub Command1_Click()
Dim appa As String, appb As String
Dim Str As String
Str = Format(Now, "mmddyyyy")
CommonDialog1.ShowOpen
appa = CommonDialog1.FileName
If appa <> "" Then
appb = CommonDialog1.FileTitle '文件名称
FileCopy appa, "d:\wing\ & Str\" & appb

End If
End Sub

总是在FileCopy appa, "d:\wing\ & Str\" & appb这个地方出错，提示路径不对。各位高手帮忙看看，正确路径应该是什么？谢谢了

Answer 1

应该改成
FileCopy appa, "d:\wing\" & Str & "\" & appb

连这么简单的错误都看不出来，怕是前面的程序都不是自己写的吧。建议你好好看一看书。另外，如果什么地方出错了
可以对该处进行跟踪调试，这样就知道错误所在了。
例如本题 你可以在之前加
appa="d:\wing\ & Str\" & appb
然后看一下实际的appa值与你期待值是否一致，这样马上问题就解决了。只有这样解决问题，你的能力才能提高。否则单靠这样问，你的能力没有办法得到提高的。

Answer 2

你可以看一下appb的变量内容，是不是有什么问题！
"d:\wing\ & Str\" & appb修改
"d:\wing\" & Str & "\" & appb

Answer 3

改成
FileCopy appa, "d:\wing\" & Str & "\" & appb

大概是你不小心写错了

Answer 4

应该写成
FileCopy appa, "d:\wing\"& Str &"\" & appb

Answer 5

改成下面的：

FileCopy appa, "d:\wing\" & Str & "\" & appb