Directorylijst saven en printen met koppelingsdoel

Status
Niet open voor verdere reacties.
S

Senso

Meubilair
Lid geworden
13 jun 2016
Berichten
9.635
Besturingssysteem
W10 Pro en W11 Pro
Office versie
Office 2007 H@S en Office 2021 Prof Plus
Ik wil een Directorylijst van het bureaublad saven en printen waarin ook het koppelingsdoel staat.

Dus niet de locatie waar die zelf staat, want dat is wel duidelijk, dat is Users\Username\Desktop

voorbeeld
Snelkoppeling op bureaublad is:
Helpmij.nl------dan is het koppelingsdoel https:\\www.helpmij.nl\
Downloads-----dan is het koppelingsdoel C:\Users\Username\Downloads

In verkenner zet je het koppelingsdoel maar je moet software hebben die dat kan opnemen in de uitvoer.
 
Als ik je goed begrijp wil je de inhoud van de folder waar de snelkoppeling naar verwijst afgedrukt hebben?
 
Exact. Ik neem de snelkoppelingen over van W7 naar WXP en daar staat onder details geen Koppelingsdoel. Lastig. Kan wel via Eigenschappen maar dat kost veel te veel tijd.

Vreemd. Bij opening via de mail krijg ik de mobiele weergave.
 
Laatst bewerkt:
Ok.
Maak dan op je bureaublad een bestandje met bijvoorbeeld de naam List Link Target.txt en zet deze code er in:
Code: 
Set FSO = CreateObject("Scripting.FileSystemObject")
Set SHL = CreateObject("WScript.Shell")
Set ARG = WScript.Arguments

If Right(ARG(0), 4) <> ".lnk" then
    MsgBox ARG(0) & " is geen snelkoppeling", vbCritical, "Geen snelkoppeling"
    WScript.Quit
End If

Set OSH = SHL.CreateShortcut(FSO.GetAbsolutePathName(ARG(0)))
If FSO.FolderExists(OSH.TargetPath) then
    Set TXTfile = FSO.CreateTextFile(Left(ARG(0), Len(ARG(0))-4) & ".txt", True)
    Set Folder  = FSO.GetFolder((OSH.TargetPath))
    Set Files   = Folder.Files
  
    For Each BST In Files
        TXTfile.WriteLine(BST.Name)
    Next
    TXTfile.Close
    MsgBox Left(ARG(0), Len(ARG(0))-4) & ".txt" & " is gemaakt.", vbInformation, "List link Target"
Else
    MsgBox OSH.TargetPath, vbCritical, "Directory niet gevonden"
End If

Sla het bestandje op en hernoem hem van .txt naar .vbs
Sleep nu de betreffende snelkoppeling op dat bestandje.
Er wordt dan een tekst bestandje met de naam van je snelkoppeling op je bureaublad gemaakt met als extensie .txt
Dit bestandje bevat de inhoud van de folder waar de snelkoppeling naar verwijst.
 
Mijn leesvermogen is door het intensieve werken aangetast, want nu ik post 2 nogmaals lees is dit fout. Ik moet geen inhoud van de doelfolder weten maar uitsluitend de locatie, dat is het koppelingsdoel. Sorry dat je er dan veel werk hebt ingestopt.

Naam + Koppelingsdoel afdrukken.jpg
 
Laatst bewerkt:
Geen probleem :)

De werkwijze blijft gelijk, maar dan is dit voldoende:
Code: 
Set FSO = CreateObject("Scripting.FileSystemObject")
Set SHL = CreateObject("WScript.Shell")
Set ARG = WScript.Arguments

If Right(ARG(0), 4) <> ".lnk" then
    MsgBox ARG(0) & " is geen snelkoppeling", vbCritical, "Geen snelkoppeling"
    WScript.Quit
End If

Set OSH = SHL.CreateShortcut(FSO.GetAbsolutePathName(ARG(0)))
Msgbox FSO.GetFolder(OSH.TargetPath),, "Link Locatie"
 
Laatst bewerkt:
Of je doet het in Excel :)
Code: 
Public Sub ShortcutTargetPath()
    Set obj = CreateObject("WScript.Shell")
    Set objFso = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFso.GetFolder(Environ("Userprofile") & "\Desktop")
    Set objFile = objFolder.Files
    
    Cells(1).ClearContents
    For Each objFile In objFolder.Files
        If objFso.GetExtensionName(objFile.Path) = "lnk" Then
            Set shortcut = obj.CreateShortcut(objFile.Path)
            i = i + 1
            Cells(i, 1) = objFile.Name
            Cells(i, 2) = shortcut.TargetPath
        End If
    Next
    Columns.AutoFit
End Sub
 
Post 6 begrijp ik niet, want het heeft geen zin één voor één een snelkoppeling in dat vbs bestand te slepen. Dan kan ik ook onder Eigenschappen kijken. Kijk als ik een map er in kan gooien en krijg dan de namen en koppelingsdoelen van de items die daar in staan en kan deze printen dan is het werkbaar.

Het mooiste is als ik een uitvoer krijg zoals in mijn screenshot. Die kan ik printen en op mijn bureaublad leggen.
Overigens had ik nog een idee. Is het mogelijk de hele structuur, dus een map en alle submappen te kopiëren maar de bestanden niet. Dus MAP1, incl alle submappen, incl lege mappen maar zonder alle bestanden die in de mappen staan.

Dat van Exel kijk ik later na, want deze dag was geen succes. De oude XP-pc wilde van geen meewerken. Kost uren en uren.
Bedankt voor jouw hulp.
 
Senso zei:
Het mooiste is als ik een uitvoer krijg zoals in mijn screenshot. Die kan ik printen en op mijn bureaublad leggen.
Klik om te vergroten...

Dat is dus zo'n beetje wat dat Excel voorbeeld doet.
 
Ik zie niet dat Explorer zelf ook de mogelijkheid biedt:
Explorer.JPG
 
Link target is koppelingsdoel. Ik zie die niet in Windows XP. Dat in Excel zal ik morgen proberen.
Ik had deze nog maar geeft fout bij parseren.

xcopy "H:\INDEX" "B:\INDEX\/s/e/t/i

Weet jij wat daar fout zit?

Geloof dat ik het werkend heb. Moet zijn:


xcopy "H:\INDEX" "B:\INDEX /s/e/t/i
 
Laatst bewerkt:
Je mist een dubbele quote.
 
Ik word slordig. Bedankt voor de hulp. Ga dit morgen eens proberen, dan heb ik binnen XP dezelfde structuur als in W7. De files heb ik daar vaak niet nodig. Het is meer de eventuele benodigde "opbergfunctie" die dan hetzelfde is.
 
Alles gelukt. De structuur overgezet. Werkt perfect met Excel. Koppelingsdoelen in twee pagina's uitgeprint opdat ik dat snel kan inzien. Nogmaals dank.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan