[Creat0R]

DImaN!,

Как можно в VBScript получить путь к текущей директории »

Так:

Код:

Wscript.Echo GetScriptDir()

Function GetScriptDir()
	GetScriptDir = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\", -1, 1)-1)
End Function

К примеру, на диске С в папке folder находится какой-то file.zip, нужно его распаковать средствами VBScript. Но нужно, чтобы сам файл скрипт искал в той же директории, где и он сам находится (+ желательно, чтобы он искал все архивы и их распаковывал). »

Можно попробовать примерно так (не тестировал):

Код:

'On Error Resume Next

Dim sScriptDir, sZipsDir, sUnZipDir

Set FSO 		= WScript.CreateObject("Scripting.FileSystemObject")
Set oShell 		= WScript.CreateObject("Shell.Application")

sScriptDir 		= Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\", -1, 1)-1)

sZipsDir 		= sScriptDir
sUnZipDir 		= sScriptDir

Set oRoot 		= FSO.GetFolder(sZipsDir)
Set oAllFiles		= oRoot.Files

For Each oFile in oAllFiles
	If Right(oFile.Name, 4) = ".zip" Then UnZipFiles oFile.Path, sUnZipDir
Next

Function UnZipFiles(sZipFile, sDest)
	'Get zip file namespace object
	Set oFolder = oShell.NameSpace(sZipFile)
	
	'Get list of items in zip file
	Set oItems = oFolder.Items
	
	'If not exists, create destination folder
	If FSO.FolderExists(sDest) = 0 Then FSO.CreateFolder(sDest)
	
	'Get destination folder namespace object
	Set oDest = oShell.NameSpace(sDest & "\")
	
	'Extract the files
	oDest.CopyHere oItems, 64
End Function

[DImaN!]

Creat0R, огромное спасибо! Все замечательно работает... Осталось только капитально разобраться в Вашем скрипте

[NBA]

Нужна помощь!!! Нужно скопировать файлы с одного сервера на другой. Проблема заключается в том, что server2 включается каждий день в неизвестное время с 9AM до 12 AM
copy /Y /Z "\\server1\Share$\BACKUP\*.bkp", "\\server2\Share$\BACKUP\*.bkp"
Т.е. если server2 нету должен сработать таймер пока server2 не появится. Команда АТ не катит.
Заранее спасибо за ответы

[NBA]

ето должно быть что-то типа:
if exist \\server2\backup\nul goto process copy /Y /Z "\\server1\Share$\BACKUP\*.bkp", "\\server2\Share$\BACKUP\*.bkp",
но у меня почему-то не получается, скрипт отрабатывает но нет никаких сообщений и файл не копируется
к тому же нужно в указаное время - с 9AM до 12 AM а то он будет бесконечно так лобудеть
P.S.: Я новенький и зелененький

[censored]

Как в батнике сделать чтобы был выбор. Например: Выбирите номер дейсвия (1,2,3,4). Допустим если выбирают 1 то выполняется одна команда, если 2 то другая...и т.д.

[Petya V4sechkin]

censored, как-то так:

Код:

@Echo Off
Set /P Ch=Выберите номер действия (1,2,3,4) 
If "%Ch%"=="1" Echo 1-я команда
If "%Ch%"=="2" Echo 2-я команда
If "%Ch%"=="3" Echo 3-я команда
If "%Ch%"=="4" Echo 4-я команда

[censored]

Спасибо.

[Rostlv]

1. Нужно написать код для проверки большого количества файлов в разных директориях, и в случае отсутствия хотя-бы одного, вывести окошко с текстом об отсутствии файлов. Главное, чтобы эту команду не перечислять после указания каждого файла, она одинакова для всех отсутствующих файлов, должно быть красиво.

Мой вариант:

If Not Exist %Директория%\файл.exe ( msg * "Текст с сообщением" GoTo :EOF )

2. Как с помощью CMD создать реально работающий прогрессбар?

3. Чем лучше всего компилировать cmd-файл в .exe

Заранее спасибо.

[yurfed]

GoTo :EOF

не совсем понятен переход в конец содержимого файла (EOF) и не совсем понятен смысл-

и в случае отсутствия хотя-бы одного, вывести окошко с текстом об отсутствии файлов. »

Я в этом написании не силён, но при отсутствии файлов больше чем один, вы просто не заметите какой отсутствует. Это будет происходить очень быстро

Rostlv,

Нужно написать код для проверки большого количества файлов в разных директориях, и в случае отсутствия хотя-бы одного, вывести окошко с текстом об отсутствии файлов. »

Предложу так:

Код:

@echo off
if exist file1.ext (
call :yes1 ) else (
call :no1
)
:yes1
if exist file2.ext (
call :yes2 ) else (
call :no2
)
rem и т.д.

:no1
cls
echo Файл file1.ext не существует!
pause
exit

:no2
cls
echo Файл file2.ext не существует!
pause
exit

Но это слишком долго, если нужен

код для проверки большого количества файлов в разных директориях »

Как с помощью CMD создать реально работающий прогрессбар? »

Насколько мне известно, никак. Копайте в сторону VBS и/или AutoIt'a

Чем лучше всего компилировать cmd-файл в .exe »

Quick Batch File Compiler