Speicherordner im Netzwerk finden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Lenni,
ich gehe mal davon aus, dass die Dateien nicht tatsächlich verschoben werden, sondenr dass sich lediglich das Laufwerksmapping ändert !?!
D.h. : An einem Tag ist das Laufwerk U: z.B. auf den UNC-Namen \\Server\Ordner gemappt, so dass der Speicherpfad U:\GruppeB\GruppeB\Planungen\Plaene heisst, am andern Tag (oder anderen PC ?) ist Laufwerk U: bereits als \\Server\Ordner\GruppeB\GruppeB gemappt, so dass der Speicherpfad nur noch U:\Planungen\Plaene heisst, oder ?
In beiden Fällen ist der tatsächliche Speicherpfad das Verzeichnis \\Server\Ordner\GruppeB\GruppeB\Planungen\Plaene
Genau diesen UNC-Namen könntest Du per VBA ermitteln und die Datei dann darin speichern.
Hier ein Codebeispiel zum Ermitteln des UNC-Namens des Laufwerks U:
https://www.herber.de/forum/archiv/752to756/t754940.htm#754956
Mit diesem Code kannst Du ermitteln, wie das aktuelle Mapping für ein bestimmtes Laufwerk heisst.
MsgBox GetUNCPath("U:")
Führe den Code einmalig aus und speichere dann nicht auf U:\... sondern direkt auf dem UNC-Pfad :
.Export Filename:= "\\SERVER\ORDNER\GRUPPEB\GRUPPEB\Planungen\Plaene\" & "Plan" & Range("A1") & Range("A2") & ".xls"
Gruß, NoNet

Exceltreffen 28.-30.10.2011 in Chemnitz
Ein Treffen für alle Excel-Freunde und Besucher deutschsprachiger Excel-Foren.
Alle Infos - Programm - Anmeldung - Teilnehmerliste etc. gibt es auf
http://www.exceltreffen.de/index.php?page=211
Wir freuen uns auf euch...

Mit ein wenig nachdenken und einigen anderen Hinweisen (Freund Googel) bin ich weiter gekommen. Ich kann aber nicht mehr Quelle nachvollziehen, da ich da so einiges ausprobiert habe. Mit folgendem Code konnte ich den Server-Namen auslesen:

Option Explicit
Private Declare Function WNetGetConnection _
Lib "mpr.dll" Alias "WNetGetConnectionA" ( _
ByVal lpszLocalName As String, _
ByVal lpszRemoteName As String, _
cbRemoteName As Long _
) As Long
Private Declare Function GetDriveType _
Lib "kernel32" Alias "GetDriveTypeA" ( _
ByVal nDrive As String _
) As Long
Private Declare Function GetLogicalDrives _
Lib "kernel32" () As Long
Private Const DRIVE_REMOTE = 4
Private Sub test()
MsgBox GetDriveFromUNC("U:\")  'Hier anpassen. Bei mir war es "U:\"
End Sub
Private Function GetDriveFromUNC(strUNCDrive As String)
Dim i As Long
Dim lngLW As Long
Dim strUNC As String
Dim strLW As String
Dim dummy As Long
lngLW = GetLogicalDrives()
For i = 97 To 123
If lngLW And 2 ^ (i - 97) Then
strLW = Chr(i) & ":"
If GetDriveType(strLW) = DRIVE_REMOTE Then
strUNC = String(1001, 0)
WNetGetConnection strLW, strUNC, 1000
strUNC = Left(strUNC, InStr(1, strUNC, Chr(0)) - 1)
If InStr(LCase(strUNC), LCase(strUNCDrive)) = 1 Then
GetDriveFromUNC = Chr(i)
Exit Function
End If
End If
End If
Next
End Function

Es popte eine Excel-MsgBox auf und da stand der Name!
...nun habe ich den Server-Namen und meinen Speicherpfad angepaßt. ABER: Mal klappt das speichern, mal klappt es nicht (mit Fehlermeldungen). Da gibt es evtl. ein Zeit-Problem...
Ich schau mal weiter. Ich wollte Euch nur diese Lösung vorstellen und wenn jemand vor einem ähnlichen Problem steht, hoffe ich ein wenig geholfen zu haben. Aber die Initial-Hilfe kommt von NoNet!!! Dank Dir nochmals!
Gruß
Lenni

Beliebteste Forumthreads (12 Monate)

Speicherordner im Netzwerk finden

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread