skole
|
Posted: Tue Jun 05, 2007 08:27 Post subject: |
|
|
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") |
|
|