Цитата angel_lyucifer:
|
Спасибо но ваш исходник не работает. »
|
Мой — работает.
Цитата angel_lyucifer:
|
Окно есть а картинки нет, хотя я адрес изменил (Сократил). »
|
Я Вас поздравляю. Но, если Вы не в ладах с html, какие ко мне претензии?
Цитата mwz:
|
Если не указать logotip.gif с полным путём, то результатом может быть невозможность чтения файла скриптом. »
|
Не совсем так: невозможность использовать протокол «file://».
Цитата mwz:
|
Если путь содержит пробелы, то полное имя надо передавать в кавычках. »
|
Не надо.
Цитата angel_lyucifer:
|
А можно ли использовать переменную %CD% ? »
|
Можно. Только бессмысленно. Используйте:
Код:
CreateObject("WScript.Shell").CurrentDirectory
Но, полагаю, Вас интересует отнюдь не текущий каталог, а каталог, в котором содержится сам
скрипт файл *.hta — а это разные вещи (хотя могут и совпадать):
Код:
<script language="VBScript">
Option Explicit
Dim strImgSource
Dim objStdPicture
With CreateObject("Scripting.FileSystemObject")
strImgSource = .BuildPath(Replace(.GetParentFolderName(oHTA.commandLine), """", ""), "My file.gif")
If .FileExists(strImgSource) Then
Set objStdPicture = LoadPicture(strImgSource)
Splash.src = "file://" & strImgSource
With window
.resizeTo Round(objStdPicture.Width / 26.47), Round(objStdPicture.Height / 26.47)
.moveTo (.screen.availWidth - tagBody.offsetWidth) \ 2, (.screen.availHeight - tagBody.offsetHeight) \ 2
End With
Else
MsgBox "Can't find path [" & strImgSource & "].", vbOKOnly & vbExclamation
End If
End With
</script>
