[Maza Faka]

нужно чтоб этот код был переписан для работы в win98 »

Нет возможности проверить в Win98, в WinXP работает:

Код:

Dim FSO, sFile, sFile1, sFile2, sPath, hFile, WshShell

sFile1 = "c:\windows\dkdir.txt"
sFile2 = "c:\dkdir.txt"

Set FSO = CreateObject("Scripting.FileSystemObject")

If FSO.FileExists(sFile1) Then
   sFile = sFile1
ElseIf FSO.FileExists(sFile2) Then
   sFile = sFile2
Else
   MsgBox "Переустановите программу", 16, "Ошибка"
   WScript.Quit 1
End If

Set hFile = FSO.OpenTextFile(sFile, 1)
sPath = hFile.ReadAll()

'MsgBox sPath

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "7z.exe e 12.zip -o" & sPath, 0, True