Follow along with the video below to see how to install our site as a web app on your home screen.
Примечание: This feature currently requires accessing the site using the built-in Safari browser.
Я хочу вывести третий аргумент.
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