怎样定位文件夹?

[7kxa]

想把文件复制到临时选定的文件夹里,我用Dirlistbox没有找到这个功能,不知怎么实现它.就是让用户选定一个文件夹或驱动器。

[sworddx]

用相关api
copyfile

[7kxa]

“lye(雷一)”，你的方法不能由用户指定文件夹。

“sworddx(.:RNPA:. 剑宇潇湘·秋叶原)”，能否说一下是那个api。

[flc]

up

[lye]

引用microsoft scripting runtime

Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile "c:\a", "d:\b"

[lye]

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

[lye]

不好意思更正以下
FSO.CopyFile 源文件，strFilePath