[amel27]

Зачем сие действо (перенос, за исключением открытых в данный момент) »

возможно, проблема в прерывании при операции над открытым объектом, придется перебирать все файлы:

Код:

On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")

MoveDir "C:\TEST\FROM", "C:\TEST\TO"

Sub MoveDir(sDirFrom, sDirTo)
  On Error Resume Next
  Dim oD, cF, cD, oI, sD

  Set oD = objFSO.GetFolder(sDirFrom)
  Set cF = oD.Files
  Set cD = oD.SubFolders

  For Each oI In cF
    oI.Move sDirTo &"\"
  Next

  For Each oI In cD
    sD = sDirTo & "\" & oI.Name
    If Not objFSO.FolderExists(sD) Then objFSO.CreateFolder sD
    MoveDir oI.Path, sD
  Next

' If oD.Size = 0 Then oD.Delete
End Sub