View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
Eric W. Eric W. is offline
external usenet poster
 
Posts: 3
Default Deleting a file using VB

Rohit,
This is a modified bit of code that should work. It
assumes that all of the files that will be deleted are in
the same directory, and that there are no other files in
that directory. Hope this helps!!

Eric W.
Madison, WI

Sub Delete_Files()

'Dimension your variables
Dim sFolder
Dim myFolderObject, myGetFolder, myFile, myFiles
myFolder = "g:\eric\files\"
'set your objects
Set myFolderObject = CreateObject
("Scripting.FileSystemObject")
Set myGetFolder = myFolderObject.GetFolder(myFolder)
Set myFiles = f.Files
'loop through the files in a directory
For Each myFile In myFiles
'Delete the appropriate files
myFile.Delete
Next

End Sub
-----Original Message-----
Hello All,

I have delimted text files that I import into Excel

using
macros. Once the import is finished, I would like to
delete the text file because it contains SS#'s and other
sensitive info. How do I delete the file from Excel using
VB? The text files are normally located on a LAN.

Thanks in advance,
Rohit Thomas
.