AW: Alle Laufwerke in Schleife ansprechen
08.10.2021 00:26:01
Milan
Hallo Piet,
erstmal Entschuldigung an dich, meine Unzufriedenheit ging nicht auf dein Beitrag, und Sorry für meine Grammatik.
Leider seid drei Tage suche ich ein Ansatz womit ich was Anfangen kann, aber gefunden habe ich nur ein einzige Beitrag der in die Richtung läuft wie ich mir gewünscht hatte, aber nach unzähligen Versuchen habe ich nicht geschaft was ich wollte sondern ich habe alles zum Auflisten gesperrt.
In der Mappe die du mir geschickt hast habe ich auch was interessantes gefunden, dass man Systemverzeichnise nicht öffnet. Das versuche ich die Tage zu verstehen.
Ich habe eine Lösung gefunden die Verzeichnise und Dateien per Hyperlink öffnet und sortiert und die habe ich einwenig erweitert und umgebaut.
Ich habe die Code in die länge geschrieben weil ich nicht in der Lage bin kürzer zu fassen, aber macht das was ich ereichen wollte und zwar einpaar Verzeichnise und alle Laufwerke zum Auflisten zu blocken, weil Excel bleibt länger geschrumpft mit der Meldung "keine Rückmeldung" oder VBA mit Laufzeitfehler...
Hier meine Lösung in Kürzform:
If Verzeichniswahl = "C:\Users" Then
MsgBox "Benutzer als Auswahl ist nicht gestattet!", vbCritical
End
End If
If Verzeichniswahl = "C:\Windows" Then
MsgBox "Windows als Auswahl ist nicht gestattet!", vbCritical
End
End If
If Verzeichniswahl = "C:\ProgramData" Then
MsgBox "ProgramData als Auswahl ist nicht gestattet!", vbCritical
End
End If
If Verzeichniswahl = "C:\" Then
MsgBox "Datenträger als Auswahl ist nicht gestattet!", vbCritical
End
ElseIf Verzeichniswahl = "D:\" Then
MsgBox "Datenträger als Auswahl ist nicht gestattet!", vbCritical
End
ElseIf Verzeichniswahl = "E:\" Then
MsgBox "Datenträger als Auswahl ist nicht gestattet!", vbCritical
End
ElseIf Verzeichniswahl = "F:\" Then
MsgBox "Datenträger als Auswahl ist nicht gestattet!", vbCritical
End
ElseIf Verzeichniswahl = "G:\" Then
MsgBox "Datenträger als Auswahl ist nicht gestattet!", vbCritical
End
ElseIf Verzeichniswahl = "H:\" Then
MsgBox "Datenträger als Auswahl ist nicht gestattet!", vbCritical
End
ElseIf Verzeichniswahl = "I:\" Then
MsgBox "Datenträger als Auswahl ist nicht gestattet!", vbCritical
End
ElseIf Verzeichniswahl = "J:\" Then
MsgBox "Datenträger als Auswahl ist nicht gestattet!", vbCritical
End
ElseIf Verzeichniswahl = "K:\" Then
MsgBox "Datenträger als Auswahl ist nicht gestattet!", vbCritical
End
Und so bis zum Laufwerk "Z". Es ist nicht so schlimm, aber Ich dachte das kann man in einpaar Zeilen fassen und ich war einfach neugirich wie schreibt man das.
Noch einmal, Vielen Dank
Gruß