vbs'крипт - проблема с переменными

[mditry]

прошу помощи у уважаемых форумчан!

вот суть: скрипт при запуске проверяет наличие файла Z.txt в директории papkaX, если такой имеется то просто запускается программа... если же файла Z.txt в директории papkaX нет, то происходит следующее: создание директории papkaX копирование файла Z.txt из директории proga в директорию papkaXи запуск программы.

'обьявление переменных
Dim FSO,F,WshShell

'создание объекта FileSystemObject
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")

if  FSO.FileExists("APPDATA" + "papkaX\Z.txt")  Then
	'проверка на существование файла Z.txt в C:\Documents and Settings\userprofile\Application Data\papkaX\Z.txt если такое есть то запуск программы
	Set WshShell = WScript.CreateObject("WScript.Shell")
	Set WChat = WshShell.Exec("C:\proga\proga.exe")
else
	'если файла нет, то создается директории papkaX в C:\Documents and Settings\userprofile\Application Data\
	Set F = FSO.CreateFolder("APPDATA" + "papkaX\")

	'после создания papkaX копирование файла Z.txt из C:\proga\
	Set F = FSO.GetFile("C:\proga\Z.txt")
	
	'место назначения копирования C:\Documents and Settings\userprofile\Application Data\papkaX\
	F.Copy("APPDATA" + "papkaX\")
	
	'запуск программы
	Set WshShell = WScript.CreateObject("WScript.Shell")
	Set WChat = WshShell.Exec("C:\proga\proga.exe")
	
end if

если используем пути: C:\Documents and Settings\userprofile\Application Data\... то все работает, но при использование %appdata% ни работает словом ни чего... а так как скрипт будет использоваться под несколькими пользователями то прописать для конкретного пользователя C:\Documents and Settings\vasy(fedy,misha)\Applicati on Data\... нельзя, надо использовать переменные... помоги пожалуйста, что делаю не так?

[eoln]

Set F = FSO.CreateFolder("APPDATA" + "papkaX\")

-->

	Set WshShell = WScript.CreateObject("WScript.Shell")
	Set F = FSO.CreateFolder(WshShell.ExpandEnvironmentStrings("%APPDATA%") + "\papkaX\")

[mditry]

to eoln спасибо! с создание и копированием вроде как дело пошло, а вот с проверкой... чет как-то не але совсем:

if  FSO.FileExists("APPDATA" + "papkaX\Z.txt")  Then

подскажите пожалуйста еще в этом моменте как испрвить?

[eoln]

Я же привёл пример что надо писать вместо APPDATA. Здесь точно также и в других местах где есть APPDATA...

Set WshShell = WScript.CreateObject("WScript.Shell")
if  FSO.FileExists(WshShell.ExpandEnvironmentStrings("%APPDATA%") + "\papkaX\Z.txt")  Then

Чтоб не мучаться каждый раз, можно заиметь отдельную переменную в начале, а потом подставлять в нужное место скрипта

[mditry]

ОГРОМНОЕ СПАСИБО! сразу не втыкнул! теперь все получилось