/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
VB i Access - finde DB-pathname
Fra : Mads Uggerby


Dato : 15-04-03 14:04

Hejsa
Kan nogen fortælle mig hvordan jeg får stien, hvor min access-database er
placeret, over i en string-variabel ?

Mvh. Mads.



 
 
Dennis Bay (15-04-2003)
Kommentar
Fra : Dennis Bay


Dato : 15-04-03 15:14

Måske kan dette hjælpe dig på vej.

Sub MyAppName()
Debug.Print Application.CurrentProject.FullName
Debug.Print Application.CurrentProject.Name
End Sub

--
Med venlig hilsen
Dennis Bay

Mail: Dennis.Bay@Stofanet.dk

"Mads Uggerby" <madsuggerby@hotmail.com> skrev i en meddelelse
news:b7h00o$8u9$1@sunsite.dk...
> Hejsa
> Kan nogen fortælle mig hvordan jeg får stien, hvor min access-database er
> placeret, over i en string-variabel ?
>
> Mvh. Mads.
>
>



Mads Uggerby (15-04-2003)
Kommentar
Fra : Mads Uggerby


Dato : 15-04-03 15:20

Tak for svar, men jeg får filnavnet med og jeg skal KUN bruge stinavnet !
Nogle forslag ??

Mads.

"Dennis Bay" <Dbay@markediaarhus.dk> skrev i en meddelelse
news:3e9c1344$0$4364$ba624c82@nntp03.dk.telia.net...
> Måske kan dette hjælpe dig på vej.
>
> Sub MyAppName()
> Debug.Print Application.CurrentProject.FullName
> Debug.Print Application.CurrentProject.Name
> End Sub
>
> --
> Med venlig hilsen
> Dennis Bay
>
> Mail: Dennis.Bay@Stofanet.dk
>
> "Mads Uggerby" <madsuggerby@hotmail.com> skrev i en meddelelse
> news:b7h00o$8u9$1@sunsite.dk...
> > Hejsa
> > Kan nogen fortælle mig hvordan jeg får stien, hvor min access-database
er
> > placeret, over i en string-variabel ?
> >
> > Mvh. Mads.
> >
> >
>
>



Carsten Pedersen (16-04-2003)
Kommentar
Fra : Carsten Pedersen


Dato : 16-04-03 07:17

Hej, Mads!

Du kan si filnavnet fra ved at finde placeringen af det sidste backslash (\)
i strengen med InStrRev-funktionen:

BSPosition = InStrRev(FuldtStinavn, "\")

Alt foran og evt. inkl. denne posistion er stinavnet afhængigt af, hvor
meget du ønsker med. Det trækker du ud med:

StiNavn = Left(FuldtStiNavn, BSPosition)

C@rsten

"Mads Uggerby" <madsuggerby@hotmail.com> skrev i en meddelelse
news:b7h4g3$c5j$1@sunsite.dk...
> Tak for svar, men jeg får filnavnet med og jeg skal KUN bruge stinavnet !
> Nogle forslag ??
>
> Mads.
>
> "Dennis Bay" <Dbay@markediaarhus.dk> skrev i en meddelelse
> news:3e9c1344$0$4364$ba624c82@nntp03.dk.telia.net...
> > Måske kan dette hjælpe dig på vej.
> >
> > Sub MyAppName()
> > Debug.Print Application.CurrentProject.FullName
> > Debug.Print Application.CurrentProject.Name
> > End Sub
> >
> > --
> > Med venlig hilsen
> > Dennis Bay
> >
> > Mail: Dennis.Bay@Stofanet.dk
> >
> > "Mads Uggerby" <madsuggerby@hotmail.com> skrev i en meddelelse
> > news:b7h00o$8u9$1@sunsite.dk...
> > > Hejsa
> > > Kan nogen fortælle mig hvordan jeg får stien, hvor min access-database
> er
> > > placeret, over i en string-variabel ?
> > >
> > > Mvh. Mads.
> > >
> > >
> >
> >
>
>



Mads Uggerby (16-04-2003)
Kommentar
Fra : Mads Uggerby


Dato : 16-04-03 11:19

InStrRev er ikke tilgængelig i VBA .. kun InStr, og det hjælper jo ikke
rigtigt !! Har nogen en løsning ?

Mvh. Mads.

"Carsten Pedersen" <c.pedersen@dgm-sdg.com> skrev i en meddelelse
news:3e9cf543$0$52107$edfadb0f@dread16.news.tele.dk...
> Hej, Mads!
>
> Du kan si filnavnet fra ved at finde placeringen af det sidste backslash
(\)
> i strengen med InStrRev-funktionen:
>
> BSPosition = InStrRev(FuldtStinavn, "\")
>
> Alt foran og evt. inkl. denne posistion er stinavnet afhængigt af, hvor
> meget du ønsker med. Det trækker du ud med:
>
> StiNavn = Left(FuldtStiNavn, BSPosition)
>
> C@rsten
>
> "Mads Uggerby" <madsuggerby@hotmail.com> skrev i en meddelelse
> news:b7h4g3$c5j$1@sunsite.dk...
> > Tak for svar, men jeg får filnavnet med og jeg skal KUN bruge stinavnet
!
> > Nogle forslag ??
> >
> > Mads.
> >
> > "Dennis Bay" <Dbay@markediaarhus.dk> skrev i en meddelelse
> > news:3e9c1344$0$4364$ba624c82@nntp03.dk.telia.net...
> > > Måske kan dette hjælpe dig på vej.
> > >
> > > Sub MyAppName()
> > > Debug.Print Application.CurrentProject.FullName
> > > Debug.Print Application.CurrentProject.Name
> > > End Sub
> > >
> > > --
> > > Med venlig hilsen
> > > Dennis Bay
> > >
> > > Mail: Dennis.Bay@Stofanet.dk
> > >
> > > "Mads Uggerby" <madsuggerby@hotmail.com> skrev i en meddelelse
> > > news:b7h00o$8u9$1@sunsite.dk...
> > > > Hejsa
> > > > Kan nogen fortælle mig hvordan jeg får stien, hvor min
access-database
> > er
> > > > placeret, over i en string-variabel ?
> > > >
> > > > Mvh. Mads.
> > > >
> > > >
> > >
> > >
> >
> >
>
>



preben nielsen (16-04-2003)
Kommentar
Fra : preben nielsen


Dato : 16-04-03 15:41


"Mads Uggerby" <madsuggerby@hotmail.com> skrev i en meddelelse
news:b7jan6$g15$1@sunsite.dk...
> InStrRev er ikke tilgængelig i VBA ..

Jo den er, men hvis du ikke har den så er det fordi du bruger en
"gammel" udgave af Office-pakken

> kun InStr, og det hjælper jo ikke rigtigt !! Har nogen en
løsning ?

Så bruger du da bare InStr() og holder selv øje med hvornår du har
fundet sidste '\'. Det er ikke svært ?

Her får du lige en samling funktioner - det er strPathNamePart()
du skal bruge Og ja, de er lavet til VBA (Excel). Det kan være
du skal erstatte 'Application.PathSeparator' med '\'...

--
/\ preben nielsen
\/\ prel@post.tele.dk

''
'' Returner filnavn delen fra en path\filnavn
''
Function strFileNamePart(strPathname As String) As String
' Returns the filename from a path/filename string
Dim lngIdx As Long
Dim lnglength As Long
lnglength = Len(strPathname)
For lngIdx = lnglength To 1 Step -1
If Mid$(strPathname, lngIdx, 1) =
Application.PathSeparator Then
strFileNamePart = Mid$(strPathname, lngIdx + 1)
Exit Function
End If
Next
strFileNamePart = strPathname
End Function

''
'' Returner path delen fra en path\filnavn
''
Function strPathNamePart(strPathname As String) As String
' Returns the path from a path/filename string
Dim lngIdx As Long
Dim lnglength As Long
lnglength = Len(strPathname)
For lngIdx = lnglength To 1 Step -1
If Mid$(strPathname, lngIdx, 1) =
Application.PathSeparator Then
strPathNamePart = Mid$(strPathname, 1, lngIdx)
Exit Function
End If
Next
' Ingen "/" ! Det må være et rent filnavn uden sti.
strPathNamePart = ""
End Function

''
'' Returner yyy af et filnavn xxxx.yyy
''
Function strNameExtPart(strFileName) As String
' Returns the filename from a path/filename string
Dim lnglength As Long
strNameExtPart = ""
lnglength = Len(strFileName)
If lnglength > 4 Then
If Mid$(strFileName, lnglength - 3, 1) = "." Then
strNameExtPart = Right$(strFileName, 3)
End If
End If
End Function

''
'' Returner xxxx af et filnavn xxxx.yyy
''
Function strNameNamePart(strFileName As String) As String
' Returns the filename from a path/filename string
Dim lnglength As Long
strNameNamePart = strFileName
lnglength = Len(strFileName)
If lnglength > 4 Then
If Mid$(strFileName, lnglength - 3, 1) = "." Then
strNameNamePart = Left$(strFileName, lnglength - 4)
End If
End If
End Function




>
> Mvh. Mads.
>
> "Carsten Pedersen" <c.pedersen@dgm-sdg.com> skrev i en
meddelelse
> news:3e9cf543$0$52107$edfadb0f@dread16.news.tele.dk...
> > Hej, Mads!
> >
> > Du kan si filnavnet fra ved at finde placeringen af det sidste
backslash
> (\)
> > i strengen med InStrRev-funktionen:
> >
> > BSPosition = InStrRev(FuldtStinavn, "\")
> >
> > Alt foran og evt. inkl. denne posistion er stinavnet afhængigt
af, hvor
> > meget du ønsker med. Det trækker du ud med:
> >
> > StiNavn = Left(FuldtStiNavn, BSPosition)
> >
> > C@rsten
> >
> > "Mads Uggerby" <madsuggerby@hotmail.com> skrev i en meddelelse
> > news:b7h4g3$c5j$1@sunsite.dk...
> > > Tak for svar, men jeg får filnavnet med og jeg skal KUN
bruge stinavnet
> !
> > > Nogle forslag ??
> > >
> > > Mads.
> > >
> > > "Dennis Bay" <Dbay@markediaarhus.dk> skrev i en meddelelse
> > > news:3e9c1344$0$4364$ba624c82@nntp03.dk.telia.net...
> > > > Måske kan dette hjælpe dig på vej.
> > > >
> > > > Sub MyAppName()
> > > > Debug.Print Application.CurrentProject.FullName
> > > > Debug.Print Application.CurrentProject.Name
> > > > End Sub
> > > >
> > > > --
> > > > Med venlig hilsen
> > > > Dennis Bay
> > > >
> > > > Mail: Dennis.Bay@Stofanet.dk
> > > >
> > > > "Mads Uggerby" <madsuggerby@hotmail.com> skrev i en
meddelelse
> > > > news:b7h00o$8u9$1@sunsite.dk...
> > > > > Hejsa
> > > > > Kan nogen fortælle mig hvordan jeg får stien, hvor min
> access-database
> > > er
> > > > > placeret, over i en string-variabel ?
> > > > >
> > > > > Mvh. Mads.
> > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> >
> >
>
>



Søg
Reklame
Statistik
Spørgsmål : 177557
Tips : 31968
Nyheder : 719565
Indlæg : 6408879
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste