It's a small contribution, but something that I hope is usefull to someone. It's a vb script:
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Install\Favorites.txt", ForReading)
Set objShell = WScript.CreateObject("WScript.Shell")
Set colEnvironmentVariables = objShell.Environment("Volatile")
strQLFolder = "C:" & colEnvironmentVariables.Item("HOMEPATH") & "\Favorites"
WScript.Echo strQLFolder
WScript.Echo
Do While objFile.AtEndOfStream <> True
arrFAVRecord = split(objFile.Readline, ",")
Wscript.Echo "Folder: " & arrFAVRecord(0)
If objFSO.FolderExists(strQLFolder & "\" & arrFAVRecord(0)) Then
Wscript.Echo "Folder exists."
Else
Set objFolder = objFSO.CreateFolder(strQLFolder & "\" & arrFAVRecord(0))
Wscript.Echo "Folder does not exist. Creating..."
End If
Wscript.Echo "Title : " & arrFAVRecord(1)
Set objURLShortcut = objShell.CreateShortcut(strQLFolder & "\" & arrFAVRecord(0) & "\" & arrFAVRecord(1) & ".URL")
WScript.Echo "Link : " & objURLShortcut
' Wscript.Echo "URL : " & arrFAVRecord(2)
objURLShortcut.TargetPath = arrFAVRecord(2)
WScript.Echo "URL : " & objURLShortcut.TargetPath
WScript.Echo
objURLShortcut.Save
i = i + 1
Loop
WScript.Echo "Total Count: " & i
objFile.Close



Help

Back to top









