Shell Befehl um Explorer zu öffnen
LotharP
ich habe in der Onlinehilfe nun den Shell Befehl gefunden und versuche mich gerade daran.
Soweit so gut:
Sub EXPLTEST2()
Dim Ergebnis
Ergebnis = Shell("C:\WINDOWS\explorer.EXE", 1)
End Sub
Nun möchte ich den Explorer aber mit der Pfadangabe STRDOC öffnen.
Folgenden Code versuche ich, aber das klappt leider nicht:
Sub EXPLTEST2()
Dim Ergebnis
STRDOC = "C:\Documents and Settings\My Documents\PRI\BANDS\SOLOPFADE"
Ergebnis = Shell("C:\WINDOWS\explorer.EXE" & STRDOC, 1)
End Sub
Die Synthax habe ich gegooglet, aber nach mehreren unterschiedlichen Versuchen komm ich einfach nicht weiter.
Ich habe bereits einen Thread zu dem Grund-Problem angelegt, versuchs aber dort auch auf andere Wege, leider ohne Erfolg.
Scheinbar habe ich mich dort auch ungünstig erklärt!
Letztlich will ich, wenn der Explorer geöffnet ist die dort befindlichen Dateien via PRINT im Explorer ausdrucken, bzw ein paar davon.
Ich hofffe mir kann jemand hierzu helfen weil ich den Weg nun schon zigmal umgebaut habe und wirklich keinen Schritt voran komme.
Vielen Dank im Vorraus
Lothar