Hello!
The script uses the ActiveX for Useraccounts which is only available in Windows
XP!
Even the workarround to open the File with the BrowseForFolder-Statement from
Shell fails...
If you have MS-Office installed, replace the BrowseForFile Function with this:
Function BrowseForFile(strPrompt, strRootPath)
Set oWord = CreateObject("Word.Application")
If oWord is Nothing Then
MsgBox "Your office isn't installed properly!"
exit function
end If
oWord.ChangeFileOpenDirectory(strRootPath)
oWord.FileDialog(1).Title = strPrompt
oWord.FileDialog(1).AllowMultiSelect = False
If oWord.FileDialog(1).Show = -1 Then
oWord.WindowState = 2
For Each objFile in oWord.FileDialog(1).SelectedItems
BrowseForFile = objFile
Next
End If
oWord.Quit
End Function
;-)
--
<http://forum.pspad.com/read.php?2,56586,56672>
PSPad freeware editor http://www.pspad.com
