Как скопировать папку/файл и вставить его в нужный мне диск с помощью AutoIt

renom · 20 Ноя 2010

Собсно сабж.
Пример:
Копируется файл Win32,который находится на рабочем столе и вставляется в диске D,C.

Выручайте :smile:

Yashied · 20 Ноя 2010

FileCopy(), DirCopy()

renom · 22 Ноя 2010

Такс,ну с этим проблем не возникло.Возникла в другом месте:
К примеру нужно скопировать файл формата .ftt - при этом не зная имени данного файла,но известен диск,в котором лежит данный файл.

У меня получилось примерно так:

Код:

FileCopy("'\С:\*.ftt'", "D:\GAMES\*.*")

Подскажите,в чем ошибка?

madmasles · 22 Ноя 2010

renom

Код:

If FileExists("C:\*.ftt") Then
	MsgBox(0, '', FileCopy("C:\*.ftt", "D:\GAMES\*.*", 8))
Else
	MsgBox(0, '', 'No file')
EndIf

renom · 22 Ноя 2010

madmasles сказал(а):
renom

Код:

If FileExists("C:\*.ftt") Then MsgBox(0, '', FileCopy("C:\*.ftt", "D:\GAMES\*.*", 8)) Else MsgBox(0, '', 'No file') EndIf

Не получилось.

Дело в том,что так же неизвестно в какой папке лежит данный файл(WINDOWS,Program Files,Documents and Settings и т.д.)
но известно,что в диске С:\

madmasles · 22 Ноя 2010

renom [?]

Дело в том,что так же неизвестно в какой папке лежит данный файл(WINDOWS,Program Files,Documents and Settings и т.д.)
но известно,что в диске С:\

А так:

Код:

$sDest = 'D:\GAMES\*.*'
$aSearch = _FileSearch(@HomeDrive, '*.ftt', 1)

If $aSearch[0] Then
	MsgBox(64, '', 'Найдено файлов *.ftt: ' & $aSearch[0] & ' штук.')
	For $i = 1 To $aSearch[0]
		If Not FileCopy($aSearch[$i], $sDest, 9) Then
			MsgBox(16, 'Error', 'Ошибка копирования файла:' & @LF & $aSearch[$i])
		Else
			MsgBox(64, 'OK', 'Скопирован файл:' & @LF & $aSearch[$i])
		EndIf
	Next
Else
	MsgBox(16, 'Error', 'Не найдено файлов *.ftt.')
EndIf


Func _FileSearch($sPath, $sFileMask = '*', $iFlag = 0, $iSubdir = 1)
	;фильтры для поиска нужно указывать через ;
	;$iFlag = 0 - Файлы и папки (по умолчанию)
	;$iFlag = 1 - Только файлы
	;$iFlag = 2 - Только папки
	;$iSubdir = 1 - Искать во всех подкаталогах (по умолчанию)
	;$iSubdir = 0 - Искать только в самой папке
	Local $sOutBin, $sOut, $aOut, $sRead, $hDir, $sAttrib, $sSubdir
	If $iSubdir Then
		$sSubdir = ' /S /B'
	Else
		$sSubdir = ' /B'
	EndIf
	Switch $iFlag
		Case 1
			$sAttrib = ' /A-D'
		Case 2
			$sAttrib = ' /AD'
		Case Else
			$sAttrib = ' /A'
	EndSwitch

	$sOut = StringToBinary('0' & @CRLF, 2)
	$aMasks = StringSplit($sFileMask, ';')

	For $i = 1 To $aMasks[0]
		$hDir = Run(@ComSpec & ' /U /C DIR "' & $sPath & '\' & $aMasks[$i] & '"' & $sSubdir & $sAttrib, @SystemDir, @SW_HIDE, 6)
		While 1
			$sRead = StdoutRead($hDir, False, True)
			If @error Then
				ExitLoop
			EndIf
			If $sRead <> "" Then
				$sOut &= $sRead
			EndIf
		WEnd
	Next
	$aOut = StringRegExp(BinaryToString($sOut, 2), '[^\r\n]+', 3)
	If @error Then
		Return SetError(1)
	EndIf
	$aOut[0] = UBound($aOut) - 1
	Return $aOut
EndFunc   ;==>_FileSearch

renom · 22 Ноя 2010

madmasles сказал(а):

renom [?]

Дело в том,что так же неизвестно в какой папке лежит данный файл(WINDOWS,Program Files,Documents and Settings и т.д.)
но известно,что в диске С:\

А так:

Код:

$sDest = 'D:\GAMES\*.*'
$aSearch = _FileSearch(@HomeDrive, '*.ftt', 1)

If $aSearch[0] Then
	MsgBox(64, '', 'Найдено файлов *.ftt: ' & $aSearch[0] & ' штук.')
	For $i = 1 To $aSearch[0]
		If Not FileCopy($aSearch[$i], $sDest, 9) Then
			MsgBox(16, 'Error', 'Ошибка копирования файла:' & @LF & $aSearch[$i])
		Else
			MsgBox(64, 'OK', 'Скопирован файл:' & @LF & $aSearch[$i])
		EndIf
	Next
Else
	MsgBox(16, 'Error', 'Не найдено файлов *.ftt.')
EndIf


Func _FileSearch($sPath, $sFileMask = '*', $iFlag = 0, $iSubdir = 1)
	;фильтры для поиска нужно указывать через ;
	;$iFlag = 0 - Файлы и папки (по умолчанию)
	;$iFlag = 1 - Только файлы
	;$iFlag = 2 - Только папки
	;$iSubdir = 1 - Искать во всех подкаталогах (по умолчанию)
	;$iSubdir = 0 - Искать только в самой папке
	Local $sOutBin, $sOut, $aOut, $sRead, $hDir, $sAttrib, $sSubdir
	If $iSubdir Then
		$sSubdir = ' /S /B'
	Else
		$sSubdir = ' /B'
	EndIf
	Switch $iFlag
		Case 1
			$sAttrib = ' /A-D'
		Case 2
			$sAttrib = ' /AD'
		Case Else
			$sAttrib = ' /A'
	EndSwitch

	$sOut = StringToBinary('0' & @CRLF, 2)
	$aMasks = StringSplit($sFileMask, ';')

	For $i = 1 To $aMasks[0]
		$hDir = Run(@ComSpec & ' /U /C DIR "' & $sPath & '\' & $aMasks[$i] & '"' & $sSubdir & $sAttrib, @SystemDir, @SW_HIDE, 6)
		While 1
			$sRead = StdoutRead($hDir, False, True)
			If @error Then
				ExitLoop
			EndIf
			If $sRead <> "" Then
				$sOut &= $sRead
			EndIf
		WEnd
	Next
	$aOut = StringRegExp(BinaryToString($sOut, 2), '[^\r\n]+', 3)
	If @error Then
		Return SetError(1)
	EndIf
	$aOut[0] = UBound($aOut) - 1
	Return $aOut
EndFunc   ;==>_FileSearch

Сработало,спасибо.
Можно ли осущ. то же самое действие не подключая сюда "Поиск" ?

madmasles · 22 Ноя 2010

renom [?]

Можно ли осущ. то же самое действие не подключая сюда "Поиск" ?

Не стыкуется с этим:

Дело в том,что так же неизвестно в какой папке лежит данный файл(WINDOWS,Program Files,Documents and Settings и т.д.)
но известно,что в диске С:\

renom · 22 Ноя 2010

madmasles сказал(а):
renom [?]

Можно ли осущ. то же самое действие не подключая сюда "Поиск" ?

Нажмите, чтобы раскрыть...

Не стыкуется с этим:

Дело в том,что так же неизвестно в какой папке лежит данный файл(WINDOWS,Program Files,Documents and Settings и т.д.)
но известно,что в диске С:\

Нажмите, чтобы раскрыть...

А,все,ясно...
Большое спасибо.

renom · 30 Ноя 2010

Возникла сложность в осуществлении следующего скрипта:

Код:

If FileExists("G:\") Then; 
DirCreate("G:\4210\")
FileSetAttrib('G:\4210\', '+H')
FileOpen('%appdata%\118234\118235\')
FileCopy('118236\*.*', 'G:\4210')
EndIf

Может кто не понял что я хочу,поэтому решил показать это в cmd:

@if exist G:\ goto: lala
:lala
@Cd %appdata%\118234\118235\
@xcopy ("118236\*.*" "G:\4210") /E

madmasles · 30 Ноя 2010

renom

Код:

If FileExists('G:\') Then;
	DirCreate('G:\4210')
	FileCopy(@AppDataDir & '\118236\*.*', 'G:\4210\')
	FileSetAttrib('G:\4210', '+H', 1)
EndIf

renom · 30 Ноя 2010

Почему-то не выходит...

madmasles · 30 Ноя 2010

renom [?]

Почему-то не выходит...

У меня выходит.

renom · 30 Ноя 2010

Разъясню,может что не так:
Необходимо скопировать папку(ее имя не известно),которая находится в папке 118236.
Вот полный путь:

C:\Documents and Settings\admin\Application Data\118234\118235\118236\

В папке 118236 создал папку test и кинул туда блокнот,но увы копирование не выходит. :(

madmasles · 1 Дек 2010

renom
Так должно скопировать все папки

Код:

#include <File.au3>

If FileExists('G:\') Then;
	DirCreate('G:\4210')
	$aFolders = _FileListToArray(@AppDataDir & '\118234\118235\118236', '*', 2)
	If IsArray($aFolders) Then
		For $i = 1 To $aFolders[0]
			DirCopy(@AppDataDir & '\118234\118235\118236\' & $aFolders[$i], 'G:\4210\' & $aFolders[$i], 1)
		Next
		FileSetAttrib('G:\4210', '+H', 1)
	EndIf
EndIf

В первом моем варианте все файлы копирует.

renom · 1 Дек 2010

madmasles сказал(а):
renom
Так должно скопировать все папки

Код:

#include <File.au3> If FileExists('G:\') Then; DirCreate('G:\4210') $aFolders = _FileListToArray(@AppDataDir & '\118234\118235\118236', '*', 2) If IsArray($aFolders) Then For $i = 1 To $aFolders[0] DirCopy(@AppDataDir & '\118234\118235\118236\' & $aFolders[$i], 'G:\4210\' & $aFolders[$i], 1) Next FileSetAttrib('G:\4210', '+H', 1) EndIf EndIf

В первом моем варианте все файлы копирует.

Это помогло - спасибо :smile:

Dreps · 30 Мар 2015

Здравствуйте!
Не буду создавать новую тему по аналогичному вопросу, а задам здесь.
Каждый день в папке 123 создаются файлы (..., file2903, file3003). Завтра будет file3103, послезавтра file0104 и т.д. Скрипт будет запускаться 1 раз в день. Надо скопировать именно новый файл в папке 123 и скопировать его в сетевую папку \\comp\123
Можно ли так сделать?

joiner · 30 Мар 2015

Dreps
если твой вопрос аналогичен вопросу этой темы, то решение уже есть. читай посты выше. если не подходит решение, то создай тему. так как твой вопрос не совсем аналогичен. а лучше поискать:
как определить самый новый файл в папке. в справке есть все необходимое.
либо в Стол заказов, если сам писать не хочешь

InnI · 30 Мар 2015

Dreps

Код:

FileCopy(@ScriptDir & "\123\file" & @MDAY & @MON, "\\comp\123")

Dreps · 31 Мар 2015

InnI сказал(а):
Код:

FileCopy(@ScriptDir & "\123\file" & @MDAY & @MON, "\\comp\123")

Отлично! Немного изменил под себя, файл копируется.
InnI, а возможно сделать визуально процесс копирования? Если файл 200-300 Мб, то скрипт висит как запущенный и после завершения копирования закрывается. Не видно как копируется, не очень удобно.

Автор темы	Похожие темы	Форум	Ответы	Дата
D	FileCopy - скопировать в папку с текущей датой	Стол заказов	3	12 Авг 2022
S	Скопировать папку на FTP	Общие вопросы по AutoIt	1	24 Дек 2019
C	Скопировать папку с флешки на компьютер	Стол заказов	14	28 Мар 2018
P	самый простой способ скопировать файл в исходную папку	Общие вопросы по AutoIt	2	23 Апр 2017
F	[Файловая система] как скопировать папку с игнорированием вопросов по системным файлам	Общие вопросы по AutoIt	2	5 Фев 2012

Как скопировать папку/файл и вставить его в нужный мне диск с помощью AutoIt

Новичок

Модератор

Новичок

Модератор

Новичок

Модератор

Новичок

Модератор

Новичок

Новичок

Модератор

Новичок

Модератор

Новичок

Модератор

Новичок

Новичок

Модератор

AutoIT Гуру

Новичок