PDA

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


Dedcase
12-03-2015, 16:27
Приветствую! Есть такая проблема, написано несколько строк на 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
strPath2DestWallpaper = "D:\Wall\" & CStr(Wall) & ".bmp"

blacktor
10-12-2015, 21:42
не буду создавать новые темы.
А как укзывать весь путь в переменной?

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
log = "C:\hikka\log.txt"

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

В чём смысл:
Text = Text & »
?

blacktor
11-12-2015, 16:18
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
log = C:\hikka\log.txt

set OFile = FSO.OpenTextFile(" log ", 8, True)
»
Могу повторить:
log = "C:\hikka\log.txt"

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




© OSzone.net 2001-2012