Foro de elhacker.net

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...

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 ......"
 

Primer resultado de Google:

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/ (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 (https://www.google.com/search?q=vbs+get+current+script+path)

Rapido y eficaz, muchísimas Gracias