DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

Need to delete a file

•

Join Date: Jan 2009

Posts: 3

Reputation: sumit-saini is an unknown quantity at this point

Solved Threads: 0

sumit-saini sumit-saini is offline

Offline

Newbie Poster

Need to delete a file

Jan 10th, 2009

i want to delete a file from a specific location, if file Existing ; using JavaScript or VB scripting

•

Join Date: Jun 2006

Posts: 7,581

Reputation: ~s.o.s~ has much to be proud of

Solved Threads: 461

~s.o.s~

Offline

Failure as a human

Re: Need to delete a file

Jan 11th, 2009

Javascript, at least broswer embedded Javascript can't do this in a standard compliant way; moving to VB section.

Last edited by ~s.o.s~; Jan 11th, 2009 at 2:08 am.

I don't accept change; I don't deserve to live.

•

Join Date: Dec 2004

Posts: 2,413

Reputation: Comatose is a jewel in the rough

Solved Threads: 211

Comatose

Offline

Taboo Programmer

Re: Need to delete a file

Jan 11th, 2009

Well, using VB6 it's really easy:
if dir("c:\autoexec.bat", vbnormal) <> vbnullstring then kill "c:\autoexec.bat". However, this becomes a little different in vbscript (and for some reason, a bit uglier).

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
dim filesys
Set filesys = WScript.CreateObject("Scripting.FileSystemObject")
If filesys.FileExists("c:\somefile.txt") Then
   filesys.DeleteFile "c:\somefile.txt"
End If
dim filesys
Set filesys = WScript.CreateObject("Scripting.FileSystemObject")
If filesys.FileExists("c:\somefile.txt") Then
   filesys.DeleteFile "c:\somefile.txt"
End If

Last edited by Comatose; Jan 11th, 2009 at 1:58 am.

•

Join Date: Nov 2006

Posts: 848

Reputation: QVeen72 is on a distinguished road

Solved Threads: 120

QVeen72

Offline

Practically a Posting Shark

Re: Need to delete a file

Jan 12th, 2009

Hi,
use KILL:

 Help with Code Tags 
 vb Syntax (Toggle Plain Text) 
If Dir("C:\MyText.txt") <> "" Then
    Kill "C:\MyText.txt"
End If
If Dir("C:\MyText.txt") <> "" Then
    Kill "C:\MyText.txt"
End If

Regards
Veena

•

Join Date: Dec 2004

Posts: 2,413

Reputation: Comatose is a jewel in the rough

Solved Threads: 211

Comatose

Offline

Taboo Programmer

Re: Need to delete a file

Jan 12th, 2009

In VBScript, Kill won't work. I don't think dir() works in VBScript either. If doing this in VB6 (compiled language) it is strongly recommended that you do NOT compare the result of dir with "". if dir("C:\MyText.txt") <> vbnullstring then is a much better method. Double quotes is what is known as a null string. It uses somewhere in the area of around 8 bytes. vbnullstring is a special constant that is built into VB6, that reduces the memory usage to like 1 byte. This isn't a very big deal for small apps with a couple of strings.... but when you get into recursion, or loops with string processing and checking, it will make a visible difference.