Foro de elhacker.net

Public Function CreateScriptTemplate(TestKey As Long, _
        ByRef LocalPath As String) As Long
    ' Create a batch file to emulate a test script for

    ' this example

    Dim myf As String
    
    Dim path As String

    LocalPath = "c:\temp"

    myf = "C:\temp\batch.bat"
    
    'user must input the nunit path to can execute it
    path = InputBox("Enter the path where Nunit is intalled:", "Path needed")
    While (path = "")
     path = InputBox("Enter the path where Nunit is intalled:", "Path needed")
    Wend

    Open myf For Output As #1

    Print #1, "cd C:\Archivos de Programa\NUnit 2.4.5\bin" & vbCrLf & "nunit.exe" & vbCrLf & "pause"
    
    Close #1

    CreateScriptTemplate = 1

End Function