{"id":160,"date":"2014-07-29T14:28:44","date_gmt":"2014-07-29T12:28:44","guid":{"rendered":"http:\/\/project40.de\/?p=160"},"modified":"2014-07-29T14:34:33","modified_gmt":"2014-07-29T12:34:33","slug":"160","status":"publish","type":"post","link":"http:\/\/project40.de\/?p=160","title":{"rendered":"Ordner nach neuester Datei durchsuchen und Verkn\u00fcpfung auf dem Desktop aktualisieren"},"content":{"rendered":"

sPath = \"[Ordner zum Programm]\"
\nsExt = \"exe\"
\nSet oFSO = CreateObject(\"Scripting.FileSystemObject\")
\nsNewestFile = GetNewestFile(sPath)<\/p>\n

Const strProgramtitel=\"[Programtitel]\"
\nDim objShortcut
\nDim objShell
\nSet objShell= WScript.CreateObject(\"Wscript.Shell\")
\nSet fso = CreateObject(\"Scripting.FileSystemObject\")
\nstrLPfad=objShell.SpecialFolders(\"Desktop\")
\nSet objShortcut=objShell.CreateShortcut(strLPfad & \"\\\" & strProgramtitel & \".lnk\")
\nobjShortcut.TargetPath= sPath & \"\\\" & sNewestFile
\nobjShortcut.Description= \"[Programmbeschreibung]\"
\nobjShortcut.Save<\/p>\n

'Funktion NewestFile
\nFunction GetNewestFile(ByVal sPath)
\nsNewestFile = Null ' initialisiere Wert
\nSet oFSO = CreateObject(\"Scripting.FileSystemObject\")
\nSet oFolder = oFSO.GetFolder(sPath)
\nSet oFiles = oFolder.Files
\n' Finde die neueste Datei unter allen anderen Dateien
\nFor Each oFile In oFiles
\nif lcase(oFSO.GetExtensionName(ofile)) = sExt then 'selektiere Dateien mit der gew\u00fcnschten Endung aus
\nOn Error Resume Next
\nIf IsNull(sNewestFile) Then
\nsNewestFile = oFile.Path
\ndPrevDate = oFile.DateLastModified
\nElseif dPrevDate < oFile.DateLastModified Then
\nsNewestFile = oFile.Name
\nEnd If
\nend if
\nOn Error Goto 0
\nNext
\nIf IsNull(sNewestFile) Then sNewestFile = \"\"
\nGetNewestFile = sNewestFile
\nEnd Function<\/code><\/p>\n","protected":false},"excerpt":{"rendered":"

sPath = „[Ordner zum Programm]“ sExt = „exe“ Set oFSO = CreateObject(„Scripting.FileSystemObject“) sNewestFile = GetNewestFile(sPath) Const strProgramtitel=“[Programtitel]“ Dim objShortcut Dim objShell Set objShell= WScript.CreateObject(„Wscript.Shell“) Set fso = CreateObject(„Scripting.FileSystemObject“) strLPfad=objShell.SpecialFolders(„Desktop“) Set objShortcut=objShell.CreateShortcut(strLPfad & „\\“ & strProgramtitel & „.lnk“) objShortcut.TargetPath= sPath & „\\“ & sNewestFile objShortcut.Description= „[Programmbeschreibung]“ objShortcut.Save ‚Funktion NewestFile Function GetNewestFile(ByVal sPath) sNewestFile = Null ‚ … Ordner nach neuester Datei durchsuchen und Verkn\u00fcpfung auf dem Desktop aktualisieren<\/span> weiterlesen<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[4,5],"tags":[],"_links":{"self":[{"href":"http:\/\/project40.de\/index.php?rest_route=\/wp\/v2\/posts\/160"}],"collection":[{"href":"http:\/\/project40.de\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/project40.de\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/project40.de\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/project40.de\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=160"}],"version-history":[{"count":5,"href":"http:\/\/project40.de\/index.php?rest_route=\/wp\/v2\/posts\/160\/revisions"}],"predecessor-version":[{"id":165,"href":"http:\/\/project40.de\/index.php?rest_route=\/wp\/v2\/posts\/160\/revisions\/165"}],"wp:attachment":[{"href":"http:\/\/project40.de\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=160"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/project40.de\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=160"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/project40.de\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=160"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}