Hi!
Es funktioniert auch mit XP.
Wie bereits vermutet, ist der Abschnitt
If LaufwerksTyp(sDrive) = "Wechseldatenträger" And Left$(sDrive, 2) <> "A:\" And Left$(sDrive, 2) <> "B:\" Then
pfad = sDrive
Else
pfad = App.Path
End If
eine Fehlerquelle.
Wenn der Stick nicht das letzte LW ist, ist das Ergebnis falsch.
Im konkreten Fall gibt es auf dem Rechner ein Netz-LW U:\. Der Stick hat G:\.
Wenn jetzt der Code in der Schleife durchlaufen wird, ist die Bedingung beim letzten Durchlauf nicht erfüllt.
Fazit: Verändere den Code dahin, daß nicht das letzte LW entscheidend ist.
mfg
WB
|