I am receiving e mails each week which include a excel 97 spreadsheet. I then
open the spreadsheet and use it within excel.

However on occassions the file name changes from say "fredbloggs" to
"Fredbloggs1" and this seems to be because there is already a file ( albeit
not open ) named "frebloggs" in the temp folder from the last time i used it.

Is there a way to stop this number being added to the name or a way of
deleting the .xls files in the temp folder automatically when windows starts
?

Whatever the solution I need to keep it simple as others will be carrying
out this task who have very little pc knowledge. Its working on Windows NT.

And just in case it matters the reason i dont want the file name to change
is that there is a macro which chooses the spreadsheet by name and this fails
if the name is changed.

I hope this makes sense, any help would be very much appreciated

Darren

I think this isn't an excel question--it's more about what your email program
does.

Personally, I'd put a VBS script on a network drive and put shortcuts to that
VBS script on everyone's desktop.

This VBS script would clean the Temp folder (much easier than doing it
manually).

This is the one I use. It was written by Michael Harris:
http://groups.google.com/groups?thre...%40tkmsftngp02

If you're not on a network, you could put the script in a local folder and still
put a shortcut to the script on the desktop.

(I don't like to put the real file on the desktop--it's too easily deleted.)

darrenrwood wrote:

I am receiving e mails each week which include a excel 97 spreadsheet. I then
open the spreadsheet and use it within excel.

However on occassions the file name changes from say "fredbloggs" to
"Fredbloggs1" and this seems to be because there is already a file ( albeit
not open ) named "frebloggs" in the temp folder from the last time i used it.

Is there a way to stop this number being added to the name or a way of
deleting the .xls files in the temp folder automatically when windows starts
?

Whatever the solution I need to keep it simple as others will be carrying
out this task who have very little pc knowledge. Its working on Windows NT.

And just in case it matters the reason i dont want the file name to change
is that there is a macro which chooses the spreadsheet by name and this fails
if the name is changed.

I hope this makes sense, any help would be very much appreciated

Darren

--

Dave Peterson

You could even get the script to run automatically by making it a Scheduled
Task

"Dave Peterson" wrote:

I think this isn't an excel question--it's more about what your email program
does.

Personally, I'd put a VBS script on a network drive and put shortcuts to that
VBS script on everyone's desktop.

This VBS script would clean the Temp folder (much easier than doing it
manually).

This is the one I use. It was written by Michael Harris:
http://groups.google.com/groups?thre...%40tkmsftngp02

If you're not on a network, you could put the script in a local folder and still
put a shortcut to the script on the desktop.

(I don't like to put the real file on the desktop--it's too easily deleted.)

darrenrwood wrote:

I am receiving e mails each week which include a excel 97 spreadsheet. I then
open the spreadsheet and use it within excel.

However on occassions the file name changes from say "fredbloggs" to
"Fredbloggs1" and this seems to be because there is already a file ( albeit
not open ) named "frebloggs" in the temp folder from the last time i used it.

Is there a way to stop this number being added to the name or a way of
deleting the .xls files in the temp folder automatically when windows starts
?

Whatever the solution I need to keep it simple as others will be carrying
out this task who have very little pc knowledge. Its working on Windows NT.

And just in case it matters the reason i dont want the file name to change
is that there is a macro which chooses the spreadsheet by name and this fails
if the name is changed.

I hope this makes sense, any help would be very much appreciated

Darren

--

Dave Peterson

I have typed the vbs you refered to into wordpad and saved it to my desktop
for now. I am not on a network.

I double clicked on the icon and get the error " There is no file extension
in "c:\winnt\profiles\wooddk\desltop\*""

I am assuming as i have saved it straight into desktop that this error
message is not refering to the actual opening of the script but something the
script is trying to do? Do i need to amend the script to refer to where my
tem folder is ? As far as i can see it is just in c drive .

I am not clued up enough to know what may be causing the error

Thanks

"Dave Peterson" wrote:

I think this isn't an excel question--it's more about what your email program
does.

Personally, I'd put a VBS script on a network drive and put shortcuts to that
VBS script on everyone's desktop.

This VBS script would clean the Temp folder (much easier than doing it
manually).

This is the one I use. It was written by Michael Harris:
http://groups.google.com/groups?thre...%40tkmsftngp02

If you're not on a network, you could put the script in a local folder and still
put a shortcut to the script on the desktop.

(I don't like to put the real file on the desktop--it's too easily deleted.)

darrenrwood wrote:

I am receiving e mails each week which include a excel 97 spreadsheet. I then
open the spreadsheet and use it within excel.

However on occassions the file name changes from say "fredbloggs" to
"Fredbloggs1" and this seems to be because there is already a file ( albeit
not open ) named "frebloggs" in the temp folder from the last time i used it.

Is there a way to stop this number being added to the name or a way of
deleting the .xls files in the temp folder automatically when windows starts
?

Whatever the solution I need to keep it simple as others will be carrying
out this task who have very little pc knowledge. Its working on Windows NT.

And just in case it matters the reason i dont want the file name to change
is that there is a macro which chooses the spreadsheet by name and this fails
if the name is changed.

I hope this makes sense, any help would be very much appreciated

Darren

--

Dave Peterson

Sometimes google inserts extra characters.

Here's a copy of the script that I use:

'===DeleteTempFiles.vbs===
'http://groups.google.com/groups?threadm=%23bXVsIHnAHA.920%40tkmsftngp02


Const TemporaryFolder = 2 'for GetSpecialFolder
const strTitle = "DeleteTempFiles.vbs"

set fso = createobject("scripting.filesystemobject")

'init an empty array (ubound will be -1)...
'
'we use an array and store the file objects.
'this avoids any problems with altering the
'contents of the Files collections while they
'are being iterated.
'
arFiles = array()
count = -1

'get the path to the temp folder
'
tempdir = fso.GetSpecialFolder(TemporaryFolder)

'load the (global scope) arFiles
'SelectFiles calls itself recursively
'for SubFolders
'
SelectFiles tempdir
msgbox count+1 & " files found",0,strtitle
'now do the actual deletes. the error trap
'is in case any are in-use...
'
dcount = 0
for each file in arFiles
on error resume next
file.delete true
if err.number = 0 then dcount = dcount + 1
err.clear
on error goto 0
next

'now go back and delete empty folders
'below the temp folder

DeleteEmptyFolders tempdir,false

'comment out for "silent" operation,
'or add support for a "/s" command-line switch.
'
msgbox count+1 & " files found, " & dcount & " deleted.", 0,strtitle

sub SelectFiles(sPath)

'select files to delete and add to array...
'
set folder = fso.getfolder(sPath)
set files = folder.files

for each file in files
count = count + 1
redim preserve arFiles(count)
set arFiles(count) = file
next

for each fldr in folder.subfolders
SelectFiles fldr.path
next

end sub

sub DeleteEmptyFolders(sPath,bDeleteThisFolder)

set folder = fso.getfolder(sPath)

'recurse first...
'
for each fldr in folder.subfolders
DeleteEmptyFolders fldr.path,true
next

'if no files or folders then delete...
'
'bDeleteThisFolder is false for
'the root of the subtree, and true for
'sub-folders (unless you want to delete
'the entire subtree if it is empty).
'
if (folder.files.count = 0) and _
(folder.subfolders.count) = 0 and _
bDeleteThisFolder then
folder.delete
exit sub
end if

end sub
'
'===end-script===


darrenrwood wrote:

I have typed the vbs you refered to into wordpad and saved it to my desktop
for now. I am not on a network.

I double clicked on the icon and get the error " There is no file extension
in "c:\winnt\profiles\wooddk\desltop\*""

I am assuming as i have saved it straight into desktop that this error
message is not refering to the actual opening of the script but something the
script is trying to do? Do i need to amend the script to refer to where my
tem folder is ? As far as i can see it is just in c drive .

I am not clued up enough to know what may be causing the error

Thanks

"Dave Peterson" wrote:

I think this isn't an excel question--it's more about what your email program
does.

Personally, I'd put a VBS script on a network drive and put shortcuts to that
VBS script on everyone's desktop.

This VBS script would clean the Temp folder (much easier than doing it
manually).

This is the one I use. It was written by Michael Harris:
http://groups.google.com/groups?thre...%40tkmsftngp02

If you're not on a network, you could put the script in a local folder and still
put a shortcut to the script on the desktop.

(I don't like to put the real file on the desktop--it's too easily deleted.)

darrenrwood wrote:

I am receiving e mails each week which include a excel 97 spreadsheet. I then
open the spreadsheet and use it within excel.

However on occassions the file name changes from say "fredbloggs" to
"Fredbloggs1" and this seems to be because there is already a file ( albeit
not open ) named "frebloggs" in the temp folder from the last time i used it.

Is there a way to stop this number being added to the name or a way of
deleting the .xls files in the temp folder automatically when windows starts
?

Whatever the solution I need to keep it simple as others will be carrying
out this task who have very little pc knowledge. Its working on Windows NT.

And just in case it matters the reason i dont want the file name to change
is that there is a macro which chooses the spreadsheet by name and this fails
if the name is changed.

I hope this makes sense, any help would be very much appreciated

Darren

--

Dave Peterson


--

Dave Peterson

Or just add the shortcut to the windows start|Programs|startup group.

bigwheel wrote:

You could even get the script to run automatically by making it a Scheduled
Task

"Dave Peterson" wrote:

I think this isn't an excel question--it's more about what your email program
does.

Personally, I'd put a VBS script on a network drive and put shortcuts to that
VBS script on everyone's desktop.

This VBS script would clean the Temp folder (much easier than doing it
manually).

This is the one I use. It was written by Michael Harris:
http://groups.google.com/groups?thre...%40tkmsftngp02

If you're not on a network, you could put the script in a local folder and still
put a shortcut to the script on the desktop.

(I don't like to put the real file on the desktop--it's too easily deleted.)

darrenrwood wrote:

I am receiving e mails each week which include a excel 97 spreadsheet. I then
open the spreadsheet and use it within excel.

However on occassions the file name changes from say "fredbloggs" to
"Fredbloggs1" and this seems to be because there is already a file ( albeit
not open ) named "frebloggs" in the temp folder from the last time i used it.

Is there a way to stop this number being added to the name or a way of
deleting the .xls files in the temp folder automatically when windows starts
?

Whatever the solution I need to keep it simple as others will be carrying
out this task who have very little pc knowledge. Its working on Windows NT.

And just in case it matters the reason i dont want the file name to change
is that there is a macro which chooses the spreadsheet by name and this fails
if the name is changed.

I hope this makes sense, any help would be very much appreciated

Darren

--

Dave Peterson


--

Dave Peterson

I have amended the VBS as per your last message but I still get the error
message regarding no file extension as mentioned earlier.

I think this is all a little beyond me, so I might give up now !

Thanks for your help though

Darren

"Dave Peterson" wrote:

Sometimes google inserts extra characters.

Here's a copy of the script that I use:

'===DeleteTempFiles.vbs===
'http://groups.google.com/groups?threadm=%23bXVsIHnAHA.920%40tkmsftngp02


Const TemporaryFolder = 2 'for GetSpecialFolder
const strTitle = "DeleteTempFiles.vbs"

set fso = createobject("scripting.filesystemobject")

'init an empty array (ubound will be -1)...
'
'we use an array and store the file objects.
'this avoids any problems with altering the
'contents of the Files collections while they
'are being iterated.
'
arFiles = array()
count = -1

'get the path to the temp folder
'
tempdir = fso.GetSpecialFolder(TemporaryFolder)

'load the (global scope) arFiles
'SelectFiles calls itself recursively
'for SubFolders
'
SelectFiles tempdir
msgbox count+1 & " files found",0,strtitle
'now do the actual deletes. the error trap
'is in case any are in-use...
'
dcount = 0
for each file in arFiles
on error resume next
file.delete true
if err.number = 0 then dcount = dcount + 1
err.clear
on error goto 0
next

'now go back and delete empty folders
'below the temp folder

DeleteEmptyFolders tempdir,false

'comment out for "silent" operation,
'or add support for a "/s" command-line switch.
'
msgbox count+1 & " files found, " & dcount & " deleted.", 0,strtitle

sub SelectFiles(sPath)

'select files to delete and add to array...
'
set folder = fso.getfolder(sPath)
set files = folder.files

for each file in files
count = count + 1
redim preserve arFiles(count)
set arFiles(count) = file
next

for each fldr in folder.subfolders
SelectFiles fldr.path
next

end sub

sub DeleteEmptyFolders(sPath,bDeleteThisFolder)

set folder = fso.getfolder(sPath)

'recurse first...
'
for each fldr in folder.subfolders
DeleteEmptyFolders fldr.path,true
next

'if no files or folders then delete...
'
'bDeleteThisFolder is false for
'the root of the subtree, and true for
'sub-folders (unless you want to delete
'the entire subtree if it is empty).
'
if (folder.files.count = 0) and _
(folder.subfolders.count) = 0 and _
bDeleteThisFolder then
folder.delete
exit sub
end if

end sub
'
'===end-script===


darrenrwood wrote:

I have typed the vbs you refered to into wordpad and saved it to my desktop
for now. I am not on a network.

I double clicked on the icon and get the error " There is no file extension
in "c:\winnt\profiles\wooddk\desltop\*""

I am assuming as i have saved it straight into desktop that this error
message is not refering to the actual opening of the script but something the
script is trying to do? Do i need to amend the script to refer to where my
tem folder is ? As far as i can see it is just in c drive .

I am not clued up enough to know what may be causing the error

Thanks

"Dave Peterson" wrote:

I think this isn't an excel question--it's more about what your email program
does.

Personally, I'd put a VBS script on a network drive and put shortcuts to that
VBS script on everyone's desktop.

This VBS script would clean the Temp folder (much easier than doing it
manually).

This is the one I use. It was written by Michael Harris:
http://groups.google.com/groups?thre...%40tkmsftngp02

If you're not on a network, you could put the script in a local folder and still
put a shortcut to the script on the desktop.

(I don't like to put the real file on the desktop--it's too easily deleted.)

darrenrwood wrote:

I am receiving e mails each week which include a excel 97 spreadsheet. I then
open the spreadsheet and use it within excel.

However on occassions the file name changes from say "fredbloggs" to
"Fredbloggs1" and this seems to be because there is already a file ( albeit
not open ) named "frebloggs" in the temp folder from the last time i used it.

Is there a way to stop this number being added to the name or a way of
deleting the .xls files in the temp folder automatically when windows starts
?

Whatever the solution I need to keep it simple as others will be carrying
out this task who have very little pc knowledge. Its working on Windows NT.

And just in case it matters the reason i dont want the file name to change
is that there is a macro which chooses the spreadsheet by name and this fails
if the name is changed.

I hope this makes sense, any help would be very much appreciated

Darren

--

Dave Peterson


--

Dave Peterson

When you run the script, do you get an error message that indicates the line the
error occurred on.

(I've used this for years and never seen an error message at all.)

darrenrwood wrote:

I have amended the VBS as per your last message but I still get the error
message regarding no file extension as mentioned earlier.

I think this is all a little beyond me, so I might give up now !

Thanks for your help though

Darren

"Dave Peterson" wrote:

Sometimes google inserts extra characters.

Here's a copy of the script that I use:

'===DeleteTempFiles.vbs===
'http://groups.google.com/groups?threadm=%23bXVsIHnAHA.920%40tkmsftngp02


Const TemporaryFolder = 2 'for GetSpecialFolder
const strTitle = "DeleteTempFiles.vbs"

set fso = createobject("scripting.filesystemobject")

'init an empty array (ubound will be -1)...
'
'we use an array and store the file objects.
'this avoids any problems with altering the
'contents of the Files collections while they
'are being iterated.
'
arFiles = array()
count = -1

'get the path to the temp folder
'
tempdir = fso.GetSpecialFolder(TemporaryFolder)

'load the (global scope) arFiles
'SelectFiles calls itself recursively
'for SubFolders
'
SelectFiles tempdir
msgbox count+1 & " files found",0,strtitle
'now do the actual deletes. the error trap
'is in case any are in-use...
'
dcount = 0
for each file in arFiles
on error resume next
file.delete true
if err.number = 0 then dcount = dcount + 1
err.clear
on error goto 0
next

'now go back and delete empty folders
'below the temp folder

DeleteEmptyFolders tempdir,false

'comment out for "silent" operation,
'or add support for a "/s" command-line switch.
'
msgbox count+1 & " files found, " & dcount & " deleted.", 0,strtitle

sub SelectFiles(sPath)

'select files to delete and add to array...
'
set folder = fso.getfolder(sPath)
set files = folder.files

for each file in files
count = count + 1
redim preserve arFiles(count)
set arFiles(count) = file
next

for each fldr in folder.subfolders
SelectFiles fldr.path
next

end sub

sub DeleteEmptyFolders(sPath,bDeleteThisFolder)

set folder = fso.getfolder(sPath)

'recurse first...
'
for each fldr in folder.subfolders
DeleteEmptyFolders fldr.path,true
next

'if no files or folders then delete...
'
'bDeleteThisFolder is false for
'the root of the subtree, and true for
'sub-folders (unless you want to delete
'the entire subtree if it is empty).
'
if (folder.files.count = 0) and _
(folder.subfolders.count) = 0 and _
bDeleteThisFolder then
folder.delete
exit sub
end if

end sub
'
'===end-script===


darrenrwood wrote:

I have typed the vbs you refered to into wordpad and saved it to my desktop
for now. I am not on a network.

I double clicked on the icon and get the error " There is no file extension
in "c:\winnt\profiles\wooddk\desltop\*""

I am assuming as i have saved it straight into desktop that this error
message is not refering to the actual opening of the script but something the
script is trying to do? Do i need to amend the script to refer to where my
tem folder is ? As far as i can see it is just in c drive .

I am not clued up enough to know what may be causing the error

Thanks

"Dave Peterson" wrote:

I think this isn't an excel question--it's more about what your email program
does.

Personally, I'd put a VBS script on a network drive and put shortcuts to that
VBS script on everyone's desktop.

This VBS script would clean the Temp folder (much easier than doing it
manually).

This is the one I use. It was written by Michael Harris:
http://groups.google.com/groups?thre...%40tkmsftngp02

If you're not on a network, you could put the script in a local folder and still
put a shortcut to the script on the desktop.

(I don't like to put the real file on the desktop--it's too easily deleted.)

darrenrwood wrote:

I am receiving e mails each week which include a excel 97 spreadsheet. I then
open the spreadsheet and use it within excel.

However on occassions the file name changes from say "fredbloggs" to
"Fredbloggs1" and this seems to be because there is already a file ( albeit
not open ) named "frebloggs" in the temp folder from the last time i used it.

Is there a way to stop this number being added to the name or a way of
deleting the .xls files in the temp folder automatically when windows starts
?

Whatever the solution I need to keep it simple as others will be carrying
out this task who have very little pc knowledge. Its working on Windows NT.

And just in case it matters the reason i dont want the file name to change
is that there is a macro which chooses the spreadsheet by name and this fails
if the name is changed.

I hope this makes sense, any help would be very much appreciated

Darren

--

Dave Peterson


--

Dave Peterson


--

Dave Peterson

No. The error box is entitled 'Windows Script Host'

and the error reads'There is no file extension in"xxxxxxxxxxx"' and the x's
are replaced by the path of where the script is saved so it may read
"C:\data\word\*" is i put the file into the word folder or it reads
"C\winnt\profiles\wooddk\desktop\*" when it is saved directly on to desktop.

nothing happens on screed when you double click the icon just the error
message occurs.

I suppose my only comfort is that if you cant solve the problem I never had
a chance !!

Thanks again

"Dave Peterson" wrote:

When you run the script, do you get an error message that indicates the line the
error occurred on.

(I've used this for years and never seen an error message at all.)

darrenrwood wrote:

I have amended the VBS as per your last message but I still get the error
message regarding no file extension as mentioned earlier.

I think this is all a little beyond me, so I might give up now !

Thanks for your help though

Darren

"Dave Peterson" wrote:

Sometimes google inserts extra characters.

Here's a copy of the script that I use:

'===DeleteTempFiles.vbs===
'http://groups.google.com/groups?threadm=%23bXVsIHnAHA.920%40tkmsftngp02


Const TemporaryFolder = 2 'for GetSpecialFolder
const strTitle = "DeleteTempFiles.vbs"

set fso = createobject("scripting.filesystemobject")

'init an empty array (ubound will be -1)...
'
'we use an array and store the file objects.
'this avoids any problems with altering the
'contents of the Files collections while they
'are being iterated.
'
arFiles = array()
count = -1

'get the path to the temp folder
'
tempdir = fso.GetSpecialFolder(TemporaryFolder)

'load the (global scope) arFiles
'SelectFiles calls itself recursively
'for SubFolders
'
SelectFiles tempdir
msgbox count+1 & " files found",0,strtitle
'now do the actual deletes. the error trap
'is in case any are in-use...
'
dcount = 0
for each file in arFiles
on error resume next
file.delete true
if err.number = 0 then dcount = dcount + 1
err.clear
on error goto 0
next

'now go back and delete empty folders
'below the temp folder

DeleteEmptyFolders tempdir,false

'comment out for "silent" operation,
'or add support for a "/s" command-line switch.
'
msgbox count+1 & " files found, " & dcount & " deleted.", 0,strtitle

sub SelectFiles(sPath)

'select files to delete and add to array...
'
set folder = fso.getfolder(sPath)
set files = folder.files

for each file in files
count = count + 1
redim preserve arFiles(count)
set arFiles(count) = file
next

for each fldr in folder.subfolders
SelectFiles fldr.path
next

end sub

sub DeleteEmptyFolders(sPath,bDeleteThisFolder)

set folder = fso.getfolder(sPath)

'recurse first...
'
for each fldr in folder.subfolders
DeleteEmptyFolders fldr.path,true
next

'if no files or folders then delete...
'
'bDeleteThisFolder is false for
'the root of the subtree, and true for
'sub-folders (unless you want to delete
'the entire subtree if it is empty).
'
if (folder.files.count = 0) and _
(folder.subfolders.count) = 0 and _
bDeleteThisFolder then
folder.delete
exit sub
end if

end sub
'
'===end-script===


darrenrwood wrote:

I have typed the vbs you refered to into wordpad and saved it to my desktop
for now. I am not on a network.

I double clicked on the icon and get the error " There is no file extension
in "c:\winnt\profiles\wooddk\desltop\*""

I am assuming as i have saved it straight into desktop that this error
message is not refering to the actual opening of the script but something the
script is trying to do? Do i need to amend the script to refer to where my
tem folder is ? As far as i can see it is just in c drive .

I am not clued up enough to know what may be causing the error

Thanks

"Dave Peterson" wrote:

I think this isn't an excel question--it's more about what your email program
does.

Personally, I'd put a VBS script on a network drive and put shortcuts to that
VBS script on everyone's desktop.

This VBS script would clean the Temp folder (much easier than doing it
manually).

This is the one I use. It was written by Michael Harris:
http://groups.google.com/groups?thre...%40tkmsftngp02

If you're not on a network, you could put the script in a local folder and still
put a shortcut to the script on the desktop.

(I don't like to put the real file on the desktop--it's too easily deleted.)

darrenrwood wrote:

I am receiving e mails each week which include a excel 97 spreadsheet. I then
open the spreadsheet and use it within excel.

However on occassions the file name changes from say "fredbloggs" to
"Fredbloggs1" and this seems to be because there is already a file ( albeit
not open ) named "frebloggs" in the temp folder from the last time i used it.

Is there a way to stop this number being added to the name or a way of
deleting the .xls files in the temp folder automatically when windows starts
?

Whatever the solution I need to keep it simple as others will be carrying
out this task who have very little pc knowledge. Its working on Windows NT.

And just in case it matters the reason i dont want the file name to change
is that there is a macro which chooses the spreadsheet by name and this fails
if the name is changed.

I hope this makes sense, any help would be very much appreciated

Darren

--

Dave Peterson


--

Dave Peterson


--

Dave Peterson

Ok, it sounds like it's not the script that has the problem. It sounds like
it's the shortcut to the script. (well, I think it sounds kind of like that.)

First, you did save the script as plain text--using notepad--not Word. (I'm
afraid that you could have saved it as a .doc file).

Anyway, copy that code into notepad.
file|saveAs
and give it a nice name in that folder:
c:\data\scripts\cleantemp.vbs

(I changed the folder name here--just to keep the script away from your word
documents.)

Close notepad.

Use windows explorer to go to the C:\data\scripts folder.

Find that cleantemp.vbs file and double click on it.

If that worked (woohoo!), then you can create a shortcut on your desktop by:

Rightclick on that cleantemp.vbs
send to
Desktop (as shortcut)

Flying-windows-d
or flying-windows-m
to get to the desktop quickly.

Find that new shortcut and doubleclick on it.

(Find the old one and dump it.)

Keeping the fingers crossed!



darrenrwood wrote:

No. The error box is entitled 'Windows Script Host'

and the error reads'There is no file extension in"xxxxxxxxxxx"' and the x's
are replaced by the path of where the script is saved so it may read
"C:\data\word\*" is i put the file into the word folder or it reads
"C\winnt\profiles\wooddk\desktop\*" when it is saved directly on to desktop.

nothing happens on screed when you double click the icon just the error
message occurs.

I suppose my only comfort is that if you cant solve the problem I never had
a chance !!

Thanks again

"Dave Peterson" wrote:

When you run the script, do you get an error message that indicates the line the
error occurred on.

(I've used this for years and never seen an error message at all.)

darrenrwood wrote:

I have amended the VBS as per your last message but I still get the error
message regarding no file extension as mentioned earlier.

I think this is all a little beyond me, so I might give up now !

Thanks for your help though

Darren

"Dave Peterson" wrote:

Sometimes google inserts extra characters.

Here's a copy of the script that I use:

'===DeleteTempFiles.vbs===
'http://groups.google.com/groups?threadm=%23bXVsIHnAHA.920%40tkmsftngp02


Const TemporaryFolder = 2 'for GetSpecialFolder
const strTitle = "DeleteTempFiles.vbs"

set fso = createobject("scripting.filesystemobject")

'init an empty array (ubound will be -1)...
'
'we use an array and store the file objects.
'this avoids any problems with altering the
'contents of the Files collections while they
'are being iterated.
'
arFiles = array()
count = -1

'get the path to the temp folder
'
tempdir = fso.GetSpecialFolder(TemporaryFolder)

'load the (global scope) arFiles
'SelectFiles calls itself recursively
'for SubFolders
'
SelectFiles tempdir
msgbox count+1 & " files found",0,strtitle
'now do the actual deletes. the error trap
'is in case any are in-use...
'
dcount = 0
for each file in arFiles
on error resume next
file.delete true
if err.number = 0 then dcount = dcount + 1
err.clear
on error goto 0
next

'now go back and delete empty folders
'below the temp folder

DeleteEmptyFolders tempdir,false

'comment out for "silent" operation,
'or add support for a "/s" command-line switch.
'
msgbox count+1 & " files found, " & dcount & " deleted.", 0,strtitle

sub SelectFiles(sPath)

'select files to delete and add to array...
'
set folder = fso.getfolder(sPath)
set files = folder.files

for each file in files
count = count + 1
redim preserve arFiles(count)
set arFiles(count) = file
next

for each fldr in folder.subfolders
SelectFiles fldr.path
next

end sub

sub DeleteEmptyFolders(sPath,bDeleteThisFolder)

set folder = fso.getfolder(sPath)

'recurse first...
'
for each fldr in folder.subfolders
DeleteEmptyFolders fldr.path,true
next

'if no files or folders then delete...
'
'bDeleteThisFolder is false for
'the root of the subtree, and true for
'sub-folders (unless you want to delete
'the entire subtree if it is empty).
'
if (folder.files.count = 0) and _
(folder.subfolders.count) = 0 and _
bDeleteThisFolder then
folder.delete
exit sub
end if

end sub
'
'===end-script===


darrenrwood wrote:

I have typed the vbs you refered to into wordpad and saved it to my desktop
for now. I am not on a network.

I double clicked on the icon and get the error " There is no file extension
in "c:\winnt\profiles\wooddk\desltop\*""

I am assuming as i have saved it straight into desktop that this error
message is not refering to the actual opening of the script but something the
script is trying to do? Do i need to amend the script to refer to where my
tem folder is ? As far as i can see it is just in c drive .

I am not clued up enough to know what may be causing the error

Thanks

"Dave Peterson" wrote:

I think this isn't an excel question--it's more about what your email program
does.

Personally, I'd put a VBS script on a network drive and put shortcuts to that
VBS script on everyone's desktop.

This VBS script would clean the Temp folder (much easier than doing it
manually).

This is the one I use. It was written by Michael Harris:
http://groups.google.com/groups?thre...%40tkmsftngp02

If you're not on a network, you could put the script in a local folder and still
put a shortcut to the script on the desktop.

(I don't like to put the real file on the desktop--it's too easily deleted.)

darrenrwood wrote:

I am receiving e mails each week which include a excel 97 spreadsheet. I then
open the spreadsheet and use it within excel.

However on occassions the file name changes from say "fredbloggs" to
"Fredbloggs1" and this seems to be because there is already a file ( albeit
not open ) named "frebloggs" in the temp folder from the last time i used it.

Is there a way to stop this number being added to the name or a way of
deleting the .xls files in the temp folder automatically when windows starts
?

Whatever the solution I need to keep it simple as others will be carrying
out this task who have very little pc knowledge. Its working on Windows NT.

And just in case it matters the reason i dont want the file name to change
is that there is a macro which chooses the spreadsheet by name and this fails
if the name is changed.

I hope this makes sense, any help would be very much appreciated

Darren

--

Dave Peterson


--

Dave Peterson


--

Dave Peterson


--

Dave Peterson

Believe me, everything was crossed !! but it didnt work.

I am using my laptop for this, so i tried it on my desktop and that did work
?!

Could it be that my laptop does not run vbs ? it is a work laptop and has
been 'locked', maybe they have prevented this type of function working.

Darren

"Dave Peterson" wrote:

Ok, it sounds like it's not the script that has the problem. It sounds like
it's the shortcut to the script. (well, I think it sounds kind of like that.)

First, you did save the script as plain text--using notepad--not Word. (I'm
afraid that you could have saved it as a .doc file).

Anyway, copy that code into notepad.
file|saveAs
and give it a nice name in that folder:
c:\data\scripts\cleantemp.vbs

(I changed the folder name here--just to keep the script away from your word
documents.)

Close notepad.

Use windows explorer to go to the C:\data\scripts folder.

Find that cleantemp.vbs file and double click on it.

If that worked (woohoo!), then you can create a shortcut on your desktop by:

Rightclick on that cleantemp.vbs
send to
Desktop (as shortcut)

Flying-windows-d
or flying-windows-m
to get to the desktop quickly.

Find that new shortcut and doubleclick on it.

(Find the old one and dump it.)

Keeping the fingers crossed!



darrenrwood wrote:

No. The error box is entitled 'Windows Script Host'

and the error reads'There is no file extension in"xxxxxxxxxxx"' and the x's
are replaced by the path of where the script is saved so it may read
"C:\data\word\*" is i put the file into the word folder or it reads
"C\winnt\profiles\wooddk\desktop\*" when it is saved directly on to desktop.

nothing happens on screed when you double click the icon just the error
message occurs.

I suppose my only comfort is that if you cant solve the problem I never had
a chance !!

Thanks again

"Dave Peterson" wrote:

When you run the script, do you get an error message that indicates the line the
error occurred on.

(I've used this for years and never seen an error message at all.)

darrenrwood wrote:

I have amended the VBS as per your last message but I still get the error
message regarding no file extension as mentioned earlier.

I think this is all a little beyond me, so I might give up now !

Thanks for your help though

Darren

"Dave Peterson" wrote:

Sometimes google inserts extra characters.

Here's a copy of the script that I use:

'===DeleteTempFiles.vbs===
'http://groups.google.com/groups?threadm=%23bXVsIHnAHA.920%40tkmsftngp02


Const TemporaryFolder = 2 'for GetSpecialFolder
const strTitle = "DeleteTempFiles.vbs"

set fso = createobject("scripting.filesystemobject")

'init an empty array (ubound will be -1)...
'
'we use an array and store the file objects.
'this avoids any problems with altering the
'contents of the Files collections while they
'are being iterated.
'
arFiles = array()
count = -1

'get the path to the temp folder
'
tempdir = fso.GetSpecialFolder(TemporaryFolder)

'load the (global scope) arFiles
'SelectFiles calls itself recursively
'for SubFolders
'
SelectFiles tempdir
msgbox count+1 & " files found",0,strtitle
'now do the actual deletes. the error trap
'is in case any are in-use...
'
dcount = 0
for each file in arFiles
on error resume next
file.delete true
if err.number = 0 then dcount = dcount + 1
err.clear
on error goto 0
next

'now go back and delete empty folders
'below the temp folder

DeleteEmptyFolders tempdir,false

'comment out for "silent" operation,
'or add support for a "/s" command-line switch.
'
msgbox count+1 & " files found, " & dcount & " deleted.", 0,strtitle

sub SelectFiles(sPath)

'select files to delete and add to array...
'
set folder = fso.getfolder(sPath)
set files = folder.files

for each file in files
count = count + 1
redim preserve arFiles(count)
set arFiles(count) = file
next

for each fldr in folder.subfolders
SelectFiles fldr.path
next

end sub

sub DeleteEmptyFolders(sPath,bDeleteThisFolder)

set folder = fso.getfolder(sPath)

'recurse first...
'
for each fldr in folder.subfolders
DeleteEmptyFolders fldr.path,true
next

'if no files or folders then delete...
'
'bDeleteThisFolder is false for
'the root of the subtree, and true for
'sub-folders (unless you want to delete
'the entire subtree if it is empty).
'
if (folder.files.count = 0) and _
(folder.subfolders.count) = 0 and _
bDeleteThisFolder then
folder.delete
exit sub
end if

end sub
'
'===end-script===


darrenrwood wrote:

I have typed the vbs you refered to into wordpad and saved it to my desktop
for now. I am not on a network.

I double clicked on the icon and get the error " There is no file extension
in "c:\winnt\profiles\wooddk\desltop\*""

I am assuming as i have saved it straight into desktop that this error
message is not refering to the actual opening of the script but something the
script is trying to do? Do i need to amend the script to refer to where my
tem folder is ? As far as i can see it is just in c drive .

I am not clued up enough to know what may be causing the error

Thanks

"Dave Peterson" wrote:

I think this isn't an excel question--it's more about what your email program
does.

Personally, I'd put a VBS script on a network drive and put shortcuts to that
VBS script on everyone's desktop.

This VBS script would clean the Temp folder (much easier than doing it
manually).

This is the one I use. It was written by Michael Harris:
http://groups.google.com/groups?thre...%40tkmsftngp02

If you're not on a network, you could put the script in a local folder and still
put a shortcut to the script on the desktop.

(I don't like to put the real file on the desktop--it's too easily deleted.)

darrenrwood wrote:

I am receiving e mails each week which include a excel 97 spreadsheet. I then
open the spreadsheet and use it within excel.

However on occassions the file name changes from say "fredbloggs" to
"Fredbloggs1" and this seems to be because there is already a file ( albeit
not open ) named "frebloggs" in the temp folder from the last time i used it.

Is there a way to stop this number being added to the name or a way of
deleting the .xls files in the temp folder automatically when windows starts
?

Whatever the solution I need to keep it simple as others will be carrying
out this task who have very little pc knowledge. Its working on Windows NT.

And just in case it matters the reason i dont want the file name to change
is that there is a macro which chooses the spreadsheet by name and this fails
if the name is changed.

I hope this makes sense, any help would be very much appreciated

Darren

--

Dave Peterson


--

Dave Peterson


--

Dave Peterson


--

Dave Peterson

That is one possibility. Your IT folks could have disabled scripting on "their"
pcs.

Since you got it working on your desktop (actually yours or still the
company's???).

If it's the company's pc, then I don't quite understand why they would block it
on the laptops but not the desktops--maybe they changed their mind after the
laptops were deployed???

Either way, I'd ask them why and how can you work around it?

You could try this:

windows start button|run
%temp%
and click ok.

Then delete as much as you can.

Probably better to do this when you're not running any programs.

darrenrwood wrote:

Believe me, everything was crossed !! but it didnt work.

I am using my laptop for this, so i tried it on my desktop and that did work
?!

Could it be that my laptop does not run vbs ? it is a work laptop and has
been 'locked', maybe they have prevented this type of function working.

Darren

"Dave Peterson" wrote:

Ok, it sounds like it's not the script that has the problem. It sounds like
it's the shortcut to the script. (well, I think it sounds kind of like that.)

First, you did save the script as plain text--using notepad--not Word. (I'm
afraid that you could have saved it as a .doc file).

Anyway, copy that code into notepad.
file|saveAs
and give it a nice name in that folder:
c:\data\scripts\cleantemp.vbs

(I changed the folder name here--just to keep the script away from your word
documents.)

Close notepad.

Use windows explorer to go to the C:\data\scripts folder.

Find that cleantemp.vbs file and double click on it.

If that worked (woohoo!), then you can create a shortcut on your desktop by:

Rightclick on that cleantemp.vbs
send to
Desktop (as shortcut)

Flying-windows-d
or flying-windows-m
to get to the desktop quickly.

Find that new shortcut and doubleclick on it.

(Find the old one and dump it.)

Keeping the fingers crossed!



darrenrwood wrote:

No. The error box is entitled 'Windows Script Host'

and the error reads'There is no file extension in"xxxxxxxxxxx"' and the x's
are replaced by the path of where the script is saved so it may read
"C:\data\word\*" is i put the file into the word folder or it reads
"C\winnt\profiles\wooddk\desktop\*" when it is saved directly on to desktop.

nothing happens on screed when you double click the icon just the error
message occurs.

I suppose my only comfort is that if you cant solve the problem I never had
a chance !!

Thanks again

"Dave Peterson" wrote:

When you run the script, do you get an error message that indicates the line the
error occurred on.

(I've used this for years and never seen an error message at all.)

darrenrwood wrote:

I have amended the VBS as per your last message but I still get the error
message regarding no file extension as mentioned earlier.

I think this is all a little beyond me, so I might give up now !

Thanks for your help though

Darren

"Dave Peterson" wrote:

Sometimes google inserts extra characters.

Here's a copy of the script that I use:

'===DeleteTempFiles.vbs===
'http://groups.google.com/groups?threadm=%23bXVsIHnAHA.920%40tkmsftngp02


Const TemporaryFolder = 2 'for GetSpecialFolder
const strTitle = "DeleteTempFiles.vbs"

set fso = createobject("scripting.filesystemobject")

'init an empty array (ubound will be -1)...
'
'we use an array and store the file objects.
'this avoids any problems with altering the
'contents of the Files collections while they
'are being iterated.
'
arFiles = array()
count = -1

'get the path to the temp folder
'
tempdir = fso.GetSpecialFolder(TemporaryFolder)

'load the (global scope) arFiles
'SelectFiles calls itself recursively
'for SubFolders
'
SelectFiles tempdir
msgbox count+1 & " files found",0,strtitle
'now do the actual deletes. the error trap
'is in case any are in-use...
'
dcount = 0
for each file in arFiles
on error resume next
file.delete true
if err.number = 0 then dcount = dcount + 1
err.clear
on error goto 0
next

'now go back and delete empty folders
'below the temp folder

DeleteEmptyFolders tempdir,false

'comment out for "silent" operation,
'or add support for a "/s" command-line switch.
'
msgbox count+1 & " files found, " & dcount & " deleted.", 0,strtitle

sub SelectFiles(sPath)

'select files to delete and add to array...
'
set folder = fso.getfolder(sPath)
set files = folder.files

for each file in files
count = count + 1
redim preserve arFiles(count)
set arFiles(count) = file
next

for each fldr in folder.subfolders
SelectFiles fldr.path
next

end sub

sub DeleteEmptyFolders(sPath,bDeleteThisFolder)

set folder = fso.getfolder(sPath)

'recurse first...
'
for each fldr in folder.subfolders
DeleteEmptyFolders fldr.path,true
next

'if no files or folders then delete...
'
'bDeleteThisFolder is false for
'the root of the subtree, and true for
'sub-folders (unless you want to delete
'the entire subtree if it is empty).
'
if (folder.files.count = 0) and _
(folder.subfolders.count) = 0 and _
bDeleteThisFolder then
folder.delete
exit sub
end if

end sub
'
'===end-script===


darrenrwood wrote:

I have typed the vbs you refered to into wordpad and saved it to my desktop
for now. I am not on a network.

I double clicked on the icon and get the error " There is no file extension
in "c:\winnt\profiles\wooddk\desltop\*""

I am assuming as i have saved it straight into desktop that this error
message is not refering to the actual opening of the script but something the
script is trying to do? Do i need to amend the script to refer to where my
tem folder is ? As far as i can see it is just in c drive .

I am not clued up enough to know what may be causing the error

Thanks

"Dave Peterson" wrote:

I think this isn't an excel question--it's more about what your email program
does.

Personally, I'd put a VBS script on a network drive and put shortcuts to that
VBS script on everyone's desktop.

This VBS script would clean the Temp folder (much easier than doing it
manually).

This is the one I use. It was written by Michael Harris:
http://groups.google.com/groups?thre...%40tkmsftngp02

If you're not on a network, you could put the script in a local folder and still
put a shortcut to the script on the desktop.

(I don't like to put the real file on the desktop--it's too easily deleted.)

darrenrwood wrote:

I am receiving e mails each week which include a excel 97 spreadsheet. I then
open the spreadsheet and use it within excel.

However on occassions the file name changes from say "fredbloggs" to
"Fredbloggs1" and this seems to be because there is already a file ( albeit
not open ) named "frebloggs" in the temp folder from the last time i used it.

Is there a way to stop this number being added to the name or a way of
deleting the .xls files in the temp folder automatically when windows starts
?

Whatever the solution I need to keep it simple as others will be carrying
out this task who have very little pc knowledge. Its working on Windows NT.

And just in case it matters the reason i dont want the file name to change
is that there is a macro which chooses the spreadsheet by name and this fails
if the name is changed.

I hope this makes sense, any help would be very much appreciated

Darren

--

Dave Peterson


--

Dave Peterson


--

Dave Peterson


--

Dave Peterson


--

Dave Peterson