Visual Basic help

[RowanSpry]

Could anyone help me out with deleting files in visual basic? Iv scavenged the internet for ages reading about the Kill and Delete functions but it all seems unclear and explained in unnecesary ways, and often the code doesnt work for some reason. All i want to be able to do is to delete files in a folder.

So for example, delete all the files in "folder X", and if there are no files, then it does nothing. This at a glance did not sound hard at all..but bare in mind im still at college. havnt been doing computing for a year yet.

Thanks
Rowan

*Edit*

Sorry i forgot to mention the main bit, need help doing it for Hidden files. i tried this:

Private Sub Command1_Click()
Dim DeleteFolder As String
DeleteFolder = "C:\Users\admin\Desktop\DeleteFolder\*.*"
SetAttr DeleteFolder, vbNormal
Kill DeleteFolder
End Sub

but "SetAttr DeleteFolder, vbNormal" is a bad file name or number apparantly. Iv tried so many variations, doing it all different ways i could think of.

thanks

[RowanSpry]

And also how to do it for multiple files.

[Petef56]

Originally Posted by RowanSpry SetAttr DeleteFolder, vbNormal

Your problem is the line above because wildcards "*" do not work with the SetAttr command.

I modified your example to do as you wish. Basically you need to locate the hidden file
and change it's attribute, then locate each subsequent file using DIR() and change each
file's attribute. ---pete---

Sub DeleteFiles()

   Dim DeleteFiles As String
   Dim Folder As String
   Dim a$

   DeleteFiles = "C:\Temp\*.*"
   Folder = "C:\Temp\"

   'Locate first hidden file in target folder
   'then make it a normal unhidden file.
   a$ = Dir(Folder, vbHidden)
   SetAttr Folder & a$, vbNormal
  
   'Proceed to check each file in the target folder
   'and change each to a normal unhidden file.
   Do
    On Error GoTo Abort:
    SetAttr Folder & Dir(), vbNormal
   Loop

Abort:
   Kill DeleteFiles

End Sub

[RowanSpry]

Cheeeeeeeeeeers