Private Sub Command3_Click()

    Dim src As String
    Dim des As String
    Dim count As Integer
    Dim resDes As String
    Dim Result As String
    Dim i As Integer
    Dim runExe As Double
    Dim finPath As String


    src = seiengFile
    des = SDRSFile

    'NM: finding the folder that contains the sdrs files. The path is parced to locate
    'the last back slash. The location is used as a second argument for Left function to get to the folder.

    For i = 0 To Len(des)
        resDes = Mid(des, Len(des) - i, 1)
        If (resDes = "\") Then
            count = Len(des) - i
            Exit For
        End If
    Next i

    Result = Left(des, count)

    finPath = Result & "SEIENG.exe"

    FileCopy src, finPath


    Dim objFileSystem As Object
    Dim FileToCheck As String
    Dim ct As Integer

    Set objFileSystem = CreateObject("Scripting.FileSystemObject")


    FileToCheck = finPath
    Do Until objFileSystem.FileExists(FileToCheck)

        For ct = 1 To 2000
        Next ct
    Loop

    Set objFileSystem = Nothing


    Debug.Print "finPath = " & finPath
    Debug.Print "Result + executable = " & Result & "SEIENG.exe"
    runExe = Shell(finPath, vbMaximizedFocus)

    frmSeieng.Hide

End Sub

runExe = Shell("C:\Documents and Settings\hianxm\Desktop\QCM - testing\SEIENG.exe", vbMaximizedFocus)