VBS: Copiar archivo al directorio donde es ejecutado el script.

[rhp07]

Bueno mirad este script:
----------------------------------------------------------------------------------------------------------------------------
HTTPDownload "http://servidor.es/archivo.txt", "C:/"

Sub HTTPDownload( myURL, myPath )
' This Sub downloads the FILE specified in myURL to the path specified in myPath.
'
' myURL must always end with a file name
' myPath may be a directory or a file name; in either case the directory must exist
'
' Written by Rob van der Woude
' http://www.robvanderwoude.com
'
' Based on a script found on the Thai Visa forum
' http://www.thaivisa.com/forum/index.php?showtopic=21832

    ' Standard housekeeping
    Dim i, objFile, objFSO, objHTTP, strFile, strMsg
    Const ForReading = 1, ForWriting = 2, ForAppending = 8

    ' Create a File System Object
    Set objFSO = CreateObject( "Scripting.File SystemObject" )

    ' Check if the specified target file or folder exists,
    ' and build the fully qualified path of the target file
    If objFSO.FolderE xists( myPath ) Then
        strFile = objFSO.BuildPa th( myPath, Mid( myURL, InStrRev( myURL, "/" ) + 1 ) )
    ElseIf objFSO.FolderE xists( Left( myPath, InStrRev( myPath, "\" ) - 1 ) ) Then
        strFile = myPath
    Else
        WScript.Echo "ERROR: Target folder not found."
        Exit Sub
    End If

    ' Create or open the target file
    Set objFile = objFSO.OpenTex tFile( strFile, ForWriting, True )

    ' Create an HTTP object
    Set objHTTP = CreateObject( "WinHttp.WinHtt pRequest.5.1" )

    ' Download the specified URL
    objHTTP.Open "GET", myURL, False
    objHTTP.Send

    ' Write the downloaded byte stream to the target file
    For i = 1 To LenB( objHTTP.Respon seBody )
        objFile.Write Chr( AscB( MidB( objHTTP.Respon seBody, i, 1 ) ) )
    Next

    ' Close the target file
    objFile.Close( )
End Sub
-----------------------------------------------------------------------------------------------------------
Lo que está en rojo lo quiero cambiar por el directorio desde el que se está ejecutando el archivo ".vbs". Lo escribiría manualmente, pero ahi va el problema, es para una aplicación portable! Como cambiar esto para que lo copie al directorio de ejecución?