Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
596to600
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
596to600
596to600
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Netzlaufwerke

Netzlaufwerke
12.04.2005 12:09:17
chris
Hallo VBA-Profis,
habe schon in der Recherche gesucht aber nichts gefunden und hoffe ihr könnt mir helfen.
Ich habe an meinem PC mehere Netzlaufwerke verbunden.
z.B
Laufwerk s ist verbinden auf Sahre xlz\xxx
Laufwerk o ist verbinden auf Sahre xl5\abc
Laufwerk r ist verbinden auf Sahre xlz\xua
usw..
jetzt möchte ich irgendiwe erreichen das wenn ich z.b in eine Inputbox eingebe
"xlz" das es mir dann alle verzeichnisse also Laufwerke mit dem xlz auflistet.
am besten in eine textfile schreibt.Dann kann ich das ganze selbst weiterverarbeiten.Komme nur nicht daruf wie ich die Netzlaufwerke auslesen kann.
Mir würde es auch reichen wenn mir ein Makro alle Verbundenen Laufwerke also bsp:
s:
o:
r:
mit dem dazugehörigen Pfad in eine datei oder Variable schreibt.
Hoffe ich habs einigermaßen versändlich erklärt.Bedanke mich vielmals für Lösungswege.
Dank Christian

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Netzlaufwerke
12.04.2005 20:15:47
chris
Komme damit nicht weiter. Aber trotzdem vielen Dank !
AW: Netzlaufwerke
13.04.2005 08:42:32
bst
Morgen Christian,
Hier die IMHO einfachere Variante mit shell.
Auf der Kommandozeile zeigt "net use" alle bestehenden Netzwerkverbindungen an, allerdings mit ein paar weiteren Zeilen.
Um hieraus nur die Laufwerkinfos zu bekommen nimm sowas:
net use | find ":" oder net use | find "\\"
Zusätzlich nach XYZ suchen:
net use | find ":" | find "XYZ"
Um dieses in eine Datei umzuleiten nimm sowas:
net use | find ":" | find "XYZ" > d:\temp\use.txt
Um daraus einen VBA shell()-Aufruf zu machen brauchst Du noch ein "cmd /c" am Anfang und
mußt die Anführungszeichen innerhalb des Strings verdoppeln.
Gesucht wird - anstelle XYZ - nach dem Wert aus der Zelle A1.
HTH, Bernd
--
Option Explicit
Const fname As String = "d:\temp\use.txt" ' die Zieldatei

Sub ShowNet()
Dim mycmd As String
mycmd = "net use | find ""\\"" | find """ & Cells(1, 1).Value & """ > " & fname
Shell ("cmd /c " & mycmd)
End Sub

Anzeige
AW: Netzlaufwerke
13.04.2005 11:09:19
chris
danke das ist auch klasse.
Echt super toll dieses Forum hier !
Und vor allem seine User ! Danke vielmals !

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige