Re: Eliminate prompt
From: vegeddabowdit (vegeddabowdit_at_hotmail~cold_trail~.com)
Date: 02/19/04
- Next message: Magnus: "vbscript fails to start windows application"
- Previous message: Bob Barrows: "Re: replacing & in a URL querystring"
- Messages sorted by: [ date ] [ thread ]
Date: Wed, 18 Feb 2004 17:07:05 -0800
Hello again
Thanks for replying.
Wrote the first requests before I experienced trying to delete multiple
empty folders.
Didn't realize at the time how many extra steps the script adds with
multiple folder removal.
What I'm essentially looking for is a fast, completely stripped down
version.
1. Automatic search for empty folders on D:\ when script is launched
2. After scan is completed, if any empty folders are identified,
notepad display of all empty folders found & a prompt with the option to
delete all empty folders at once (not one at a time).
3. Answer "no", script ends, notepad closes.
4. Answer yes, all folders deleted, directly followed by the prompt
"Empty Folders removed. Do you want to rescan D:\". When answered in
the affirmative, D:\ scan is rerun. When answered in the negative,
script terminated.
Much appreciated if you could tell me how to properly pare it down.
Whenever you get the time.
Thanks again
~Jake
"theClown" <thelostskull@hotmail.com> wrote in message
news:37579069-8E98-4319-A373-5C5875D60A77@microsoft.com...
> Comment or delete the following code in your file:
>
> ***
> ThePrompt = "Previous copies of the report files " & vbCrLf &
> vbCrLf &_
> "EmptyFolders.txt" & vbCrLf &_
> "DeletedFolders.txt " & vbCrLf & vbCrLf &_
> "exist in " & CurDir & vbCrLf & vbCrLf &_
> "Is it OK to overwrite them "
>
> If (FileSystem.FileExists(RFile)) OR (FileSystem.FileExists(DFile))
> Then
> WhatToDo = MsgBox(ThePrompt, 36, "Empty Folder Tracker")
> If WhatToDo = vbNo Then
> Dummy = MsgBox("Empty Folder Tracker will now terminate and you
> can rename or move the report files. ", 64, "Empty Folder Tracker")
> WScript.Quit
> End If
> End If
> ***
>
> You can comment a line in VB Script by adding an apostrophe(') at the
beginning of each line. I would suggest you comment it rather than
delete.
- Next message: Magnus: "vbscript fails to start windows application"
- Previous message: Bob Barrows: "Re: replacing & in a URL querystring"
- Messages sorted by: [ date ] [ thread ]
Relevant Pages
|