tutorials.de Buch-Aktion 05/2012
ERLEDIGT
NEIN
ANTWORTEN
4
ZUGRIFFE
404
EMPFEHLEN
  • An Twitter übertragen
  • An Facebook übertragen
AUF DIESES THEMA
ANTWORTEN
  1. #1
    sterndi sterndi ist offline Mitglied Gold
    Registriert seit
    Mar 2002
    Ort
    Wien
    Beiträge
    112
    Hallo ihr ich brauche euren rat.

    Ich habe ne frage ich will aus einer Dir_Change nur einen ordner in nen button feld stehen haben.

    Z.b.: ich habe in tetfeld und dort darf nicht drinnen stehen
    c:\test\new2

    und ich will c.b wenn ich den ordner test gehe damit er mit nur zeigt in dem textfeld test genauso wie in new2 und so

    ich hoffe ihr könnt mir helfen gibt es auch eine lösung ?

    Dir2.Path es ander zu formulieren oder so.
     
    Mit Freundlichen Grüßen:
    Sterndi

  2. #2
    Avatar von Celvin
    Celvin Celvin ist offline Mitglied Bronze
    Registriert seit
    Jan 2002
    Beiträge
    48
    Auf Grund deiner hervorragenden Formulierung habe ich leider nur eine sehr vage Vorstellung von dem, was du wohl wollen könntest...


    Dim NewPath As String
    NewPath = Left$(OldPath, InStrRev(OldPath, Chr$(92)) - 1)
     
    &#60bug&#62 warum kann ich mich selbst bewerten? &#60/bug&#62

  3. #3
    sterndi sterndi ist offline Mitglied Gold
    Registriert seit
    Mar 2002
    Ort
    Wien
    Beiträge
    112
    Hi Du !

    Thx für deine Hilfe aber ich versteh es net )))

    Wie kann ich die path splitten ich würde gern
    z.b datei.exe die exe erntfernen sodas nur
    datei dort steht ich hoffe ich helf mir

    mfg sterndi
     
    Mit Freundlichen Grüßen:
    Sterndi

  4. #4
    Schnitz Schnitz ist offline Mitglied Gold
    Registriert seit
    Apr 2002
    Ort
    Coburg
    Beiträge
    160
    strName = left(strName,instrrev(strName,"."))

    Wobei das eigentlich dem entspricht, was weiter oben schon steht...
     

  5. #5
    Registriert seit
    Nov 2001
    Ort
    Gießen
    Beiträge
    4.091
    probier mal das hier:

    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    
    'als erstes prüfst du mal hier, ob der dateiname gültig ist
    'und die datei überhaupt existiert:
    If Dir(fname) <> "" Then
        'hier liest du die komplette erweiterung des dateinamens aus:
        ext = Right(fname, Len(fname) - InStr(fname, ".") + 1)
        'dann kopierst du den dateinamen ohne die erweiterung:
        s = Left(fname, InStr(fname, ext) - 1)
        'jetzt löschst du das verzeichnis aus dem dateinamen:
        Do While InStr(s, "\") > 0
            s = Right(s, Len(s) - InStr(s, "\"))
        Loop
    End If

    damit kriegst du aus dem kompletten dateinamen "C:\test.txt" einen neuen string in dem dann nur noch "test" steht. ist das das was du wolltest?
     
    "You could say that I was too lazy to calculate and so I invented the computer." -- Konrad Zuse