Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete temp files
I need a code that will delete all files in a directory that are of a certain
type. We have an issue with one of our servers whereby the temp files that are created when an ".xls" file saves are not deleted when the file saves. They are named: "29D41410", "31138510", etc. and do not contain file extensions. Properties list the Type of file as "File". Our netword amins are stumped but until a solution is found, I would like to enter a code into the Workbook Before_Close event to loop through all files in the directory and delete these junk files. Can anyone help? Thanks, Sam |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete temp files
You say "of a certain type"... does that mean there are other files in the directory that you do not want to delete? If so, do they have file extensions on them or not? -- Rick (MVP - Excel) "Sam" wrote in message ... I need a code that will delete all files in a directory that are of a certain type. We have an issue with one of our servers whereby the temp files that are created when an ".xls" file saves are not deleted when the file saves. They are named: "29D41410", "31138510", etc. and do not contain file extensions. Properties list the Type of file as "File". Our netword amins are stumped but until a solution is found, I would like to enter a code into the Workbook Before_Close event to loop through all files in the directory and delete these junk files. Can anyone help? Thanks, Sam |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete temp files
The other files are the original Excel workbooks that are being saved. They
have the ".xls" extension. I want to loop through all files in the directory and only delete the Types "File" as explained in my original message. Thanks, Rick. Can this be done? "Rick Rothstein" wrote: You say "of a certain type"... does that mean there are other files in the directory that you do not want to delete? If so, do they have file extensions on them or not? -- Rick (MVP - Excel) "Sam" wrote in message ... I need a code that will delete all files in a directory that are of a certain type. We have an issue with one of our servers whereby the temp files that are created when an ".xls" file saves are not deleted when the file saves. They are named: "29D41410", "31138510", etc. and do not contain file extensions. Properties list the Type of file as "File". Our netword amins are stumped but until a solution is found, I would like to enter a code into the Workbook Before_Close event to loop through all files in the directory and delete these junk files. Can anyone help? Thanks, Sam |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete temp files
This subroutine will remove **ANY** file in the specified directory whose
filename (as returned by the Dir function) does *not* have a dot in it. Sub RemoveFilesWithNoExtensions(Directory As String) Dim FileName As String FileName = Dir(Directory & "\*") Do While Len(FileName) If InStr(FileName, ".") = 0 Then Kill Directory & "\" & FileName FileName = Dir Loop End Sub You would call it from your own function something like this... Sub TestIt() ' ' beginning code ' RemoveFilesWithNoExtensions "D:\Temp\TestFolder" ' ' ' End Sub Now, I would advise you to test the subroutine out on a copy of your directory to make sure it works the way you want before you use it on a directory containing real data... that is because the Kill statement that I am using permanently deletes any files it processed (it does NOT send them to the Recycle Bin). -- Rick (MVP - Excel) "Sam" wrote in message ... The other files are the original Excel workbooks that are being saved. They have the ".xls" extension. I want to loop through all files in the directory and only delete the Types "File" as explained in my original message. Thanks, Rick. Can this be done? "Rick Rothstein" wrote: You say "of a certain type"... does that mean there are other files in the directory that you do not want to delete? If so, do they have file extensions on them or not? -- Rick (MVP - Excel) "Sam" wrote in message ... I need a code that will delete all files in a directory that are of a certain type. We have an issue with one of our servers whereby the temp files that are created when an ".xls" file saves are not deleted when the file saves. They are named: "29D41410", "31138510", etc. and do not contain file extensions. Properties list the Type of file as "File". Our netword amins are stumped but until a solution is found, I would like to enter a code into the Workbook Before_Close event to loop through all files in the directory and delete these junk files. Can anyone help? Thanks, Sam |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete temp files
Thanks! I'll give it a try.
"Rick Rothstein" wrote: This subroutine will remove **ANY** file in the specified directory whose filename (as returned by the Dir function) does *not* have a dot in it. Sub RemoveFilesWithNoExtensions(Directory As String) Dim FileName As String FileName = Dir(Directory & "\*") Do While Len(FileName) If InStr(FileName, ".") = 0 Then Kill Directory & "\" & FileName FileName = Dir Loop End Sub You would call it from your own function something like this... Sub TestIt() ' ' beginning code ' RemoveFilesWithNoExtensions "D:\Temp\TestFolder" ' ' ' End Sub Now, I would advise you to test the subroutine out on a copy of your directory to make sure it works the way you want before you use it on a directory containing real data... that is because the Kill statement that I am using permanently deletes any files it processed (it does NOT send them to the Recycle Bin). -- Rick (MVP - Excel) "Sam" wrote in message ... The other files are the original Excel workbooks that are being saved. They have the ".xls" extension. I want to loop through all files in the directory and only delete the Types "File" as explained in my original message. Thanks, Rick. Can this be done? "Rick Rothstein" wrote: You say "of a certain type"... does that mean there are other files in the directory that you do not want to delete? If so, do they have file extensions on them or not? -- Rick (MVP - Excel) "Sam" wrote in message ... I need a code that will delete all files in a directory that are of a certain type. We have an issue with one of our servers whereby the temp files that are created when an ".xls" file saves are not deleted when the file saves. They are named: "29D41410", "31138510", etc. and do not contain file extensions. Properties list the Type of file as "File". Our netword amins are stumped but until a solution is found, I would like to enter a code into the Workbook Before_Close event to loop through all files in the directory and delete these junk files. Can anyone help? Thanks, Sam |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Temp files remain | Excel Discussion (Misc queries) | |||
Delete temp file | Excel Programming | |||
Temp files in Excel | Excel Discussion (Misc queries) | |||
delete all the contents (sub folders and files) in the temp folder | Excel Discussion (Misc queries) | |||
What Are And Can I Delete .EMF Files in WINNT/Temp Directory ? | Excel Programming |