Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Was haltet ihr hier von?
Autor: Peter
Datum: 12.03.02 11:39
Sub Main() Dim a_strArgs() As String Dim blnDebug As Boolean Dim strFilename As String Dim i As Integer a_strArgs = Split(Command$, " ") For i = LBound(a_strArgs) To UBound(a_strArgs) Select Case LCase(a_strArgs(i)) Case "-d", "/f" 'Debug mode Case "-f", "/f" 'Filename specified If i = UBound(aStrArgs) Then MsgBox "Dateiname nicht festgelegt." Else i = i + 1 End If If Left(a_strArgs(i), 1) = "-" Or Left(a_strArgs(i), 1) = "/" Then MsgBox "Falscher Dateiname." Else strFilename = a_strArgs(i) End If Case Else MsgBox " Falsches Argument: " & a_strArgs(i) End Select Next i MsgBox "Debug Modus: " & blnDebug MsgBox "Filename: " & strFilename End Sub

@all-VB_FREAK	61	Peter	12.03.02 11:18
Was haltet ihr hier von?	53	Peter	12.03.02 11:39

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen