Delete files

[nagmvs]

Can somebody help me out with a code snippet to cut files from one folder to another in vb.. i.e cut all from src to dest and delete it from src ..


Thanks,
Nag.

[debasisdas]

you need to use FILESYSTEMOBJECT for this .

[lee123]

here is a ay to do this i have been working on this and it works. remeber when using the "FILESYSTEMOBJECT" you have to use the "Microsoft Scripting Runtime" in the in "Project: under Reference"

and way try this:

Private Sub cmdDelete_Click()
Dim response As String
Dim fso As New FileSystemObject, fldr As Folder, s As String
If cmdDelete Then
    response = MsgBox("Are You Sure you want To Delete This Folder, The Content of the Files In It Will Be Deleted As Well?", vbYesNo + vbQuestion, "Response")
    fso.DeleteFolder (the name of folder goes here), True
    MsgBox "Folder Has Been Deleted!", , "Deleted Folder is Complete"
    txtDeleteFolder.Text = ""
End If
End Sub

in this code i used a Textbox to enter in a folder i wanted to delete, then i asked a question if they wanted to delete this folder. but you can try other things out.

lee123

[nagmvs]

here is a ay to do this i have been working on this and it works. remeber when using the "FILESYSTEMOBJECT" you have to use the "Microsoft Scripting Runtime" in the in "Project: under Reference"

and way try this:

Private Sub cmdDelete_Click()
Dim response As String
Dim fso As New FileSystemObject, fldr As Folder, s As String
If cmdDelete Then
    response = MsgBox("Are You Sure you want To Delete This Folder, The Content of the Files In It Will Be Deleted As Well?", vbYesNo + vbQuestion, "Response")
    fso.DeleteFolder (the name of folder goes here), True
    MsgBox "Folder Has Been Deleted!", , "Deleted Folder is Complete"
    txtDeleteFolder.Text = ""
End If
End Sub

in this code i used a Textbox to enter in a folder i wanted to delete, then i asked a question if they wanted to delete this folder. but you can try other things out.

lee123

Hello lee,

Ur code is 100% working,Great.Thanks for sending me this code.Sir actually i don't want to delete total folder i want to delete the files on that folder only.So how can i achieve that.i try some methods using ur code but i am not successfull.So please help me to delete the files on that folder only.
Otherwise i just copy or cut the files on that folder and move those files to some other system.(is it possible ?) how can i do this ? any ideas ?
Sir i have one doubt.after compiling ur code in vb,the specified folder is deleted successfully. but i can't see that folder in Recycle Bin.so where is it going in my system.In my system which place i can find that deleted folder.

Thanks,
Nagesh.

[nagmvs]

you need to use FILESYSTEMOBJECT for this .

Oh that's fne.thanks.

[debasisdas]

try to use this

Set fso = Server.CreateObject("Scripting.FileSystemObject") 
Set fileObject = fso.GetFile(source filename)
response.Write(targetfilename)
fso.moveFile sourcefilename, TargetFileName 
 

you need to use

FSO.FileExists(File)
to check if the file exists before moving the file.
better to use common dialog control to select the file