GetShortPathName und trotzdem Lang

11/12/2008 - 20:35 von Oliver Erdelt | Report spam
Hi,

Beispiel...

sPfad = "D:\MyDatabase\TestDatabase.mdb"
Dim nReturn As Long
Dim sShortName As String
sShortName = Space$(256)
nReturn = GetShortPathName(sPfad , sShortName, Len(sShortName))
sShortName = Left(sShortName , nReturn )

Ergebnis ist "E:\MYDATA~1\TESTDA~1.MDB" soweit sogut...
Und nun RefreshLink...

Dim I As Integer
Dim db As DAO.Database
Set db = CurrentDb
For I = 0 To db.TableDefs.count - 1
If db.TableDefs(I).Connect <> "" Then
If sDBPWD <> "" Then
db.TableDefs(I).Connect = ";PWD=" & sDBPWD & ";DATABASE=" &
sShortName
Else
db.TableDefs(I).Connect = ";DATABASE=" & sShortName
End If
db.TableDefs(I).RefreshLink
ConnectDB = True
End If
Next I

Eigendlich alles Prima, aber warum steht dann in der MySysObjects
"E:\MYDATA~1\TESTDATABASE.MDB" statt
"E:\MYDATA~1\TESTDA~1.MDB"

Tut RefreshLink etwa den Dateinamen grundsàtzlich wieder auf Lang
umwandeln?

MfG
Olli
 

Lesen sie die antworten

#1 Stefan Hoffmann
12/12/2008 - 13:22 | Warnen spam
hallo Oliver,

Oliver Erdelt schrieb:
Eigendlich alles Prima, aber warum steht dann in der MySysObjects
"E:\MYDATA~1\TESTDATABASE.MDB" statt
"E:\MYDATA~1\TESTDA~1.MDB"

Tut RefreshLink etwa den Dateinamen grundsàtzlich wieder auf Lang
umwandeln?


Scheint so. Warum arbeitest du mit Short Names?


mfG

Access-FAQ http://www.donkarl.com/
KnowHow.mdb http://www.freeaccess.de
Newbie-Info http://www.doerbandt.de/Access/Newbie.htm

Ähnliche fragen