Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » VBS/WSH/JS - [решено] Переменные в fso.GetSpecialFolder

Ответить
Настройки темы
VBS/WSH/JS - [решено] Переменные в fso.GetSpecialFolder

Новый участник


Сообщения: 19
Благодарности: 0

Профиль | Отправить PM | Цитировать

Всем доброго врмени суток. Небольшой вопрос по VBS.

Есть у меня функция, которая сохраняет файл в папке temp:

Код: Выделить весь код
Function SaveFile(what)
  Set fso = CreateObject("Scripting.FileSystemObject")
  tempFolder = fso.GetSpecialFolder(2)
  'tempFolder = "C:\users\%userprofile%\" не работает
  filepath = tempFolder+"\weather.xml"
  Dim fso1, tf
  Set fso1 = CreateObject("Scripting.FileSystemObject")
  Set tf = fso1.CreateTextFile(filepath, True, True)  'rewrite, unicode
  tf.Write(what) 
  tf.Close
 End Function
Насколько я понимаю у fso.GetSpecialFolder есть следующие параметры:

WindowsFolder - 0 -The Windows folder contains files installed by the Windows operating system.
SystemFolder - 1 - The System folder contains libraries, fonts, and device drivers.
TemporaryFolder - 2 - The Temp folder is used to store temporary files. Its path is found in the TMP environment variable.

Думаю понятно какие папки.

Дико извиняюсь за вопрос, но с VBS я слабо знаком.
Каким образом можно сохранить файл в папку %userprofile% ?

Отправлено: 14:14, 30-05-2013

 

Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать

Код: Выделить весь код
Option Explicit

' 1.
Dim objWshShell

Set objWshShell = WScript.CreateObject("WScript.Shell")
WScript.Echo objWshShell.ExpandEnvironmentStrings("%UserProfile%")

' 2.
Dim objShell

Set objShell = WScript.CreateObject("Shell.Application")
WScript.Echo objShell.NameSpace("shell:Profile").self.Path

WScript.Quit 0
Это сообщение посчитали полезным следующие участники:

Отправлено: 15:10, 30-05-2013 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Новый участник


Сообщения: 19
Благодарности: 0

Профиль | Отправить PM | Цитировать

Спасибо, помогло.

Отправлено: 16:36, 30-05-2013 | #3



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » VBS/WSH/JS - [решено] Переменные в fso.GetSpecialFolder

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Прочее - Переменные RasKolbas Общий по Linux 8 23-07-2010 18:12
Разное - [PHP] Переменные CXREF Программирование и базы данных 2 16-06-2009 08:15
VBS/WSH/JS - WSH + FSO - поиск объектов по каталогам dsa Программирование и базы данных 4 25-08-2008 20:18
$OEM$ Переменные Iliander Автоматическая установка Windows 2000/XP/2003 1 08-03-2007 04:53
Переменные окружения Guest Microsoft Windows 95/98/Me (архив) 2 25-03-2003 12:00


« Предыдущая тема | Следующая тема »


 
Переход