VBS/WSH/JS - [решено] Вставить значение переменной в путь к файлу

[Dedcase]

Приветствую! Есть такая проблема, написано несколько строк на vbs:

Dim Wall

Wall = CInt(Int((2 * Rnd()) + 1))

Set objWshShell = WScript.CreateObject("Wscript.Shell")

strPath2DestWallpaper = "D:\Wall\значение переменной Wall.bmp"

objWshShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\Wallpaper", strPath2DestWallpaper, "REG_SZ"

objWshShell.Run """%SystemRoot%\System32\RUNDLL32.EXE"" user32.dll,UpdatePerUserSystemParameters", 0, True



Как значение переменной Wall (тут получается "рандомная" цифра от 1 до 2) вставить в путь вместо "значение переменной Wall" ? Необходимо для случайного выбора фона рабочего экрана из картинок с именами 1.bmp и 2.bmp

[Iska]

Код:

Код: Выделить всё

strPath2DestWallpaper = "D:\Wall\" & CStr(Wall) & ".bmp"

[Iska]

не буду создавать новые темы.

А как укзывать весь путь в переменной?





Код:

Код: Выделить всё

dim log, text
log = C:\hikka\log.txt
Text = Text & "START " & Date &  " "  & time  
set FSO = CreateObject("Scripting.FileSystemObject")
set OFile = FSO.OpenTextFile(" log ", 8, True)
 OFile.Write(Text & vbCrLf)
OFile.Close

[Iska]

Код:

Код: Выделить всё

log = "C:\hikka\log.txt"
…
set OFile = FSO.OpenTextFile(log, 8, True)

В чём смысл:


Цитата blacktor:



Text = Text &

VBS/WSH/JS - [решено] Вставить значение переменной в путь к файлу

?

[blacktor]

Iska, наверно его нет)





Код:

Код: Выделить всё

dim log, text
log = C:\hikka\log.txt
Text = "START " & Date &  " "  & time  
set FSO = CreateObject("Scripting.FileSystemObject")
set OFile = FSO.OpenTextFile(" log ", 8, True)
 OFile.Write(Text & vbCrLf)
OFile.Close

[Iska]

Цитата blacktor:





Код:

Код: Выделить всё

log = C:\hikka\log.txt
…
set OFile = FSO.OpenTextFile(" log ", 8, True)

VBS/WSH/JS - [решено] Вставить значение переменной в путь к файлу

Могу повторить:



Код:

Код: Выделить всё

log = "C:\hikka\log.txt"
…
set OFile = FSO.OpenTextFile(log, 8, True)