[@Soft17]

Пробую выполнить перемещение папки.
Результат: ошибка "File already exists"

Код

Visual Basic

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub CopyFolder_btn_Click()             Dim sourcePath As String                                                                                                            ' путь к папке источнику            Dim destinationPath As String                                                                                                   ' путь к папке получателю            Dim fso As Object                                                                                                                          ' Объект FSO (File System Object)                         sourcePath = "c:\test\Access\copyFolder\p01\FolderTest\Source"                                  ' Источник            destinationPath = "c:\test\Access\copyFolder\p01\FolderTestForCopy"                         ' Получатель                         Set fso = CreateObject("Scripting.FileSystemObject") ' Объект FSO (File System Object) (Присваиваем переменной fso ссылку на новый экземпляр FileSystemObject)                       fso.MoveFolder sourcePath, destinationPath                                                                          ' перемещаем `папку`            Set fso = Nothing End Sub

[@Eugene-LS]

Результат: ошибка "File already exists"

... а тут наоборот нужен слешь у DestinationPath

Добавлено через 28 минут
Soft17, попробуйте мой (не идеальный вариант):

Кликните здесь для просмотра всего текста

Visual Basic

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 Public Sub FSO_MoveFolder(strSoursePath As String, strDistPath As String, Optional bOverwrite As Boolean = True) 'Перемещение папки (или папок)- Moves one or more folders from one location to another. 'Аргументы: '   strSoursePath    - Путь откуда '   strDistPath      - Путь куда '   bOverwrite       - Перезаписывать файлы по пути назначения '-------------------------------------------------------------------------- Dim objFSO As Object Dim s$, i%   On Error GoTo FSO_MoveFolder_Err         DoCmd.Hourglass True 'Показать часики на случай большого кол-ва файлов       Set objFSO = CreateObject("Scripting.FileSystemObject")         If Not objFSO.FolderExists(strSoursePath) Then         MsgBox "Исходная папка:" & vbCrLf & strSoursePath & _             vbCrLf & "не найдена.", vbExclamation         GoTo FSO_MoveFolder_Bye     End If         If Not objFSO.FolderExists(strDistPath) Then         MsgBox "Папка назначения:" & vbCrLf & strDistPath & _             vbCrLf & "не найдена.", vbExclamation         GoTo FSO_MoveFolder_Bye     End If         i = InStrRev(strSoursePath, "\")     s = Mid(strSoursePath, i)     s = strDistPath & s         If Not Right(strDistPath, 1) = "\" Then strDistPath = strDistPath & "\"         If Not Dir(s, vbDirectory) = "" Then         If bOverwrite = True Then objFSO.DeleteFolder s         DoEvents     End If         'перемещение папки:    objFSO.MoveFolder strSoursePath, strDistPath     DoEvents   FSO_MoveFolder_Bye:     On Error Resume Next     Set objFSO = Nothing     DoCmd.Hourglass False 'Вернуть нормальный курсор    Exit Sub   FSO_MoveFolder_Err:     MsgBox "Ошибка " & Err.Number & vbCrLf & Err.Description & vbCrLf & _     "в процедуре: FSO_MoveFolder", vbCritical, "Error in Empty2003Application v005"     Resume FSO_MoveFolder_Bye End Sub

У вас будет так:

Visual Basic
1      FSO_MoveFolder sourcePath, destinationPath

Если что - критика приветствуется с благодарностью.

[@Soft17]

Eugene-LS,
Рассматриваю использование на двух дисках:
- диск "С" - диск компьютера (расположен на комп-1).
- диск "Z" - сетевой диск (расположен на комп-2).

Если папки на диске "С" - результат: работает.
Если папки на диске "Z" - результат: ошибка "Permission denied".

При выполнении операций папки закрыты. Т.е. файловый проводник не использует папки.

Вопрос: как сделать чтобы перемещение работало с диском "Z"?

Копирование папок для диска "Z" работает.

Visual Basic
1 fso.CopyFolder sourcePath, destinationPath, True

[@Eugene-LS]

как сделать чтобы перемещение работало с диском "Z"?

Не знаю

[mobile]

Копирование папок для диска "Z" работает.

Если копирование проходит, то следующим шагом можно удалить исходную папку

Visual Basic
1 fso.deletefolder sourcePath

[@Eugene-LS]

Если копирование проходит, то следующим шагом можно удалить исходную папку

Отличная идея!

Я тут просто тихо подумал про Брандмауэр Windows - там Access разрешены поползновения по сети?
А вдруг = нет!? Тогда и будет "Permission denied"
... Это уже вопрос к Soft17.

[@Soft17]

Я тут просто тихо подумал про Брандмауэр Windows - там Access разрешены поползновения по сети?
А вдруг = нет!? Тогда и будет "Permission denied"
... Это уже вопрос к Soft17.

У меня Windows-7.
Как найти эту настройку?

[@Eugene-LS]

Как найти эту настройку?

Проще сначала проверить работоспособность операций удаления - Копирования по сети из MSA
А уж если ... - То внести MSA в список программ коим всё разрешено.

Добавлено через 1 минуту

У меня Windows-7.

Да вы, батенька, ретроград!

Добавлено через 1 час 26 минут
Soft17, кстати, проверил по сети у себя:

Visual Basic
1 2 3 4 5 6 7 8 9 10 Private Sub Test002() Dim sSrsPath As String   ' путь к папке источнику Dim sDstPath As String   ' путь к папке получателю                 sSrsPath = "\\DESKTOP-VM16\Pub\Новая папка 001"   ' Источник    sDstPath = "\\DESKTOP-VM16\Pub\Новая папка 002"       FSO_MoveFolder sSrsPath, sDstPath   End Sub

Пашет!
И ещё раз (перезапись) - Опять отработало.

Процедура: FSO_MoveFolder() - без изменений, как в пост #2

Подключил сетевую папку как "Z:"

Visual Basic
1 2 3     sSrsPath = "Z:\Новая папка 001"       sDstPath = "Z:\Новая папка 002"     FSO_MoveFolder sSrsPath, sDstPath, True

... всё работает.

[@D1973]

sSrsPath = "Z:\Новая папка 001"  
    sDstPath = "Z:\Новая папка 002"

Eugene-LS, так Вы перемещаете папку в пределах одного диска, неважно, локальный он или сетевой. Так работать будет. Проблема начинается, когда пытаемся произвести операцию перемещения с одного диска на другой, с С: на Z: к примеру...
Я и сам с этим сталкивался на других ЯП... Просто есть подозрение, что так заложено в Windows API, функции которого так или иначе подтягиваются при работе с файловой системой... Выход предельно прост и его уже указал mobile

[@Eugene-LS]

Проблема начинается, когда пытаемся произвести операцию перемещения с одного диска на другой, с С: на Z: к примеру...

А! - теперь понял!
Спасибо.
... из за праздности, пьянства и прочих излишеств у меня голова не всегда ясная.
... надо будет потом свою процедурку поправить на сей предмет.