Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Kompletter Netzwerkpfad von Datei bzw. Ordner kopieren

Mitglied: FireEmerald

FireEmerald (Level 1) - Jetzt verbinden

26.09.2013, aktualisiert 11:39 Uhr, 4627 Aufrufe, 2 Kommentare

Hallo Zusammen,

aktuell stellt sich mir folgendes Problem:

Ich habe im Arbeitsplatz sehr viele unterschiedliche Netzwerkordner angebunden.
Nun navigiere ich zu einer beliebigen Datei/Ordner in einem beliebigen Netzwerkordner und möchte den kompletten Netzwerkpfad zu der Datei/Ordner.

Als Beispiel, die Datei befindet sich bei mir auf:
H:\Ordner845 der eigentliche Pfad ist jedoch: \\Blub01\Blob\Ordner845


Kennt jemand eine simple Möglichkeit diesen Pfad mit Rechtsklick -> Kompletter Pfad kopieren oder so ähnlich herauszubekommen?

Aktuell hab ich mir ein VBS Script zusammengebastelt, wofür ich allerdings immer die betreffende Datei oder Ordner auf die VBS Datei ziehen muss.

01.
Option Explicit
02.
Dim OutlookApp, Mail
03.
Dim strUncPfad, WShNetwork, colDrives, i, strPath, strClipPath
04.
Dim fso, Path, DriveLetter
05.
Dim Debug, CopyToClip, CanChoose, ClipExists
06.
Dim Result
07.

08.
'# Config
09.
Debug       = False ' auf TRUE setzen für Meldungen
10.
CanChoose   = True ' auf TRUE setzen für ein Auswahlfenster
11.

12.
CopyToClip  = True ' auf TRUE setzen für Kopie in Zwischenablage (Ist CanChoose auf TRUE, so wird dies ignoriert)
13.

14.
strClipPath = "\\<denkt euch den Pfad>\clip.exe"
15.

16.
'# Übergebenen Pfad vom Explorer auslesen
17.
Set fso = CreateObject("Scripting.FileSystemObject")
18.
If Debug Then wscript.echo "FSO: """ & fso.GetAbsolutePathName(wscript.arguments(0)) & """"
19.
Path = fso.GetAbsolutePathName(wscript.arguments(0))
20.
Set fso = nothing
21.
DriveLetter = Ucase(Left(Path, 1))
22.
Path = Mid(Path,3)
23.
If Debug Then  Wscript.Echo "Laufwerk: """ & DriveLetter & """ Pfad: """ & Path & """" ' Ausgabe des ersten Zeichen
24.
Set WshNetwork = Wscript.CreateObject("Wscript.Network")
25.
Set colDrives = WshNetwork.EnumNetworkDrives
26.
On Error Resume Next
27.
If colDrives.Count > 0 Then
28.
    For i = 0 To colDrives.Count - 1 Step 1
29.
        If colDrives(i)=DriveLetter & ":" Then
30.
            If Debug Then wscript.echo """" & colDrives(i) & """ ist """ & colDrives(i+1) & """"
31.
            strUncPfad=colDrives(i+1)
32.
        End If
33.
    Next
34.
End If
35.
Set WshNetwork = nothing
36.
Set coldrives = nothing
37.
If (len( strUncPfad) = 0) Then
38.
    strUncPfad=DriveLetter & ":" 
39.
Else 
40.
    If Debug Then wscript.echo "UNC-Pfad: [" & strUncPfad &"]" 
41.
End If
42.
strPath = strUncPfad & Path
43.
If Debug Then wscript.echo "strUncPfad + Path: [" & strPfad & "]" 
44.

45.
If CanChoose Then
46.
    '# Auswahlbox anzeigen
47.
    Result = MsgBox ("In Outlook kopieren?", vbYesNo, "Outlook Abfrage")
48.

49.
    Select Case Result
50.
    Case vbYes
51.
        CopyToClip = False
52.
        If Debug Then wscript.echo "CopyToClip = False"
53.
    Case vbNo
54.
        CopyToClip = True
55.
        If Debug Then wscript.echo "CopyToClip = True"
56.
    End Select
57.
End If
58.

59.
If Not CopyToClip Then
60.
    '# Link an Outlook übergeben  
61.
    Set OutlookApp = CreateObject ("Outlook.Application")
62.
    Set Mail = OutlookApp.CreateItem(0)
63.
    Mail.Display
64.
    with Mail
65.
        .HTMLBody = "<HTML><BODY><A href=""file:///" & strPath & """>" & strPath & "</A> </BODY></HTML>" & Mail.HTMLBody
66.
    End with
67.
Else
68.
    '# Link in Zwischenablage kopieren
69.
    Set ClipExists = False
70.
    If CreateObject("Scripting.FileSystemObject").FileExists(CreateObject("Scripting.FileSystemObject").GetSpecialFolder(2) & "\Clip.exe") Then
71.
        If Debug Then wscript.echo "Clip.exe ist in """ & CreateObject("Scripting.FileSystemObject").GetSpecialFolder(2) & "\Clip.exe"", vorhanden."
72.
        ClipExists = True
73.
    Else
74.
        If Debug Then wscript.echo "Clip.exe fehlt. Es wird versucht die Clip.exe von, """ & strClipPath & """ nach, """ & CreateObject("Scripting.FileSystemObject").GetSpecialFolder(2) & "\Clip.exe"", zu kopieren."
75.
        CreateObject("Scripting.FileSystemObject").Copyfile strClipPath, CreateObject("Scripting.FileSystemObject").GetSpecialFolder(2) & "\Clip.exe"
76.
        
77.
        If CreateObject("Scripting.FileSystemObject").FileExists(CreateObject("Scripting.FileSystemObject").GetSpecialFolder(2) & "\Clip.exe") Then
78.
            If Debug Then wscript.echo "Clip.exe erfolgreich kopiert!"
79.
            ClipExists = True
80.
        Else
81.
            If Debug Then wscript.echo "Clip.exe konnte nicht kopiert werden!"
82.
        End If
83.
    End If
84.
    'Link in Zwischenablage kopieren
85.
    If ClipExists Then CreateObject("WScript.Shell").Run "cmd /c <nul set /p""=" & strPath & """|" & CreateObject("Scripting.FileSystemObject").GetSpecialFolder(2) & "\Clip.exe",0
86.
End If
Das Script funktioniert einwandfrei.

MfG, FireEmerald

Edit:

Hatte eine Kleinigkeit in dem anderen Thread übersehen, wo ich den Grundbaustein für das Script her hatte^^

https://www.administrator.de/wissen/kompletten-dateipfad-von-netzlaufwer ...
Mitglied: Penny.Cilin
26.09.2013, aktualisiert um 11:07 Uhr
Moin,

wie wäre es, wenn Du auf der Eingabeaufforderung einfach
01.
net use 
eingibst?
Oder ggf.
01.
net use > %temp%\liste.txt

Gruss Penny.
Bitte warten ..
Mitglied: FireEmerald
26.09.2013, aktualisiert um 12:00 Uhr
Du meinst an stelle von WshNetwork = Wscript.CreateObject("Wscript.Network") usw. ? Das liegt schlicht daran, weil ich diesen Abschnitt kopiert hatte und eigentlich nicht allzu viel Zeit dort investieren wollte. Wenn es funktioniert, funktioniert es.

Aktuell verstehe ich eher nicht warum er mir bei diesem RegFile den Wert nicht einträgt...

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Folder\Shell\Link an Outlook reichen]
[HKEY_CLASSES_ROOT\Folder\Shell\Link an Outlook reichen\command]
@="wscript \\Blub01\Blob\Ordner845\Path.vbs \"%1\""


Kann mir jemand erklären wieso? Das ist doch nur ein ganz normaler Eintrag...

Edit:

Ok, das Problem habe ich auch behoben. Es scheint so, als müsste man für den Registry Editor beim zusammenführen alle Leerzeichen und Zahlen(?) mit einem nachfolgenden \ kennzeichnen.

Sprich möchtest du ein \ in die Registry eintragen, so musst du dieses mit einem weiteren \ hinter dem ersten als solchen kennzeichnen. Weil sonst der Registry Editor meint du wolltest mit dem einzelnen \ ein vorangegangenes Leerzeichen oder Zahl(?) einfügen.

Wer's braucht:
01.
Windows Registry Editor Version 5.00
02.

03.
[HKEY_CLASSES_ROOT\*\Shell\Link zu Datei kopieren] 
04.
[HKEY_CLASSES_ROOT\*\Shell\Link zu Datei kopieren\command] 
05.
@="wscript \\\\server-blub\\bla\\Datei.vbs \"%1\""
06.

07.
[HKEY_CLASSES_ROOT\Folder\Shell\Link zu Ordner kopieren] 
08.
[HKEY_CLASSES_ROOT\Folder\Shell\Link zu Ordner kopieren\command] 
09.
@="wscript \\\\server-blub\\bla\\Datei.vbs \"%1\""
Bitte warten ..
Ähnliche Inhalte
Windows Netzwerk
Netzwerkpfad per Batch-Datei
gelöst Frage von AveiroCR7Windows Netzwerk6 Kommentare

Guten Abend, ich will gerne einen Netzwerkpfad mit anderen Anmeldedaten öffnen, dazu wollte ich gerne ein Batch-Datei erstellen. Aber ...

Batch & Shell
Dir auf Netzwerkpfad
gelöst Frage von webbuddaBatch & Shell8 Kommentare

Hi, wir wollte mir mit einem batch mit "dir-Befehl" die Verzeichnisse eines Netzwerkpfades in eine Datei leiten. Habe einfach ...

Windows 7

Offline Start: Netzwerkpfad nicht gefunden

Frage von norphoisWindows 71 Kommentar

Hallo zusammen Ich habe folgende Situation bei der ich nicht weiterkomme: Wenn der Client mit Windows 7 offline gestartet ...

Netzwerke

Netzwerkpfad kann nicht gefunden werden

Frage von Caro90Netzwerke6 Kommentare

Hallo zusammen, Ein Rechner (Windows 8.1) wurde versehentlich aus der Domäne geschmissen. Bei diesem Rechner wurde jetzt eine neue ...

Neue Wissensbeiträge
Humor (lol)
Zuviel Speicher ist ungesund. :-)
Tipp von Lochkartenstanzer vor 2 StundenHumor (lol)8 Kommentare

Moin Kollegen, Heute hatte ich ein ungewöhnliches Aha-Erlebnis: Über das Wochenende habe ich einen einen 6 Jahre alten Bare-Metal ...

Windows Update

KB4517297 verfügbar, behebt Fehler in VB6 VBA VBScript

Information von sabines vor 5 StundenWindows Update

Das Update behebt mögliche Fehler in VB6, VBA und VBScript, die durch das Update KB4512486 vom August entstanden sind. ...

Viren und Trojaner

Staatstrojaner soll auch per Einbruch installiert werden können

Information von transocean vor 1 TagViren und Trojaner2 Kommentare

Moin, Bundesinnenminister Horst Seehofer will dem Verfassungsschutz Wohnungseinbrüche erlauben, um den geplanten Staatstrojaner zu installieren. Gruß Uwe

Windows 7
Win7 Update scheitert KB4512506
Information von infowars vor 2 TagenWindows 7

Falls jemand auch das Problem hat mit dem: Monatliches Sicherheitsqualitätsrollup für Windows 7 für x64-basierte-Systeme (KB4512506) Das scheint mit ...

Heiß diskutierte Inhalte
Hyper-V
Bei Neuaufbau auf Core-Server setzen?
gelöst Frage von dertowaHyper-V32 Kommentare

Hallo zusammen, ich habe vor einigen Monaten die Verantwortung für eine EDV-Landschaft übernommen die seit Jahren von einem Dienstleister ...

Switche und Hubs
Glasfaser-Anschluss Telekom muss verteilt werden
Frage von cansoniSwitche und Hubs30 Kommentare

Vorweg: Bin nur Anwender und kein Experte Die Situation: Der Vermieter stellt einen Glasfaseranschluss in der Wohnung bereit. Wir ...

Hyper-V
VMs von Hyper-V auf externer Festplatte
gelöst Frage von SnowbirdHyper-V18 Kommentare

Hallo, ich möchte gerne von VirtualBox auf Hyper-V umsteigen und würde auch gerne weiterhin meine VMs auf der externen ...

Festplatten, SSD, Raid
SSDs durch Lagerung ohne Strom nach 6 Monaten defekt?!?
gelöst Frage von GlobetrotterFestplatten, SSD, Raid16 Kommentare

Moin Gemeinde Ich hatte gerade nen Trauerspiel Habe hier etliche NAS-Geräte herumfahren welche ich mal auf die Seite gelegt ...