Hallo,
wie kann man in VB6 am einfachsten den zu einer Datei gehörigen Ordnernamen ermitteln?
Ich meine jedoch nicht den kompletten Pfad, sondern nur den aktuellen Ordername.
Danke.
Gruß
Gunter
wie kann man in VB6 am einfachsten den zu einer Datei
gehörigen Ordnernamen ermitteln?
Ich meine jedoch nicht den kompletten Pfad, sondern nur den
aktuellen Ordername.
Hi Gunter,
vielleicht so:
Sub tt()
Dim Dateiname, Von, Bis
Dateiname = "c:\test\test2\test3\test.xls"
Bis = InStrRev(Dateiname, "\")
Von = InStrRev(Dateiname, "\", Bis - 1) + 1
MsgBox Mid(Dateiname, Von, Bis - Von)
End Sub
Gruß
Reinhard
Hallo Reinhard,
klappt, vielen Dank.
Gruß
Gunter
Sub tt()
Dim Dateiname, Von, Bis
Dateiname = „c:\test\test2\test3\test.xls“
Bis = InStrRev(Dateiname, „“)
Von = InStrRev(Dateiname, „“, Bis - 1) + 1
MsgBox Mid(Dateiname, Von, Bis - Von)
End SubGruß
Reinhard
klappt, vielen Dank.
Danke für die Rückmeldung und den Dank.
In VB5 wird das nicht klappen, da VB5 kein Instrrev kennt.
Gruß
Reinhard, der zum 6.12 wieder seine 46er Stiefel rausstellt, da ist reichlich Platz für die Sicherungskopie einer VB6 CD *smile*
Hallo
In VB5 wird das nicht klappen, da VB5 kein Instrrev kennt.
mittels FAQ:2906 schon 
MfG Alex
Gruß
Reinhard, der zum 6.12 wieder seine 46er Stiefel rausstellt,
da ist reichlich Platz für die Sicherungskopie einer VB6 CD
*smile*
In VB5 wird das nicht klappen, da VB5 kein Instrrev kennt.
mittels FAQ:2906 schon
Hallo Alex,
jepp
zu /t/denksportaufgabe-per-vb-vba-loesen/4894617
fällt dir nix ein?
Irgendwas schnelles was aus 210 möglichen Spielpaarungen die 14 Spielaustragungen auswählt wo Regel 2 erfüllt ist?
Das Schlimme ist, so wie ich das da lese, kam da einer auf die Lösung ohne mit VB(a) alles auszutesten.
Sondern nur so im Kopf, vielleicht Papier und Kuli, mehr nicht.
Ich habe Vba und VB5, und krieg keine Lösung hin *schäm*
Gruß
Reinhard