以下的代码的功能是希望把“d:\a”的文件夹中全部文件移动（清空，保留“d:\a”的文件夹）到另一个文件夹“d:\b”中，文件夹“d:\b”中的旧文件保留，但不中。
Private Sub Command1_Click()
   Dim s1 As String, s2 As String, s3 As String
   s1 = "d:\a"
   s2 = "d:\b"
   If Dir(s2, vbDirectory) = "" Then MkDir s2
      s3 = Dir(s1 & "\*.*")
  If Dir(s1, vbDirectory) <> "" And Dir(s2, vbDirectory) <> "" Then
    Do While s3 <> ""
       Name s1 & "\" & s3 As s2 & "\" & s3
      s3 = Dir
    Loop
  End If
    MsgBox "ok"
End Sub

[此贴子已经被作者于2016-11-1 11:36编辑过]

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 

你的代码我测试了一下，问题在于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 & "\*.*")放在判断体内部也可以。

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

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

收到的鲜花

• HVB6 于 2016-11-01 12:08 送鲜花  6朵   附言：我很赞同

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

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

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编辑过]

收到的鲜花

• HVB6 于 2016-11-03 08:21 送鲜花  6朵   附言：我很赞同