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

Nach bat Dateien suchen und automatisch link auf Desktop erstellen

Mitglied: cbli

cbli (Level 1) - Jetzt verbinden

30.11.2006, aktualisiert 01.12.2006, 7052 Aufrufe, 2 Kommentare

Ist es möglich per Batch nach bat Dateien mit bestimmten Namen zu suchen und automatisch eine Verknüpfung auf den Desktop zu legen ?

Beispiel:

Auf dem Netzlaufwerk L: sind z.b 100 Bat Dateien die ich öfters benutze in verschiedenen Verzeichnissen abgelegt.
Diese bat Dateien möchte ich nun von meinem Desktop aus aufrufen können.
Nun könnte ich ja für jede Bat Datei eine Verknüpfung erstellen,doch bei der Menge (es kommen immer wieder neue hinzu aufgrund der von mir,dank dieser Seite, entdeckten Möglichkeiten die Batches bieten) wäre dies ja sehr aufwändig.
Ich möchte also eine Batch schreiben ,die automatisch auf L: nach Bat Dateien mit immer gleichem Namen sucht und automatisch eine Verknüpfung auf meinem Desktop in einem bestimmten Ordner anlegt.
Darüberhinaus sollen bei einer nächsten Suchaktion bereits vorhandene Verknüpfungen automatisch überschrieben werden, so das keine doppelten Verknüpfungen entstehen.
Außerdem wäre es wünschenswert wenn die Batch aus den gefundenen Bat Dateien jeweils die erste Zeile (oder auch eine immer gleiche andere) auslesen würde (dort will ich die Batch Beschreibung ablegen) und den gefundenen Text dieser Zeile dann als Namen für die Verknüpfung verwenden würde.

Aber ob so was möglich ist ?
Danke

Gruß
Claus
Mitglied: bastla
30.11.2006 um 16:35 Uhr
Hallo Claus!

Ich hab mal auf die Schnelle was gekaspert (wie Biber dazu sagt):
01.
Const sBatPath = "L:\" 
02.
Const sLnkFolder = "Alle Meine Bätche" 
03.
Set shell = WScript.CreateObject("WScript.Shell") 
04.
Set fso = CreateObject("Scripting.FileSystemObject") 
05.
sLnkPath = shell.SpecialFolders("Desktop") & "\" & sLnkFolder & "\" 
06.
 
07.
'löschen 
08.
For Each f in fso.GetFolder(sLnkPath).Files 
09.
   If Right(f.Name , 4) = ".lnk" Then 
10.
	fso.DeleteFile(f) 
11.
   End If 
12.
Next 
13.
 
14.
'neu erstellen 
15.
For Each f in fso.GetFolder(sBatPath).Files 
16.
	If LCase(Right(f.Name, 4)) = ".bat" Or LCase(Right(f.Name, 4)) = ".cmd" Then 
17.
		Set oBatFile = fso.OpenTextFile(f.Path, 1) 
18.
		sBatName = oBatFile.ReadLine 
19.
		oBatFile.Close 
20.
		sBatName = Replace(sBatName, ":", "") 
21.
		sIndex = "" 
22.
		i = 2 
23.
		Do While fso.FileExists(sLnkPath & sBatName & sIndex & ".lnk") 
24.
			sIndex = CStr(i) 
25.
			i = i + 1 
26.
		Loop 
27.
		sShortcutName = sLnkPath & sBatName & sIndex & ".lnk" 
28.
		set oShellLink = shell.CreateShortcut(sShortcutName) 
29.
		oShellLink.TargetPath = f.Path 
30.
		oShellLink.WindowStyle = 1 
31.
		oShellLink.WorkingDirectory = sBatPath 
32.
		oShellLink.Save 
33.
	End If 
34.
Next
Zunächst werden alle im Zielpfad "Desktop\Alle Meine Bätche" vorhandenen Verknüpfungen gelöscht, danach für alle ".bat"- oder ".cmd"-Dateien im Verzeichnis "L:\" neue Verknüpfungen erstellt.

Der Name wird wunschgemäß aus der ersten Zeile der Batch-Datei abgeleitet. Da bei mir jede Menge Verknüpfungen mit dem einprägsamen Namen "@echo off & setlocal EnableDelayedExpansion" entstünden, habe ich vorgesehen, dass bei Namensgleichheit eine laufende Nummer angefügt wird.

Da Deine ersten Zeilen vermutlich mit "::" beginnen und sich Doppelpunkte in Dateinamen nicht ganz so gut machen, werden alle Doppelpunkte aus dem Namen eliminiert.

Weitere Fehlerüberprüfungen sind bis jetzt nicht enthalten.

Für den Verknüpfungseintrag "Ausführen in:" wird das Verzeichnis "L:\" eingesetzt.

Grüße
bastla
Bitte warten ..
Mitglied: cbli
01.12.2006 um 13:00 Uhr
Werde das Problem jetzt anders lösen.
Dieser Thread kann geschlossen werden.

Danke nochmal für die Hilfe

Gruß
Claus
Bitte warten ..
Ähnliche Inhalte
Windows 7
Bat Datei erstellen für Homeroot
gelöst Frage von leon22Windows 72 Kommentare

Hallo zusammen Ich benötige eine kleine Hilfe im bereich BAT Ich habe das ganze vorher auf meinem alten rechner ...

Windows 7

bat Datei über Cmd in einem Netzwerk auf ein anderen User Desktop kopieren

Frage von IWantCmdWindows 76 Kommentare

Hallo! Ich würde gern wissen wie man eine .bat über die Cmd - Aufforderung in einem Netzwerk auf den ...

Weiterbildung

Bat Dateien

Frage von fajo23Weiterbildung20 Kommentare

Ich habe folgendes Problem. Ich habe auf meiner Festplatte viele Dateinamen die wie folgt aussehen: 20180126 2355 - Dlf ...

Batch & Shell

Mit Bat Datei in einer textDatei nach bestimmten Begriffen suchen

gelöst Frage von hallcohgBatch & Shell2 Kommentare

Hi Zusammen Ich möchte mit einer Bat Datei in einer Text datei nach bestimmten Begriffen suchen und dann in ...

Neue Wissensbeiträge
Utilities
Teamviewer 14 Verbindungsprobleme mit Proxy
Tipp von PeterleB vor 25 MinutenUtilities

Nach dem Umstieg von Version 13 auf 14 wollte sich TV nicht mehr mit dem Netz verbinden, ignorierte offenbar ...

Administrator.de Feedback
Unsere Datenbank wurde umgestellt
Information von Frank vor 3 StundenAdministrator.de Feedback3 Kommentare

Hallo User, ich habe in der Nacht unsere Datenbank umgestellt. D.h. neue Version (MySQL 8) und andere Örtlichkeit. Sollte ...

Sonstige Systeme
Es war einmal ein BeOS - Wer erinnert sich noch?
Information von BassFishFox vor 2 TagenSonstige Systeme6 Kommentare

Hallo, Bin gerade ueber Haiku gestolpert, von dessen Existenz als "Nachfolger des BeOS" ich wusste nur mich nie wirklich ...

Datenschutz

Microsoft und DSGVO - ob das wohl jemals klappt (Probleme beim Datenabfluss für Office Pro Plus)?

Tipp von VGem-e vor 2 TagenDatenschutz3 Kommentare

Servus Kollegen, siehe Aber wer setzt schon MS Office Pro Plus ein? Wie dann der Stand beim "normalen" MS ...

Heiß diskutierte Inhalte
Windows 10
Programm unter Windows 10 automatisch mit administrativen Rechten starten
Frage von GrafmulderWindows 1016 Kommentare

Hallo zusammen! Zur Situation: Ich benutze Windows 10 Pro für Workstations (Build 1803) mit zwei Konten. Einem Administratorkonto und ...

Windows Server
Cisco Annyconnect Secure Mobility Client - Windows2003 Server unable to connect
Frage von novregenWindows Server11 Kommentare

Von einem Windows 2003 Server soll eine Verbindung über Cisco Anyconnect Mobility Client zu einer Gegenstelle aufgebaut werden. Die ...

LAN, WAN, Wireless
Empfehlung Powerline Adapter
Frage von AgilolfingerLAN, WAN, Wireless10 Kommentare

Hallo Zusammen, ich brauche eine Empfehlung von euch. Ich möchte in einem privaten Haushalt eine Powerline Lösung einrichten. Allerdings ...

Microsoft
Schulungs-Microsoft-Konten zentral verwalten
Frage von thejarneMicrosoft9 Kommentare

Hallo zusammen, wir haben bei uns in der Firma 12 Computer-Arbeitsplätze für EDV-Schulungen, wo u.A. auch Computer-Basics-Kurse (wie verwende ...