想把文件复制到临时选定的文件夹里,我用Dirlistbox没有找到这个功能,不知怎么实现它.就是让用户选定一个文件夹或驱动器。
Private Sub cmdMoveFile_Click()
with CommonDialog1
.Filter = "文本文件*.txt|*.txt"
.FileName = lvAtt.ListItems(1).Text
.CancelError = True
.ShowSave
Dim strFilePath As String
strFilePath = .FileName
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile "c:\a", "d:\b"
End Sub