[LepeT]

Спасибо,скажите пожалуйста как после %appdata% указать поддиректорию? Awesomium и можно ли скачать сразу папку,мне просто нужно что бы качалась 1 целая папка (он с подпапка,это геморойно если указывать команды на создания папки,потом на создание подпапки и каждый файл качать в отдельную директорию) и 6 файлов,некоторые из них запускались некоторые нет ( по усмотрению),а так же что бы можно было указать в скрытом режиме или нет
Кроме этого больше не чего не нужно

[Iska]

Спасибо,скажите пожалуйста как после %appdata% указать поддиректорию? Awesomium »

Код:

strPath = "%AppData%\Awesomium"

и можно ли скачать сразу папку »

Я уже писал ранее — нельзя «скачать папку». HTTP-протокол не позволяет получить список содержимого каталога. При попытке обращения к папке он, в зависимости от настроек сервера, либо возвращает содержимое умолчального файла («default.html», «index.html» и т.п.) из каталога, либо выдает сгенерированную html-страницу с содержимым каталога, сгенерированную специфичным для каждого сервера образом (я уже писал по поводу Web-клиента на WSH), либо сообщает об ошибке доступа. То есть, в зависимости от настроек конкретного сервера можно либо получить только html-содержимое, либо вообще не получить. Если веб-сервер — Ваш, подымайте на нём дополнительно WebDAV, и тогда можно будет поговорить про содержимое папки:

читать дальше »

Код:

Option Explicit

Dim strFolder

Dim objFSO
Dim objFolder
Dim objFile


strFolder = "\\live.sysinternals.com\tools"

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

If objFSO.FolderExists(strFolder) Then
	For Each objFolder In objFSO.GetFolder(strFolder).SubFolders
		WScript.Echo "[" & objFolder.Name & "]"
	Next
	
	For Each objFile In objFSO.GetFolder(strFolder).Files
		WScript.Echo objFile.Name
	Next
Else
	WScript.Echo "Can't find folder [" & strFolder & "]."
	WScript.Quit 1
End If

Set objFSO = Nothing

WScript.Quit 0

мне просто нужно что бы качалась 1 целая папка (он с подпапка,это геморойно если указывать команды на создания папки,потом на создание подпапки и каждый файл качать в отдельную директорию) и 6 файлов,некоторые из них запускались некоторые нет ( по усмотрению),а так же что бы можно было указать в скрытом режиме или нет »

Это я уже читал выше неоднократно и понял с первого раза.

Кроме этого больше не чего не нужно »

«Бабуся, пусти водицы напиться, а то так есть хочется, что даже переночевать негде» .

Я настойчиво пытаюсь убедить Вас начать изучать WSH, а Вы не менее настойчиво продолжаете упрашивать, чтобы написали за Вас.

[LepeT]

Я настойчиво пытаюсь убедить Вас начать изучать WSH, а Вы не менее настойчиво продолжаете упрашивать, чтобы написали за Вас. »

Я обязательно начну,просто у меня времени нет,как появляется свободное захожу сюда,надеюсь что отпишите,честно

Часто гуглю варианты,я в принципе понимаю что и где обозначают команды,но я не знаю как правильно записывать,какие правила,знаки где какие ставить что бы все это работало

[LepeT]

Это я уже читал выше неоднократно и понял с первого раза. »

Так можно ли что то в виде этого на нужных файлах добавить
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "cmd.exe /c D:\directory\your_batch.cmd", 0, false

И да как сделать так что бы файлы начали открываться только тогда когда все другие до качаются

[Iska]

Так можно ли что то в виде этого на нужных файлах добавить »

Можно, добавляйте.

И да как сделать так что бы файлы начали открываться только тогда когда все другие до качаются »

Дождаться, пока все файлы загрузятся, затем открывать.

[LepeT]

Можно, добавляйте. »

Я же сказал что не умею,поэтому прошу у вас помощи

[LepeT]

Как мне перенести то что я хочу с вбс на всф,дайте мануал как это сделать...