Цитата DImaN!:
Как можно в VBScript получить путь к текущей директории
Любой язык - [архив] Нужна помощь в написании BAT | CMD | VBS | WSH файлов
Так:
Код:
Код: Выделить всё
Wscript.Echo GetScriptDir()
Function GetScriptDir()
GetScriptDir = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\", -1, 1)-1)
End FunctionЦитата DImaN!:
К примеру, на диске С в папке folder находится какой-то file.zip, нужно его распаковать средствами VBScript.
Но нужно, чтобы сам файл скрипт искал в той же директории, где и он сам находится (+ желательно, чтобы он искал все архивы и их распаковывал).
Любой язык - [архив] Нужна помощь в написании BAT | CMD | VBS | WSH файлов
Можно попробовать примерно так (не тестировал):
Код:
Код: Выделить всё
'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