Kill Files

[theCroat]

Hello! I'm using Kill App.Path + "\tempfsh\*.*" function, however, when there's no files inside it gives me error and application crashes, and if there are some files, it deletes them [as it should] and application continues to work properly.. help needed!

 

[PGoRule]

Before executing the kill, check whether that path contains any such files or not. If the file count > 0, then only execute it.

Sharing the best from my side...

--Prashant--

 

[theCroat]

can you provide example code please?

 

[PGoRule]

I don't have a VB6 installed on my machine, so here I can provide you a link for reference.
See if Files, Folders and Drives Exist

Sharing the best from my side...

--Prashant--

 

[HughLerwill]

theCroat,

Try this;

Sub KillIfExist(Filename$)
If Len(Dir$(Filename$)) Then Kill Filename$
End Sub

to delete C:\MyDir\MyFile.ext call it with;

KillIfExist "C:\MyDir\MyFile.ext"

HTH Hugh

 

[BobRodes]

<If Len(Dir$(Filename$)) Then (...)

Just to be clear here, there's an implicit conversion from an integer to a boolean here. This statement is basically equivalent to

If Len(Dir$(Filename$)) <> 0 Then

HTH

Bob

 

[Miked811]

Check this out:

Private Sub Command1_Click()

Dim retval As String

retval = Dir$("c:\vbfiles\b.txt")

If retval = "b.txt" Then

MsgBox "b.txt exists--no need to copy it..."

Else

FileCopy "c:\vbfiles\a.txt", "c:\vbfiles\b.txt"

End If

End Sub

 

[tsh73]

I recently had an issue with dir$
Then checking network path
(\\server\share\file.ext)
- it worked on development machine OK (returned vbNullString if no file exists). However then I install on different machine it thow error on this line...
So I had to wrap it up with OnError, like this:

CPUNoSaveLoadExists = False
On Error Resume Next
    CPUNoSaveLoadExists = (dir$("\\server\share\file.ext") <> vbNullString)
On Error GoTo 0
If CPUNoSaveLoadExists Then
(... rest of code)

 

[HughLerwill]

Other contenders

Sub KillIfExist(Filename$)
On Error Resume Next
Kill Filename$
End Sub

and

Function IsKilled(FileName$) As Long
On Error Resume Next
Kill Filename$
IsKilled = Err
End Sub

regards Hugh