[VBS] Necesito de su ayuda. Plasmar ruta en .txt

[.:Xx4NG3LxX:.]

Hola amigos. Quisiera poder resolver este problema duda con respecto a VBS.

  Lo que quiero hacer exactamente es lo siguiente...

1.- Crear una carpeta (a la cual el usuario le dará el nombre, a través de un InputBox). => Listo

2.- Crear un archivo de texto con el nombre de la carpeta. => Listo

3.- Mover dicho archivo a la carpeta. => Listo

3.- Dentro del archivo de texto, quiero que escriba la ruta completa del VBS. => No sé

  Muy bien, como ven, sólo tengo una única duda... Como escribir la ruta del VBS en el .txt

El código que llevo es el siguiente...

Código (dos) [Seleccionar] Expandir


Set objfso=CreateObject("Scripting.FileSystemObject")

Do
FileName=InputBox("Type the folder name...","...... Folder creator ......")

If FileName <> "" Then
    Exit Do
Else
    MsgBox "Please, type the folder name...",vbExclamation,"...... Error ......"
End If
Loop

Set folder=objfso.CreateFolder(FileName)

MsgBox "Folder created successfully!" & vbCrlf & vbCrlf & "Name: " & FileName & vbCrlf & "Path: The same .vbs file",vbInformation,"...... Folder creator ......"


[MCKSys Argentina]

3.- Dentro del archivo de texto, quiero que escriba la ruta completa del VBS. => No sé

 Muy bien, como ven, sólo tengo una única duda... Como escribir la ruta del VBS en el .txt

Primer resultado de Google:

Código (vb) [Seleccionar] Expandir


strPath = Wscript.ScriptFullName


Saludos!

PD:
Fuente: https://devblogs.microsoft.com/scripting/how-can-i-determine-the-path-to-the-folder-where-a-script-is-running/
Busqueda: https://www.google.com/search?q=vbs+get+current+script+path

[.:Xx4NG3LxX:.]

Primer resultado de Google:

Código (vb) [Seleccionar] Expandir


strPath = Wscript.ScriptFullName


Rapido y eficaz, muchísimas Gracias