Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Pfad (Ziel) einer Datei auslesen
Autor: mojazo
Datum: 01.02.08 07:52
Hallo zusammen... Brauche Hilfe bei der Feinheit dieses Scriptes... Der Script liest den Ordnerinhalt "Desktop" aus und schreibt die Informationen in ein Textfile... Soweit so gut - das alles funktioniert auch. Mein Problem liegt darin, dass bei Verknüpfungen (*.LNK) auf dem Desktop der Pfad mit %USERPROFILE%\Desktop\Excel.exe.lnk augegeben wird und nicht wie gewünscht mit dem wirklichen Pfad der Verknüpfung... z.B. C:\Programme\Microsoft Office\OFFICE11\Excel.exe Bitte um Hilfe.... ::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Const DESKTOP = &H10& On Error Resume Next DIM CRLF Set WshShell = WScript.CreateObject("WScript.Shell") Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace(DESKTOP) Set objFolderItem = objFolder.Self Set objFSO = Wscript.CreateObject("Scripting.FileSystemObject") Set objFile = Wscript.CreateObject("Scripting.FileSystemObject") sComputerName = WSHShell.ExpandEnvironmentStrings("%COMPUTERNAME%") sUserName = WSHShell.ExpandEnvironmentStrings("%USERNAME%") strQuelle3 = "C:\TEMP\" strFile = "\" & sUserName &"_Icons_" & sComputerName & ".txt" Set objFile = objFSO.CreateTextFile(strQuelle3 & strFile) Set colItems = objFolder.Items For Each objItem in colItems IconName = objItem.Name IconPath = objItem.Path objFile.Write strText strText = "Benutzer: " & sUserName & " Hostname: " & sComputerName & " Icon: " & IconName & " IconPath: " & IconPath & VBCRLF 'msgbox strText Next objTextFile.Close :::::::::::::::::::::::::::::::::::::::::::::::::::: Vielen vielen Dank Christian

Pfad (Ziel) einer Datei auslesen

2.556

mojazo

01.02.08 07:52

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen