'To avoid the "Do you want to save your changes?" dialog box, the script
'sets the Saved property to TRUE before terminating Word.
objDoc.Saved = TRUE
objWord.Quit
=========================
Do not look into FSO because they can only read the binary format of word.
Use COM to access method of word
Very intrigued with the code, however, when running it on a Win2000 system, (logged on user has Admin permissions), the program runs but dies apparently when it hits a "system directory" Error message is:
d:\_script\bertha_index.vbs(58,2) Microsoft VBScript runtime error: Permission denied
The last directory displayed was "System Volume Information" which is a "system directory".
Any suggestions on how to bypass system or hidden directories to preclude this error?
Again, enjoyed the scripts concept, and hope to hear from you in the near future.
It's failing because that folder is only accessible to the SYSTEM user by default. Modify the security settings so that the Administrator has full access rights to the folder, and after applying them, you'll be able to go into that directory as well. This particular issue has caused me a few headaches.
Searchinf for a particular extension using VBscript
Gnanavel
9 Oct '00 - 20:42
Hi
I have a question
How can I do a filesearch using VBScript
say for example if I give c:\test\*.txt
as input it should list all the .txt file
under test directory.
Can anyone help me?
Regards
Gnanave
Not sure if this might be a supplement to help you, worth a shot. Check out MS (HOWTO: Search Directories to Find or List Files)
I used some of the sample code from this page and tweaked it to build a tool to retrieve all files within a directory (& subs) into an Access database... it was VERY helpful. As it searches (and stores if you like) the files, you can split the extension to retieve only those files. You can also use this to exclude file-types within your search. The code is VB, but i used in Access just to make my life easier to store into a Database. Email me & i'll send you the tool, if you like (Access 97). Good luck.
I like it, it is a nice introduction to the use of FileSystemObject with VBScript.
I started playing with the code, here is a small patch:
dim sf, fileColl, line
for each sf in foldcol
spacer = spacer + space(3) + "|"
'wscript.echo spacer + "-- " + sf.name
' If you wanted to show the number of bytes, use these lines instead of above
set fileColl = sf.Files
line = spacer + "-- " + sf.name
if fileColl.Count = 0 then
wscript.echo line + " (empty)"
else
wscript.echo line + _
" (uses " + cstr(FormatNumber(sf.Size, 0)) + " bytes with " + _
cstr(FormatNumber(fileColl.Count, 0)) + " files)"
end if
I believe you should have no problem locating my patch in the source...
Notice the use of '_' to continue a line (I don't know if it well documented), and the use of the Count property to have the number of elements in a collection (I couldn't locate this property in the MSDN doc!).
Of course, you can use the fileColl to list the files or do something on them.
Another trick for newbies like me:
you can run the script by double-clicking on it, of course, but if you want to run it from a command line, you can either type:
start vbscript_prog.vbs (with same result as double-clicking, ie. having each echo in a message box)
wscript vbscript_prog.vbs (idem)
or
cscript /nologo vbscript_prog.vbs (with output on the standard output, so can be redirected to a file)
Submit an article or tip
Post your Blog
News 
Suggestion 
Bug 
Joke 
Rant 
Admin 
