kill file

[junlo]

Private Sub mnuFileList_Click(Index As Integer)
    If Index = 1 Then
        Kill App.Path & "/Data.txt"
        CommonDialog1.ShowOpen
        Picture1.Picture = LoadPicture(CommonDialog1.FileName)
    End If
End Sub

i want the program always kill file "data.txt" when press the menu if the "data.txt" is present.
But, i got the error "file not found"(because data.txt not present) with the code above. How to improve the code above to let it kill file when the data.txt is present.

[Hack]

Private Sub mnuFileList_Click(Index As Integer)
    If Index = 1 Then
       If Dir$(App.Path & "/Data.txt") <> vbNullString Then 'it exists - kill it
          Kill App.Path & "/Data.txt"
          CommonDialog1.ShowOpen
          Picture1.Picture = LoadPicture(CommonDialog1.FileName)
       End If
    End If
End Sub

[Code Doc]

Check the directory to see if DIR$("FileName") is a not a null. If it is not, then you can safely kill the file. If it is a null and you then try to kill it, that generates the error. The correct statement in one line is thus

IF Dir$(FilePathName$)<> "" Then Kill FilePathName$

[junlo]

What difference between vbNullString and ""?

[Hack]

What difference between vbNullString and ""?

Memory allocation.

"" has a length of 0 but still takes up memory. vbNullString requires no memory.

Here is a brief tutorial.

[doran_doran]

dim nPath as string
nPath = "c:\folder\"
If Len(Dir(nFolder & "\filename.txt")) <> 0 Then

kill

End If

[Al42]

In this case none, and you can use > "", since it can't ever be < "".

[Code Doc]

This might also work:

If Len(Dir$(PathFileName$)) THEN KILL PathFileName$
'implication not zero and no string comparison required