JavaScript отключён. Чтобы полноценно использовать наш сайт, включите JavaScript в своём браузере.

Ответить в теме

Сообщение: [QUOTE="Паразит, post: 236029, member: 14638"] [USER=6966]Dragokas[/USER], всё равно не получается. Пробовал и так: [code=vbnet] Set FSO = CreateObject("Scripting.FileSystemObject") Set File = FSO.GetFile(WScript.ScriptFullName) Par = FSO.GetParentFolderName(WScript.ScriptFullName) Set Folder = FSO.GetFolder("111") MsgBox Folder.Size [/code] И так: [code=vbnet] Set FSO = CreateObject("Scripting.FileSystemObject") Set File = FSO.GetFile(WScript.ScriptFullName) set Par = FSO.GetParentFolderName(WScript.ScriptFullName) Folder = FSO.GetFolder("111") MsgBox Folder.Size [/code] Как будет выглядить окончательный правильный вариант? [/QUOTE]