ERLEDIGT
NEIN
NEIN
ANTWORTEN
4
4
ZUGRIFFE
404
404
EMPFEHLEN
-
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
-
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)<bug> warum kann ich mich selbst bewerten? </bug>
-
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 sterndiMit Freundlichen Grüßen:
Sterndi
-
strName = left(strName,instrrev(strName,"."))
Wobei das eigentlich dem entspricht, was weiter oben schon steht...
-
11.06.02 13:16 #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





Zitieren
Login





