Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Single Post  Topic: Скрипты для скачивания файлов 
Author Message
skole



PostPosted: Tue Jun 05, 2007 08:27    Post subject: Reply with quote

Code:
' ==============================================================
'  Description:   Производит скачивание файлов и сайтов из
'         локальных сетей и Интернет, возможна докачка,
'         скачиваемый файл можно задавать как в ручную,
'         так и из файла с расширением URL
'  Installation:   Параметры: "%L"(именно в кавычках!)
'         Изменить! Exe = """Путь к файлу wget.exe"""
'  Author:      SkOle
' ==============================================================

Dim FSO, WSH, TempFile
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("WScript.Shell")
Set TempFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(WScript.Arguments(0), 1)

Commander_Path = WSH.ExpandEnvironmentStrings("%COMMANDER_PATH%")
Exe = (chr(34) & Commander_Path + "\System\Bin\WGet\wget.exe" & chr(34))

File = TempFile.ReadLine
If FSO.GetExtensionName(File) <> "url" Then
 URL = InputBox("Введите ссылку для скачивания", "Download Script")
 If URL = nil Then
  WScript.Quit
 Else
  WSH.Run Exe & " -r -c -nd --tries=1000000 " & " " & URL
 End If
Else
 WSH.Run Exe & " -i " & File & " -r -c -nd --tries=1000000"
 WScript.Quit
End If

Set WSH = Nothing
Set FSO = Nothing
Set TempFile = Nothing
WScript.Quit


вот весь скрипт целиком... если папка пустая: в ней нет ни файлов, ни каталогов, то получается, что курсор стоит на [..] (переход на каталог выше) и в качестве входного параметра передается null и выскакивает ошибка... как избежать именно вот этого, что если нет никаких файлов под курсором, то скрипт должен выполнять действия с момента
Code:
 URL = InputBox("Введите ссылку для скачивания", "Download Script")
View user's profile Send private message ICQ Number


Powered by phpBB © 2001, 2005 phpBB Group