checking if a directory exists..

[Pouncer]

e.g..

Kill ("C:\MyTrash")

how can i check that that directory folder exsts, and if it does, the delete the folder and its contents.. ?

[dglienna]

The DIR() function.

Option Explicit
 
Private Sub Form_Load()
  Dim st
  st = Dir("d:\temp", vbDirectory)
  If Len(st) > 0 Then MsgBox "Exists!" ' or kill it
End Sub

[Pouncer]

ok thanks and in terms of lettercase, is

Kill ("C:\Hello") same as Kill ("C:\HELLO") ?

[dglienna]

Yes, it is!

Option Explicit
 
Private Sub Form_Load()
  Dim st
  st = Dir("d:\tEmp", vbDirectory)
  If Len(st) > 0 Then MsgBox "Exists!"
End Sub

[Pouncer]

this is giving me error saying file not found and the folder tt is there

Private Sub Command1_Click()
    Dim st1
        st1 = Dir("C:\Documents and Settings\Home\My Documents\tt", vbDirectory)
        If Len(st1) > 0 Then
            Kill "C:\Documents and Settings\Home\My Documents\tt"
        End If
End Sub

[dglienna]

You can convert it to a short file name...

http://vbforums.com/attachment.php?attachmentid=36291

[Pouncer]

is that why it keeps returning 'file not found' because

C:\Documents and Settings\Home\My Documents\tt

is too long name?

[dglienna]

Probably because of the spaces in it, which the zip will convert.

[Pouncer]

i tested it for one without spaces in it, still doesnt work.. gives file not found error

Private Sub Command1_Click()
    Dim st1
        st1 = Dir("C:\windows\blahTestFolder", vbDirectory)
        If Len(st1) > 0 Then
            Kill "C:\windows\blahTestFolder"
        End If
End Sub

[dglienna]

First, you have to kill all files in the folder (use \folder\*.*) and then use RmDir to delete the folder name.

[umilmi81]

Use the file system object instead

It handles spaces, UNC names, and deleting directories that have files in them. Not to mention once you become comfortable with it, handling file access in VB.NET or C# will be a snap.

First include Microsoft Scripting Runtime under project->References

Dim fsObj As FileSystemObject
    Set fsObj = New FileSystemObject
    If fsObj.FolderExists(YourFolder) Then fsObj.DeleteFolder YourFolder, True

[dglienna]

I was thinking abou that, after I posted.

[Pouncer]

omggg no i just tried that code and it deleted all my document folders and contents nooo man what can i do to retrieve them back?? man this is badd please someone help me

would system restore bring them back???

[umilmi81]

omggg no i just tried that code and it deleted all my document folders and contents nooo man what can i do to retrieve them back?? man this is badd please someone help me

would system restore bring them back???

Holy crap. Which code deleted your "My Documents"? The only way to delete your my documents is if you told it to delete your documents.

You can try this program http://www.winternals.com/Products/FileRestore/

[Pouncer]

Dim myFolder As String
myfolder = "C:\Documents and Settings\Home\My Documents\tt"
    Dim fsObj As FileSystemObject
    Set fsObj = New FileSystemObject
    If fsObj.FolderExists(myfolder) Then fsObj.DeleteFolder myfolder, True

it should have deleted the tt folder, but it deleted all the folders from

C:\Documents and Settings\Home\My Documents

i lost almost everything man

can you show me the proper way to do it please

[umilmi81]

Dim myFolder As String
myfolder = "C:\Documents and Settings\Home\My Documents\tt"
    Dim fsObj As FileSystemObject
    Set fsObj = New FileSystemObject
    If fsObj.FolderExists(myfolder) Then fsObj.DeleteFolder myfolder, True

it should have deleted the tt folder, but it deleted all the folders from

C:\Documents and Settings\Home\My Documents

i lost almost everything man

can you show me the proper way to do it please

That is the proper way to do it. The only other thing I would add is to not use "My Documents". I personally create a directory called C:\TEMP. Then I create a subdirectory for each application "C:\TEMP\PROGRAMWHATEVER", and do all my temp work there.