Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1696to1700
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1696to1700
1696to1700
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei oder besser *.lnk in Textfeld

Datei oder besser *.lnk in Textfeld
13.06.2019 06:40:36
Sebastian
Hallo Profis,
ich bräuchte mal wieder Hilfe.
ich lade mit einem VBA Code in ein Textfeld den Filepfad. Jetzt möchte ich aber gerne den Dateipfad einer *.lnk aus dem Startmenü anzeigen lassen.
Mein Code stürzt bei LNK irgendwie ab oder verweist dann auf die Originaldatei die sich hinter dem Link befindet.
Ich benötige aber genau die Postion im startmenü als Ausgabe.
z.B.
C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Excel.lnk
Mein Code bisher:
Sub test()
Dim fileToOpen As String
ChDrive ThisWorkbook.Path
ChDir "C:\ProgramData\Microsoft\Windows\Start Menu"
fileToOpen = Application.GetOpenFilename("Mögliche Dateien (*.lnk), *.lnk")
TextBox1 = fileToOpen
End Sub
Hat jemand einen Tipp?
Vielen Dank und viele Grüße

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei oder besser *.lnk in Textfeld
13.06.2019 21:15:00
onur 

Private Sub CommandButton2_Click()
Dim LINKADRESSE
LINKADRESSE = GetShortcutTarget("C:\Users\oee\Desktop\Mozilla Firefox.lnk")
End Sub


Private Function GetShortcutTarget(strShortcut As String) As String
Dim wshell As Object
Set wshell = CreateObject("wscript.Shell")
On Error Resume Next ' skip if shortcut does not exist
GetShortcutTarget = wshell.CreateShortcut(strShortcut).TargetPath
On Error GoTo 0
End Function

AW: Datei oder besser *.lnk in Textfeld
13.06.2019 21:23:13
Sebastian
Hi Onur, Danke für deine Antwort?. Aber wie soll das funktionieren?
Ich benötige eine Auwahl in der ich die lnk aus dem Startmenü auswählen kann und genu der Pfad vom Startmenü also
C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Excel.lnk
ausgibt.
Der String soll dann in das Textfeld1
Hat jemand eine Idee?
Anzeige
AW: Datei oder besser *.lnk in Textfeld
13.06.2019 21:25:50
onur
Steht doch hier (Du musst nur statt meines Pfades Deins eintragen:
LINKADRESSE = GetShortcutTarget("C:\Users\oee\Desktop\Mozilla Firefox.lnk")'Hier DEIN PFAD
AW: Datei oder besser *.lnk in Textfeld
13.06.2019 21:33:19
Sebastian
Nein das meine ich nicht so.
Ich benötige nicht das Ziel der LNK Datei, sondern ich brauche genau den Pfad der LNK selber.
Das soll am Besten per Auswahl Menü ausgelesen werden.
Viele Grüße
Sebastian
AW: Datei oder besser *.lnk in Textfeld
13.06.2019 21:34:57
onur
DU HAST GESCHRIEBEN: "Jetzt möchte ich aber gerne den Dateipfad einer *.lnk aus dem Startmenü anzeigen lassen."
AW: Datei oder besser *.lnk in Textfeld
13.06.2019 21:42:19
Sebastian
OK sorry,
falsch ausgedrückt.
Ich benötige den Pfad zu LNK Datei.. NICHT zu der eigentlichen Datei.
VG
Sebastian
Anzeige
AW: Datei oder besser *.lnk in Textfeld
13.06.2019 21:43:39
onur
DEN HAST DU DOCH SCHON:
C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Excel.lnk
AW: Datei oder besser *.lnk in Textfeld
13.06.2019 21:48:25
Sebastian
Ich möchte das ich ein FileOpen Dialog öffne im Verzeichnis:
C:\ProgramData\Microsoft\Windows\Start Menu\Programs\
Dort möchte ich eine der vielen LNK auswählen, diese sind aber auch in Unterordnern im Startmenü.
Dann möchte ich den Pfad einfach in einer Tabelle speichern Range("A1")
AW: Datei oder besser *.lnk in Textfeld
13.06.2019 21:55:53
onur
Filedialog öffnet man ja auch so:
https://www.vba-tutorial.de/applikation/dateidialog.htm
AW: Datei oder besser *.lnk in Textfeld
13.06.2019 21:57:55
Sebastian
Diese Seite habe ich auch schon gefunden. Leider wird mir auch hier nicht der gewünschte Pfad ausgegeben.
Anzeige
AW: Datei oder besser *.lnk in Textfeld
14.06.2019 06:16:42
Sebastian
OK das ist eine Interessante Variante - Ob man da auch noch die Unterordner durchsuchen kann? Das praktisch alle Links im Startmenü angezeigt werden?
AW: Datei oder besser *.lnk in Textfeld
14.06.2019 06:18:03
onur
Du brauchst doch dazu nur die Unterordner anzuklicken!

300 Forumthreads zu ähnlichen Themen

Inputbox Schriftart oder Farbe verändern
Gunter

Hallo Zusammen,
ich habe eine Inputbox, über die eine Passwortabfrage gesteuert wird. Leider ist das Passwort im Eingabefeld zu sehen. Ist es möglich den Text z.B. in der Schriftart "Wingdings" zu formatieren, oder
die Schriftfarbe in weiss, damit das Passwort nicht mehr zu sehen ist?
28.08.2008 15:32:00
Thread-ID: 1005474
7 Beiträge
Anzeige
SVerweis mit zwei Suchkriterien
Josef

Hallo1
Ich habe in Tabelle1
in der Spalte A und B Werte stehen.
In der Tabelle2 stehen ebenfalls in der Spalte A und B die gleichen Werte, jedoch in anderer Reihenfolge in der Spalte C stehen die dazugehörenden Texte.
Ich möchte nun die Werte in der Spalte C in der Tabelle 2 in...
01.09.2008 18:57:22
Thread-ID: 1006581
6 Beiträge
Zugriff auf Access-DB über DAO oder ADO
Armin

Hallo,
ich hätte eine allgemeine Frage zum Zugriff auf Access-Datenbanken.
Welche Zugriffsmethode auf eine Access-DB würdet Ihr generell empfehlen: ADO oder DAO?
Gibt es in der Praxis Vor- oder Nachteile für die eine oder andere Zugriffsweise?
Vielen Dank für Euere Meinungen und...
03.09.2008 14:28:55
Thread-ID: 1007110
2 Beiträge
Anzeige
PIVOTDATENZUORDNEN mit zwei Kriterien
Andi

Hallo Experten,
Ich versuch zurzeit eine Auswertung aus einer Pivot Tabelle zu erstellen, komm jedoch nicht weiter da ich zwei Kriterien in der X-achse und eins in der Y-achse berücksichtigen muss. Das heisst ich kann nicht einfach X-Achse und Y-achse mit der Pivot-tabelle abgleichen, sonde...
14.10.2008 12:16:00
Thread-ID: 1016295
5 Beiträge
LZF 1004 Anwendungs- oder objektdefinierter Fehler
Himmelsbach

Hallo zusammen,
Ich habe ein kleines Problem beim Einfügen eines Kommentars in ein Zelle.
Der Code lautet:
Sub vergleichen () dim icolmax as integer dim irowmax as integer dim icol as integer dim irow as integer dim kommentar$ icolmax = 16 irowmax = thisworkbook.worksheets("IASEK...
20.10.2008 20:20:00
Thread-ID: 1017794
6 Beiträge
Bedingte Formatierung oder VBA?
maruseru

Hallo werte Profis
Irgendwie raff ich es heute nicht
Habe eine Spalte mit Artikel Nummern. Jeweils das erste Zeichen ist = Produkte Typ.
A976164
A980602
B181645
B491942
F199587
F215047
F224410
G224410
F232634
Ich möchte nun anhand des ersten Zeich...
27.11.2008 14:09:45
Thread-ID: 1028367
7 Beiträge
Schaltflächen oder Image Beispiele
Walter

Hallo Zusammen,
erst mal ALLEN ein gesundes neues Jahr !!!
Ich such Schaltflächen oder Image Beispiele, hatte mal in Google gesucht, leider
nichts gefunden,
vielleicht hat jemand eine Beispielmappe,
mfg Walter
01.01.2009 13:10:00
Thread-ID: 1036231
9 Beiträge
Excel-Bug oder was?
Andreas

Hallo,
Haben seit gestern folgendes Problem, welches auch schon zu
"Schäden" geführt hat. Sonst hätte ich es ja auch nicht bemerkt.
Excel-Problem nach Update von MS Office Kompatibilitätspack 2007
Wenn eine Exceldatei *.xls (2003) über Extras - Schutz - Arbeitsmappe schützen
...
16.01.2009 12:09:00
Thread-ID: 1040524
3 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton TextBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
5
5
1
5
4
5
6
8
2
11
2
2
3
8
4
7
3
15
3
16
5
4
2
1