VB6 detele files in a directory ? 2

[tdong]

Hi guys

I create a few pdf from CR and put them in C:\email\ now after sending it I need to delete all file with .pdf or all file in the C:\email\. thanks

 

[gmmastros]

look up the KILL command.

Ex.
Kill C:\Email\File.ext



-George

Strong and bitter words indicate a weak cause. - Fortune cookie wisdom

 

[tdong]

thanks

 

[lghanson3]

I need to delete zip files after they have been unzipped. I've tried the Kill command but it doesn't delete the files and no error message either. I have a reference to the MS Scripting Object. Am I missing something else?

Thank you.

 

[gmmastros]

That is probably happening because there is still an open file handle to it somewhere.

Make sure that the file is closed before attempting to delete it.

If you are already referencing the File System Object, then you can delete files as shown below.

Public Sub DeleteFile(ByVal FileName As String)
    
    Dim FSO As Scripting.FileSystemObject
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    If FSO.FileExists(FileName) Then
        Call FSO.DeleteFile(FileName, True)
    End If
    
End Sub

-George

Strong and bitter words indicate a weak cause. - Fortune cookie wisdom

 

[Hypetia]

tdong, you can also use wildcards with Kill. To delete all .pdf files you can use:
[tt]Kill "C:\email\*.pdf"[/tt]

George, using FSO, you did not kill the file, you overkilled it.;-)

 

[CubeE101]

George, using FSO, you did not kill the file, you overkilled it.

True...

I would have used:

Public Function DeleteFile(ByVal FileName As String) As Boolean
  If Len(Dir(FileName)) Then
    Kill FileName
  End If
  DeleteFile = (Dir(FileName) = "")
End Sub

It will also return False if the was NOT deleted.

;-)

Visit My Site
PROGRAMMER: Red-eyed, mumbling mammal capable of conversing with inanimate objects.