When you think ASP, think...
Recent Articles
All Articles
ASP.NET Articles
ASPFAQs.com
Message Board
Related Web Technologies
User Tips!
Coding Tips

Sections:
Sample Chapters
Commonly Asked Message Board Questions
JavaScript Tutorials
MSDN Communities Hub
Official Docs
Security
Stump the SQL Guru!
XML Info
Information:
Feedback
Author an Article
Technology Jobs
ASP ASP.NET ASP FAQs Message Board Feedback ASP Jobs

The 4 Guys Present: ASPFAQs.com

Jump to a FAQ
Enter FAQ #:
..or see our 10 Most Viewed FAQs.

4GuysFromRolla.com : ASP FAQS : FileSystemObject


Question:

How can I delete files by extension in a given directory? What if I have multiple file extension names I want to delete?


[Print this FAQ]

Answer: There are many situations in which you may wish to delete all files containing a certain file extension in a certain directory. The naive approach to solving this problem would involve iterating through all of the files in the directory and checking the file extension for each file - if it matched the criteria, the file would be deleted. While such an approach would work, there's a much easier way to accomplish the same task.

Th DeleteFile method of the FileSystemObject can accept wildcards. That means, you can call DeleteFile like so:

objFSO.DeleteFile("C:\SomeDirectory\*.txt")

to delete all of the .txt files in C:\SomeDirectory. Neat, eh? In fact, you can use wildcards other than the *, such as the ?.

Well, it isn't that easy, there is one catch. If there are no files in the directory that match the wildcard expression the DeleteFile method will raise an error, saying it couldn't delete the specified file. Hence, before using the DeleteFile method with wildcards you should turn off error handling via a On Error Resume Next statement. To learn more about error handling in VBScript be sure to read: Error Handling in ASP.

Now, if you wanted to allow the user to delete multiple file extensions, you'll need to call the DeleteFile method multiple times. Below you'll find a function that accepts two input parameters:

-- strWildcards - a comma-delimited list of wildcards to delete.
-- strDirectory - the directory to delete the files from (must end with a backslash).

Sub DeleteFileExtensions(strWildcards, strDirectory)
  'Turn off error handling
  On Error Resume Next

  'Create an instance of the FileSystemObject
  Dim objFSO
  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

  'Loop through each wildcard extension to delete
  Dim aExtensions
  aExtensions = split(strWildcards, ",")

  Dim i
  For i = LBound(aExtensions) to UBound(aExtensions)
    'Delete the file
    objFSO.DeleteFile(strDirectory & aExtensions(i))
  Next
End Sub

That's all you have to do! To utilize this function you could use the following code:

Dim strWildcardsToDelete, strDirectory
strDirectory = "C:\SomeDirectory"
strWildcardsToDelete = "*.txt,*.inc"

DeleteFileExtensions strWildcardsToDelete, strDirectory

To learn more about the DeleteFile method be sure to read the technical docs. To learn more about the split function (used in the DeleteFileExtensions function), be sure to read: Parsing with join and split.

Happy Programming!


FAQ posted by Scott Mitchell at 12/16/2001 12:47:36 PM to the FileSystemObject category. This FAQ has been viewed 81,511 times.

Do you have a FAQ you'd like to suggest? Suggestions? Comments? If so, send it in! Also, if you'd like to be a FAQ Admin (creating/editing FAQs), let me know! If you are looking for other FAQs, be sure to check out the 4Guys FAQ and Commonly Asked Messageboard Questions!

Most Viewed FAQs:

1.) How can I format numbers and date/times using ASP.NET? For example, I want to format a number as a currency. (761643 views)
2.) I am using Access and getting a 80004005 error (or a [Microsoft][ODBC Microsoft Access Driver] The Microsoft Jet database engine cannot open the file '(unknown)' error) when trying to open a connection! How can I fix this problem? (207777 views)
3.) How can I convert a Recordset into an array? Also, how can I convert an array into a Recordset? (202549 views)
4.) How can I quickly sort a VBScript array? (196039 views)
5.) How can I find out if a record already exists in a database? If it doesn't, I want to add it. (156019 views)
6.) How do I display data on a web page using arrays instead of Do...While...MoveNext...???... (152331 views)
7.) When I get a list of all files in a directory via the FileSystemObject, they aren't ordered in any reasonable way. How can I sort the files by name? Or by size? Or by date created? Or... (140381 views)
8.) For session variables to work, must the Web visitor have cookies enabled? (110162 views)
9.) Can I send emails without using CDONTS? (107083 views)
10.) How can I take the result of a SELECT...MULTIPLE or a group of same-named checkboxes and turn it into a query? That is, if the user selects 3 answers, how can I construct a query that looks for all 3? (106308 views)
Last computed at 9/17/2007 3:22:00 AM

Software Developer / Programmer - Distributed Systems (NYC)
Next Step Systems
US-NY-New York

Justtechjobs.com Post A Job | Post A Resume


ASP.NET [1.x] [2.0] | ASPMessageboard.com | ASPFAQs.com | Advertise | Feedback | Author an Article