Vadikan, примерно я набросал:
читать дальше »
Код:
Option Explicit
' Enum IOMode
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Dim strURL
Dim strFolder
Dim strFile
Dim objFSO
Dim objTS
Dim objFile
Dim objShell
Dim objFolder
Dim objFolderItem
With WScript.Arguments
strURL = .Item(0)
strFolder = .Item(1)
strFile = .Item(2)
End With
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(strFolder) Then
With objFSO.OpenTextFile(strFile, ForWriting, True)
For Each objFile In objFSO.GetFolder(strFolder).Files
.WriteLine strURL & "/" & objFile.Name
.WriteLine objFile.Size
Next
.Close
End With
Set objShell = WScript.CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(objFSO.GetParentFolderName(strFile))
If Not objFolder Is Nothing Then
Set objFolderItem = objFolder.ParseName(objFSO.GetFileName(strFile))
If Not objFolderItem Is Nothing Then
objFolderItem.InvokeVerb "Edit"
Set objFolderItem = Nothing
End If
Set objFolder = Nothing
End If
Set objShell = Nothing
Else
WScript.Echo "Can't find folder [" & strFolder & "]"
End If
Set objFSO = Nothing
WScript.Quit 0
Примерный вызов скрипта:
Код:
Script.vbs "http://oszone.net/path" "C:\Downloads\Software" "E:\Песочница\0040\0004.txt"
пока без каких-либо проверок, ибо есть ряд вопросов:
читать дальше »
1. Какая нужна кодировка выходного файла (в примере — «ANSI»).
2. Куда класть выходной файл (в примере — кладётся туда, куда указано в командной строке при вызове скрипта). Или его, фактически, вообще можно не сохранять, а требуется только само сгенерированное содержимое, например, дабы скопировать его в буфер обмена?
3. Размер нужен именно в байтах, без изысков — как-то: деление на триады («2,855,699»), приведение к нормализованному виду («2,789 Кб»/«2,7 Мб»)?
4. Какой язык программирования предпочтителен?
