Смотрите видео ниже, чтобы узнать, как установить наш сайт в качестве веб-приложения на домашнем экране.
Примечание: Эта возможность может быть недоступна в некоторых браузерах.
Я хочу вывести третий аргумент.
if Wscript.Arguments.Count > 0 then
msgbox Wscript.Arguments(2)
end if
Sub Touch(FolderPath, FileName, NewDate)
Set FolderPath = WScript.Arguments.Item(0)
sss = FolderPath.ModifyDate
msgBox sss
End Sub
Не знаю, как это делает Total Commander. Если перестаскивать (или отправлять через контекстное меню "Отправить") несколько файлов на программу, то Windows запускает несколько экземпляров программы, каждой из которых передаёт файл в качестве 1-го аргумента.Я их передаю в виде списка файлов, с помощью параметра %P%S (Т.е., имена с полным путём всех выделенных файлов).
Set oFSO = CreateObject("Scripting.FileSystemObject")
if Wscript.Arguments.Count > 0 then
sFile = Wscript.Arguments(0)
if oFSO.FileExists(sFile) then
Set oFile = oFSO.GetFile(sFile)
sModify = oFile.DateLastModified
end if
end if