перенос содержимого из одной папки в другую (не копирование!)
- Автор темы zalola181
- Дата начала
Dima1337
Осваивающий
- Сообщения
- 186
- Репутация
- 24
Код:
HotKeySet("{Esc}","_Exit")
HotKeySet("{F4}","_Move")
Global $move
While 1
Sleep(100)
WEnd
Func _Move()
$move = Not $move
If $move Then
DirCopy (@DesktopDir & "\Старая папка", @DesktopDir & "\Новая папка",1)
DirRemove(@DesktopDir & "\Старая папка",1)
DirCreate(@DesktopDir & "\Старая папка")
EndIf
EndFunc
Func _Exit()
Exit
EndFuncDima1337
Осваивающий
- Сообщения
- 186
- Репутация
- 24
Собственно не пойму что вам нужно.
"в данном случае перенос целой папки, а ни ее содержимого"
Этот скрипт переносит ВСЕ файлы из папки исходник на рабочем столе в папку бэкап на диске С
После чего удаляет папку исходник с файлами и создает заного пустую.
Сформулируйте свой вопрос четче :stars:
"в данном случае перенос целой папки, а ни ее содержимого"
Этот скрипт переносит ВСЕ файлы из папки исходник на рабочем столе в папку бэкап на диске С
После чего удаляет папку исходник с файлами и создает заного пустую.
Сформулируйте свой вопрос четче :stars:
Код:
HotKeySet("{Esc}","_Exit")
HotKeySet("{F4}","_Move")
Global $move
While 1
Sleep(100)
WEnd
Func _Move()
$move = Not $move
If $move Then
DirCopy (@DesktopDir & "\Папка исходник", "C:\Папка Бэкап",1)
DirRemove(@DesktopDir & "\Папка исходник",1)
DirCreate(@DesktopDir & "\Папка исходник")
ControlSend('','','','{F5}')
EndIf
EndFunc
Func _Exit()
Exit
EndFunc