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

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - [решено] Вставить значение переменной в путь к файлу (http://forum.oszone.net/showthread.php?t=296796)

Dedcase

12-03-2015 16:27 2481774

Вставить значение переменной в путь к файлу

Приветствую! Есть такая проблема, написано несколько строк на 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	12-03-2015 17:15 2481801

Код:

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

blacktor

10-12-2015 21:42 2583562

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

Код:

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	11-12-2015 03:17 2583627

Код:

log = "C:\hikka\log.txt"

…

set OFile = FSO.OpenTextFile(log, 8, True)

В чём смысл:

Цитата:

Цитата blacktor

Text = Text & »

blacktor

11-12-2015 16:18 2583826

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	11-12-2015 18:14 2583863

Цитата:

Цитата blacktor

Код:

log = C:\hikka\log.txt

…

set OFile = FSO.OpenTextFile(" log ", 8, True)

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

Код:

log = "C:\hikka\log.txt"

…

set OFile = FSO.OpenTextFile(log, 8, True)

Время: 11:40.