Показать сообщение отдельно
Старый 21.04.2008, 09:54   #10
dmitry_a
Постоялец
 
Пол:Мужской
Регистрация: 11.04.2007
Сообщений: 284
Репутация: 85
По умолчанию Ответ: Нужно создать *.bat

Цитата:
Сообщение от SidneyXP Посмотреть сообщение
Вопрос по теме, существует ли возможность написать такой bat cmd который бы забирал архив с фтп (не надо меня пинать дочитайте! и распаковывал его, например винраром в определенныю папку... по отдельности могу а вот все вмете неть(

Как раз недавно заморачивался подобным вопросом, скрипт не доконца отлажен еще, писался в скоростном темпе но то что тебе требуется делает.

Код:
'Забираем файлики по фтп, с использование библиотеки FTP.DLL от Primalscript
'и записываем все в лог файл.
Sub FTPTransfer(center,account,password,source,destination)
Dim oftp

'WScript.Echo source

Set oftp = CreateObject("Primalscript.FTPTransfer")
oftp.Passive = 1 ' set the passive flag if needed
' oftp.Port =  ' Set whatever port you are using if not the default ftp port
if oftp.Connect(center,account,password) = 0 Then
	'WScript.Echo oftp.Status
Else
	WScript.Echo source
	WScript.Echo "Starting download"
	If oftp.Get(source,destination) = 0 Then
		WScript.Echo oftp.Status
	Else
		'WScript.Echo "Download complete"
		oftp.Remove(source)
		WScript.Echo oftp.status
	End If
	oftp.Disconnect
end If
end Sub
и в догонку распаковка.

Код:
'Разархивируем  файлы из архива.
Sub ExtArchive (path, center)
Set objShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Const ForAppend = 3

On Error Resume Next

winRarPath = """%systemdrive%\Program Files\WinRAR\rar.exe""" 'Путь к архиватору
'"c:\program files\winrar\rar.exe" X -y -df "srcpath" "destpath"
i = objShell.run(winRarPath & " X -y -df """ & path & """" ,0 , True)
k = Empty
If i <> 0 Then k = i

wscript.echo path
'Коды возврата Winrar
Select Case k
case 0	
	WScript.Echo "Операция успешно завершена." & "in " & center 
Case 1
	WScript.Echo "Предупреждение. Произошли некритические ошибки. (Возможно отсутствие файла)" & "in " & center
Case 2
	WScript.Echo "Произошла критическая ошибка." & "in " & center
case 3	 
	WScript.Echo "При распаковке обнаружена ошибка CRC." & "in " & center
case 4	
	WScript.Echo "Предпринята попытка изменить заблокированный архив."
case 5	 
	WScript.Echo "Произошла ошибка записи на диск."
Case 6	
	WScript.Echo "Произошла ошибка открытия файла." & "in " & center
case 7	
	WScript.Echo "Ошибка при указании параметра в командной строке."
case 8	
	WScript.Echo "Недостаточно памяти для выполнения операции."
case 9
	WScript.Echo "Ошибка при создании файла"
Case 255	
	WScript.Echo "Операция была прервана пользователем."
End Select

End Sub
писалось все на VBS, если что непонятно спрашивай, я функции из своего кода выдернул, так что под твои нужды надо еще их напильником подшлейфовать.

Последний раз редактировалось dmitry_a; 21.04.2008 в 09:58..
dmitry_a вне форума
 
Ответить с цитированием Вверх
Сказали спасибо:
 
Время генерации страницы 0.08317 секунды с 9 запросами