下面这段代码的功能是:特定的时间自动建一个以当前日期命名的文件夹,然后点击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这个地方出错,提示路径不对。各位高手帮忙看看,正确路径应该是什么?谢谢了
参考资料:如果您的回答是从其他地方引用,请表明出处