38335
Nov 14, 2006, updated at Nov 15, 2006 (UTC)
10976
7
0
Laufwerksname statt Laufwerksbuchstabe?
Kann mir jemand helfen, wie ich bei der Angabe des Pfades beim Zugriff auf eine Datenbank den Laufwerksnamen statt den Laufwerksbuchstaben angeben kann?
Auszug aus meinem Quellcode:
Set con = New Connection
con.CursorLocation = adUseClient
con.Provider = "Microsoft Jet 4.0 OLE DB Provider"
con.ConnectionString = "Data Source=" & "D:\Temp"
Wenn ich nun im Pfad statt dem Laufwerksbuchstaben "D:" die Laufwerksbezeichnung ("NET1\Temp" schreiben möchte (der Buchstabe variiert auf anderen Rechnern, auf denen das Programm laufen soll) bringt mir der Debugger einen Fehler (ungültiger Pfadname).
Bin dankbar über jede Hilfe!
Set con = New Connection
con.CursorLocation = adUseClient
con.Provider = "Microsoft Jet 4.0 OLE DB Provider"
con.ConnectionString = "Data Source=" & "D:\Temp"
Wenn ich nun im Pfad statt dem Laufwerksbuchstaben "D:" die Laufwerksbezeichnung ("NET1\Temp" schreiben möchte (der Buchstabe variiert auf anderen Rechnern, auf denen das Programm laufen soll) bringt mir der Debugger einen Fehler (ungültiger Pfadname).
Bin dankbar über jede Hilfe!
Please also mark the comments that contributed to the solution of the article
Content-Key: 44386
Url: https://administrator.de/contentid/44386
Printed on: April 20, 2024 at 04:04 o'clock
7 Comments
Latest comment
Trage doch einfach in die Anmelde Scripte der User einen Laufwerksmapping eintrag hinzu.
Da dann jeder Userdann den gleichen Buchstaben haben Sollte dich das nicht mehr stören.
Du mußt dann nur den richtigen ord Finden und gut ist. Notfalls geht auch B: der sollte
in der heutigen Zeit ja nicht belegt sein ...
MFg Metzger
Da dann jeder Userdann den gleichen Buchstaben haben Sollte dich das nicht mehr stören.
Du mußt dann nur den richtigen ord Finden und gut ist. Notfalls geht auch B: der sollte
in der heutigen Zeit ja nicht belegt sein ...
MFg Metzger
Hallo,
eine Möglichkeit wäre folgendes VBScript vorher laufen zu lassen bevor dein Code beginnt:
Set fso = CreateObject ("Scripting.FileSystemObject")
Set AlleLaufwerke = fso.Drives
Laufwerksbezeichnung = "Deine Laufwerksbezeichnung"
For Each Laufw In AlleLaufwerke
If Laufw.IsReady Then
If Laufw.VolumeName = Laufwerksbezeichnung Then
Laufwerksbuchstabe = Laufw.DriveLetter
Else
End If
Else
End If
Next
MsgBox Laufwerksbuchstabe ' Hier steht dann der Laufwerksbuchstabe anhand von der Laufwerksbezichnung drin
Die Backslashes müssen noch entfernt werden.
eine Möglichkeit wäre folgendes VBScript vorher laufen zu lassen bevor dein Code beginnt:
Set fso = CreateObject ("Scripting.FileSystemObject")
Set AlleLaufwerke = fso.Drives
Laufwerksbezeichnung = "Deine Laufwerksbezeichnung"
For Each Laufw In AlleLaufwerke
If Laufw.IsReady Then
If Laufw.VolumeName = Laufwerksbezeichnung Then
Laufwerksbuchstabe = Laufw.DriveLetter
Else
End If
Else
End If
Next
MsgBox Laufwerksbuchstabe ' Hier steht dann der Laufwerksbuchstabe anhand von der Laufwerksbezichnung drin
Die Backslashes müssen noch entfernt werden.
Hallo,
oder Du schreibst
\\server\freigabe\Temp ... usw.
Gruß - Bolle97
oder Du schreibst
\\server\freigabe\Temp ... usw.
Gruß - Bolle97