[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