kill file

Code:

---

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.

Code:

---

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

---

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

Code:

---

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

---

What difference between vbNullString and ""?

Quote:

---

Originally Posted by junlo

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.

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

kill

End If

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

This might also work:

Code:

---

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

---