Serveradresse in VBA
14.05.2008 12:32:00
Wilfried
ich habe folgendes Problem:
Aufgrund einer Serverumstellung ändert sich die Verzeichnisstruktur.
Bei der Umstellung möchte ich jetzt alle Laufwerksangaben in den Makros durch die vollständige Serveradresse ersetzen.
Bei folgendem Makro bekomme ich jedoch immer eine Fehlermeldung:
Sub Dateien_Loeschen()
Dim FName As String, FCount As Integer
Dim FileArray()
Dim ProcessCounter As Integer
Dim oName$
'hier Verzeichnis eingeben:
oName = "\\juprds03\KEC_Accounting$\TEST\aufbereitet"
'oName = "R:\TEST\aufbereitet"
ChDrive Left(oName, 1)
ChDir oName
FName = Dir("*.xls")
Do While FName ""
FCount = FCount + 1
ReDim Preserve FileArray(1 To FCount)
FileArray(FCount) = FName
FName = Dir()
Loop
For ProcessCounter = 1 To FCount
Kill FileArray(ProcessCounter)
Next
End Sub
'oName = "R:\TEST\aufbereitet" funktioniert!!
oName = "\\juprds03\KEC_Accounting$\TEST\aufbereitet" - funktioniert nicht!!
R:\ ist natürlich auf KEC_Accounting$ gemappt
Es wäre toll, wenn mir jemand weiterhelfen könnte.
Danke und Gruß
Wilfried