请高手帮忙写个小程序：移动一个文件夹中全部文件到另一个文件夹中。谢谢。 - 编程论坛

#2

xiangyue05102016-11-01 11:35

name应该就是可以的
要不FileCopy + Kill或者 MoveFile （需要声明，见下面代码）
我这里只有VBA，name和filecopy都可以，movefile无法测试。

Private Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long

#3

xiangyue05102016-11-01 11:35

你的代码我测试了一下，问题在于If Dir(s1, vbDirectory) <> "" And Dir(s2, vbDirectory) <> "" Then和s3 = Dir(s1 & "\*.*")的位置关系
前面你用了s3 = Dir(s1 & "\*.*")，后面又有Dir(s1, vbDirectory) <> "" And Dir(s2, vbDirectory)
那么s3 = Dir延续的是哪句，你想过没有？
这里如有没有必要，把If Dir(s1, vbDirectory) <> "" And Dir(s2, vbDirectory) <> "" Then和endif 删除就可以了
如果一定要这句的话，s3 = Dir(s1 & "\*.*")放在判断体内部也可以。

#4

HVB62016-11-01 11:46

回复 3楼 xiangyue0510

请您再看1楼的要求，然后写全代码。谢谢。

#5

xzlxzlxzl2016-11-01 11:52

Shell "cmd.exe /k move e:\Media\*.* e:\bbb", vbHide '将e:\Media的所有文件移到e:\bbb中

#6

xss_wl2016-11-01 12:25

使用VB本身提供的有关文件操作的语句或函数，就能够完全实现楼主需要的功能，大家为什么要使用API等函数呢？

#7

xiangyue05102016-11-01 17:36

回复 4楼 HVB6

这个论坛是交流的，我也把你代码的问题指出来了，如何修改也说清楚了
如果你连别人的帖子都不看，只想要别人给你完整的代码。懒是你的问题，不会也是你的问题。
一句话：懒得理你。

#8

寒冰玉2016-11-02 23:01

Option Explicit

Private Sub Command1_Click()
   Dim s1 As String, s2 As String, s3 As String
   s1 = "d:\a"
   s3 = Dir(s1 & "\*.*")
   If s3 = vbNullString Then
       MsgBox "源文件夹没有文件"
       Exit Sub
   End If
   s2 = "d:\b"
   If Dir(s2, vbDirectory) = vbNullString Then MkDir s2
    s3 = Dir(s1 & "\*.*")
    If Dir(s1, vbDirectory) <> vbNullString And Dir(s2, vbDirectory) <> vbNullString Then
    Do While s3 <> vbNullString
       Name s1 & "\" & s3 As s2 & "\" & s3
      s3 = Dir(s1 & "\*.*")
    Loop
  End If
  MsgBox "ok"
End Sub

只改一句代码，便可实现楼主的要求，不过为了严谨起见，还要判断当源文件夹没有文件时的处理方法

[此贴子已经被作者于2016-11-2 23:17编辑过]