Find filextension

Hej.

Normalt er extension på 3 tegn, men man kan aldrig være sikker.  I så fald kan du blot bruge

extension = right(din_path,3)

Jeg regner med at stien står med backslasc \\ mellem mapperne.

Dim delen, filen as string

  delen = Split(din_path,"\",1)    'sidste post i array'et delen vil indeholde filnavn incl. ekstension.
 
  filen = split(delen(ubound(delen)),".",1)    'ubound(delen) er sidste post
  ekstension = delen (1)

Ikke afprøvet!

t = "c:\rett.txt"
s = Left(t, InStrRev(t, "."))
Debug.Print s

Hej.

Jeg brugte VB5 indtil for 1 måned siden, smart med instr fra bagenden.

Jeg glemte sq da at skrive at koden skal bruges i Access. Jeg ved ikke om det har betydning...beklager.
joern...dit forslag give en fejl "type mismatch" i denne linje:
Filen = Split(Delen(UBound(Delen)), ".", 1)
Jeg får også en fejl hvis jeg beder om "MsgBox Delen"...hvis jeg har sat ' foran den linje der starte med "Filen"

bak...dit forslag kommer med stien frem til punktum. Det kunne så vidt bruges, men da der er mulighed for at en sti vil indeholde flere punktummer skal det helst tages fra slutning af stien og hen til det første punktum. Altså omvendt.

hmm...det ser ud til at dit forslag bak kan bruges...den er jo ligeglad med alle punktummer undtagen det sidste.
Jeg kigger lige på det

bak...det er perfekt. Det blev måske lidt kluntet, men jeg fik famlet mig frem til et yderst brugbart resultat.
Du er velkommen til at smide et svar.

joern...tusind tak for hjælpen, men jeg bliver nød til at give bak alle pointene. Håber det er i orden.

Hej.

Ja, det er en stor mangel ved rigtig mange spørgsmål, at folk tror at VBA er Visual Basic.  Jeg bruger selv ikke Microsofts Office Suite, så jeg ved intet om, hvad der kan gøres med VBA.

Sry...det er min fejl, men jeg mente at denne kategori var den bedste. Beklager hvis jeg har spildt din tid :(

Hej.
Det går nok - ellers havde jeg heller ikke hørt om InStrRev :-)
Point betyder ikke noget, jeg får aldrig brugt dem jeg har.

Men det ER ærgerligt, når spørgere først langt nede i tråden fortæller, at det forresten slet ikke drejer sig om Visual Basic.

Jeg kan forestille mig, at den VBA, der er til Suite 2003, er mere omfattende end den til ´97.  Så version vil også være på sin plads!  Husk det næste gang:  'VBA 2003'

Det skal jeg huske :D

Jeg mener at InstrRev kom med i VB6 og office 2000.
Sjovt nok mener jeg også at kunne huske at Split/Join kom samme tid :-)