Hi!
Der Code scheint OK zu sein. Im 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
steckt die Gefahr, daß der Stick unter bestimmten Umständen ignoriert wird. Das ist aber nicht das aktuelle Problem.
Um es wirklich auszuprobieren fehlt mir aber ein USB-Stick.
Würde mich aber auch echt interessieren. Auch zum Vergleich mit eigenem Code, der alle LW auflistet.
Als Workaround hilft wohl am Besten ein Schreibversuch. Damit ist das Vorhandensein sichergestellt.
Vielleicht kann ich so einen Stick organisieren. Dann probier ich das bei mir aus, und melde mich noch mal.
mfg
WB
|