怎么可以实现类似资源管理器编辑子菜单“移动到文件夹”

Question

求代码，例外想问下调出来的“移动文件夹”那个小窗体是不是还需要另建一个Form实现？急用……

Answer 1

谁给个代码，发我邮箱里；[email protected]    谢谢了……

Answer 2

我给你发了个 "移动文件例子.rar"

Answer 3

谢了，不过和我想要的不一样，我是想把filelistbox中的文件移动到其它路径的文件夹。不是指定路径的移动。

Answer 4

楼主不太开窍,我就在罗嗦一下,这样改即可
取到filelistbox的路径,如"E:\aa" 
    filelistbox1.Path = "E:\aa"
    dim t="c:\temp"          SHFileOp.wFunc = FO_MOVE
          SHFileOp.pFrom = filelistbox1.Path & "\*.*" + Chr(0)
          SHFileOp.pTo = t
          SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATION
          Call SHFileOperation(SHFileOp)

Answer 5

谢谢独孤剑大虾！我初学vb，弱弱的再问一下，我改了，但是还是只能移动到指定的文件夹，比如：E:\下载。而且移动时把文件夹内的所有文件都移动了，怎么只移动选中的那个文件？

Answer 6

楼主的意思在刚开始时就没有说明白,真的没办法
"还是只能移动到指定的文件夹，比如：E:\下载",楼主的意思是可以移动到任意指定的位置吗?
如图,加入如下代码:  Private Sub Command1_Click()
          Dim SHFileOp As SHFILEOPSTRUCT
          SHFileOp.wFunc = FO_MOVE
          SHFileOp.pFrom = Dir1.Path & "\" & File1.List(File1.ListIndex) + Chr(0)
          SHFileOp.pTo = Dir2.Path
          SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATION
          Call SHFileOperation(SHFileOp)
          File1.Refresh
  End SubPrivate Sub Dir1_Change()
    File1.Path = Dir1.Path
End SubPrivate Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
End SubPrivate Sub Drive2_Change()
    Dir2.Path = Drive2.Drive
End SubPrivate Sub File1_Click()
    Dim i As Long, s As String
    s = File1.List(File1.ListIndex)
End SubPrivate Sub Form_Load()
    Drive1.Drive = "D:\"
    Drive2.Drive = "E:\"
End Sub如果还不会,我给你发代码