Test Foro de elhacker.net SMF 2.1

Programación => Scripting => Mensaje iniciado por: .:Xx4NG3LxX:. en 1 Febrero 2020, 18:07 PM

Título: [VBS] Necesito de su ayuda. Plasmar ruta en .txt
Publicado por: .:Xx4NG3LxX:. en 1 Febrero 2020, 18:07 PM
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]

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 ......"
Título: Re: [VBS] Necesito de su ayuda. Plasmar ruta en .txt
Publicado por: MCKSys Argentina en 1 Febrero 2020, 18:20 PM
Cita de: .:Xx4NG3LxX:. en  1 Febrero 2020, 18:07 PM

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]

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)
Título: Re: [VBS] Necesito de su ayuda. Plasmar ruta en .txt
Publicado por: .:Xx4NG3LxX:. en 1 Febrero 2020, 18:58 PM
Cita de: MCKSys Argentina en  1 Febrero 2020, 18:20 PM
Primer resultado de Google:

Código (vb) [Seleccionar]

strPath = Wscript.ScriptFullName



Rapido y eficaz, muchísimas Gracias