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, 3875 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 10

Komplette Ordner kopieren über Kontextmenü

gelöst Frage von Nick.BWindows 1010 Kommentare

Hallo, Ich habe in meinem Kontextmenü ein paar Einträge um die Datei, die angeklickt wird von A nach B ...

Batch & Shell

VBScript - Kopiere lokale Datei auf mehrere Netzwerkpfade

gelöst Frage von chasperlisimba1Batch & Shell6 Kommentare

Hallo liebe Gemeinde Ich versuche folgendes per VBScript zu lösen. Eine Datei soll auf 6 verschiedene Server kopiert werden ...

Batch & Shell

Dateien kopieren, rekursiv in einen Ordner

gelöst Frage von golsinBatch & Shell9 Kommentare

Hallo und noch ein Frohes neues Jahr ;-) Ich bin mal wieder etwas ratlos Ich Versuche von einem Rechner ...

Batch & Shell

Ordner nach Dateien absuchen und kopieren

Frage von sbsnewbieBatch & Shell4 Kommentare

Moin Leude, folgende Frage: Ich möchte eine kleine batch bauen um ein Verezeichniss nach Dateien abzusuchen und in eine ...

Neue Wissensbeiträge
Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 10 StundenGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Sicherheit

Intel gibt neue Spectre V2-Microcode-Updates frei (20.02.2018)

Information von kgborn vor 10 StundenSicherheit

Intel hat zum 20. Februar 2018 weitere Microcode-Updates für OEMs freigegeben, um Systeme mit neueren Prozessoren gegen die Spectre ...

Microsoft
ARD-Doku - Das Microsoft Dilemma
Tipp von Knorkator vor 13 StundenMicrosoft3 Kommentare

Hallo zusammen, vor einigen Tagen lief in der ARD u.a. Reportage. Das Youtube Video dazu dürfte länger verfügbar sein. ...

Windows 10

Neue Sicherheitslücke in Windows 10 (Version 1709) durch Google öffentlich geworden

Information von kgborn vor 1 TagWindows 10

Vor ein paar Tagen haben Googles Sicherheitsforscher vom Projekt Zero eine Sicherheitslücke im Edge-Browser publiziert. Jetzt wurde eine weitere ...

Heiß diskutierte Inhalte
Windows Server
AD DS findet Domäne nicht, behebbar?
Frage von schapitzWindows Server40 Kommentare

Guten Tag, ich habe bei einem Kunden ein Problem mit den AD DS. Umgebung ist folgende: Windows Server 2016 ...

Router & Routing
LANCOM VPN CLIENT einrichten
Frage von Finchen961988Router & Routing27 Kommentare

Hallo, ich habe ein Problem und hoffe ihr könnt mir helfen, wir haben einen Kunden der hat einen Speedport ...

Router & Routing
ISC DHCP 2 Subnetze
gelöst Frage von janosch12Router & Routing19 Kommentare

Hallo, ich betreibe bei mir im Netzwerk einen ISC DHCP Server auf Debian, der DHCP verwaltet aktuell ein /24 ...

Switche und Hubs
Cisco SG350X-48 AdminIP in anderes VLAN
Frage von lcer00Switche und Hubs14 Kommentare

Hallo zusammen, ich habe ein Problem mir einem Cisco SG350X-48 bei der Erstinstallation wurde eine IP 192.168.0.254 (Default VLAN ...