wolf666
Goto Top

Mit VB einen Ordner öffnen

Hey,

ich habe nicht so viel Ahnung vom Programmieren. Habe nur manchmal etwas darüber gelesen. Ein richtiger Anfänger halt.

Nun habe ich mir vorgenommen ein Programm zu schreiben das mir die Netzwerkfreigabe in einem externen Ordner anzeigt. Dazu gebe ich die letzten 2 zahlen der IP ein und den Freigabenname (z.B. c$) dann soll in einem externen Ordner dieser angezeigt werden.

Soweit hat auch alles geklapt und ich muß nur noch die Variable in einem Explorer öffnen. Wie kann ich die realisieren???

Content-ID: 54572

Url: https://administrator.de/contentid/54572

Ausgedruckt am: 21.11.2024 um 22:11 Uhr

Dani
Dani 20.03.2007 um 21:04:05 Uhr
Goto Top
G' Abend,
ich muß nur noch die Variable in einem Explorer öffnen. Wie kann ich die realisieren???
Von welcher Variablen redest du & wie willst du diese mit dem Explorer verarbeiten?!

=> Kann dein Problem nicht ganz folgen, würde gerne aber etwas beisteuern. *gg*


Grüße
Dani
bastla
bastla 20.03.2007 um 21:08:42 Uhr
Goto Top
Hallo Wolf666!

Falls ich Dich richtig verstanden habe, sollte es so gehen:
r = Shell("%systemroot%\explorer.exe /e," & Chr(34) & strPfadvariable & Chr(34), vbMaximizedFocus)  
Vielleicht noch ein Hinweis: In zukünftigen Fragestellungen solltest Du auch Deine VB-Version angeben.

Grüße
bastla
Biber
Biber 20.03.2007 um 21:58:49 Uhr
Goto Top
@Wolf666
In zukünftigen Fragestellungen solltest Du auch Deine VB-Version angeben.
...und bitte auch die elfeinhalb vorhandenen Sourcecodezeilen...

Das verkraften wir schon.

Danke
Biber
Wolf666
Wolf666 21.03.2007 um 10:22:29 Uhr
Goto Top
Hallo,

hier noch ein paar angaben:
VB 6.0

Wie gesagt alles sehr einfach - Mein Skript: (wenn man dies schon ein Skript nennen kann)

Private Sub Button1_Click()
Dim IP As String
Dim LW As String
Dim test As String

IP = "\\192.168.0." & IP1
test = IP & "\" & frei

und dazu will ich nun nur noch die Variable "test" an den Explorer übergeben wenn man den Button drückt. So soll das ding aussehen http://www.spider-wolf.de/test/vb.jpg
bastla
bastla 21.03.2007 um 12:59:51 Uhr
Goto Top
Hallo Wolf666!

Auch wenn ich den Variablennamen "test" etwas wenig aussagekräftig finde, habe ich ihn beibehalten:
Dim r as Long
r = Shell("explorer.exe /e," & Chr(34) & test & Chr(34), vbMaximizedFocus)  
Da die "explorer.exe" ohnehin im Systempfad liegt, genügt die Angabe des Dateinamens. Die beiden "Chr(34)" sind nur für den Fall gedacht, dass Du eventuell zu der Freigabe auch noch Unterordner mit Leerstellen im Namen aufrufen möchtest.

Grüße
bastla
Wolf666
Wolf666 21.03.2007 um 13:38:50 Uhr
Goto Top
Super Danke für deine Antwort es funktioniert.

Das mit dem test werde ich natürlich noch ändern da habe ich noch ein wenig getestet.

Dank