variabele datei-pfade

  • VB6

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Pascal.

    meinst du so:

    dim sPfad as string
    sPfad = inputbox("Bitte Pfad eingeben:","Pfad")
    picture1.loadpicture sPfad

    ?

    cya nuss

    //da fällt mir ein, du musst natürlich keine inputbox nehmen:

    dim sPfad as string
    sPfad = text1.text
    picture1.loadpicture sPfad

    der pfad is einfach nur n string, woher du den beziehst, ist egal
    um unnötige runtime-fehler zu vermeiden solltest du aber abfragen, ob die datei existiert, am besten mir dir():

    if dir(sPfad)<>"" then
    picture1.loadpicture sPfad
    else
    msgbox "Datei existiert nicht!"
    end if

    cya nuss

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „nuss“ ()

    axooooo, dann sag das doch ;) :

    <pre><font face="courier new" size="2pt">
    <font color="#000000"></font><font color="#0000AA">Dim</font><font color="#000000"> sPfad </font><font color="#0000AA">As</font><font color="#000000"> </font><font color="#0000AA">String</font><font color="#000000"></font>
    <font color="#000000"></font><font color="#0000AA">Dim</font><font color="#000000"> APPPATH </font><font color="#0000AA">As</font><font color="#000000"> </font><font color="#0000AA">String</font><font color="#000000"></font>
    <font color="#000000"></font>
    <font color="#000000">APPPATH = IIf(Right(App.Path, 1) = "", App.Path, App.Path & "")</font>
    <font color="#000000"></font>
    <font color="#000000">sPfad = InputBox("Bitte Pfad eingeben:", "Pfad")</font>
    <font color="#000000">sPfad = IIf(Mid(sPfad, 2, 1) = ":", sPfad, IIf(Left(sPfad, 1) = "", APPPATH & Right(sPfad, Len(sPfad) - 1), APPPATH & sPfad))</font>
    <font color="#000000"></font>
    <font color="#000000"></font><font color="#0000AA">If</font><font color="#000000"> Dir(sPfad) <> "" </font><font color="#0000AA">Then</font><font color="#000000"></font>
    <font color="#000000">picture1.LoadPicture sPfad</font>
    <font color="#000000"></font><font color="#0000AA">Else</font><font color="#000000"></font>
    <font color="#000000">MsgBox "Datei existiert nicht!"</font>
    <font color="#000000"></font><font color="#0000AA">End</font><font color="#000000"> </font><font color="#0000AA">If</font><font color="#000000"></font>
    </font>
    </pre>

    so sollte es gehen

    cya nuss