Автор темы
файл создаётся только на рабочем столе через имя пользователя(Win10),а оно может быть разным.
Можно ли,это как-то обойти,например создавать файл в той же директории(это само-распаковывающийся),или брать имя учётки?
Можно ли,это как-то обойти,например создавать файл в той же директории(это само-распаковывающийся),или брать имя учётки?
Код:
Set objShell = CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("путь к файлу", True)
Dim fso
dim password
dim password1
password=InputBox("Please Enter Password:","3 - Tries Left")
if password = ("1") then
dim correct
correct =MsgBox("Correct Password!",64,"correct")
dim tf
tf.Write ("Пример 1")
end if
if password = ("2") then
correct =MsgBox("Correct Password!",64,"correct")
tf.Write ("Пример 2")
tf.Close
end if
Последнее редактирование модератором:
