Help Me Please

[sterndi]

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.

 

[Celvin]

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)

 

[sterndi]

hmmm versteh i net

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

 

[Schnitz]

strName = left(strName,instrrev(strName,"."))

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

 

[Dario Linsky]

probier mal das hier:

'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?