Delelte File if it exists 4

[SeaRay]

I am trying to write code to delete a file if it exists. This is the code that I'm using, but I get an error that says "file not found". What am I doing wrong?

Thanks, Rick Ruscin

Private Sub Command1_Click()
Dim CreditFile As String
Set fs = CreateObject("Scripting.FileSystemObject&quot

CreditFile = ("C:\Program Files\SSM\001\Credit&quot
If CreditFile <> &quot;&quot; Then

fs.DeleteFile &quot;C:\Program Files\SSM\001\Credit&quot;

Else

End If

End Sub

 

[RickSpr]

Now, come on, SeaRay, you're not even trying! What are you doing, trying to get us to write your code for you?

CreditFile = Dir$(&quot;C:\Program Files\SSM\001\Credit&quot
Rick Sprague

 

[JohnYingling]

Private Sub Command1_Click()
Dim CreditFile As String
Set fs = CreateObject(&quot;Scripting.FileSystemObject&quot
CreditFile = &quot;C:\Program Files\SSM\001\Credit&quot;
If fs.FileExists(CreditFile) Then
fs.GetFile(CreditFile).Delete
End If
End Sub

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort in VB or VBScript

 

[Kaah]

or even,

function KillFile(sFileName as string) as boolean
'\\returns true if file is found and deleted, else false
KillFile = True
if dir(sFileName)<> &quot;&quot; then
kill sFileName
else
KillFile = false
end if
end function

 

[grogery]

How about something shorter and sweeter...

If Len(Dir(strFilename)) <> 0 Then
Kill strFilename
End If

 

[anjanaj]

Hi !

The fllowing function would return TRUE if the file specified by the user exists in the directory.

Function FileExist(pFileName As String) as Boolean
Dim I As Integer
I = Len(Dir$(pFileName))
FileExist = IIf(I = 0, False, True)
End Function

Anjana