October 17, 200619 yr Here is a script that will delete files it can do multiple files at the same time. How to use 1:\ Drag any file or files on to the VBS script Note this does not send the file or files to the recyle bin but deletes the files permently.Save As Drag_Drop_Delete.vbsDim Fso : Set Fso = CreateObject("Scripting.FileSystemObject") Dim DelFile For Each DelFile in Wscript.Arguments : Fso.DeleteFile(DelFile) : NextLink To Updated DragDropDelete Edited January 27, 200719 yr by gunsmokingman
January 27, 200719 yr Author I have updated the script so it now does Files and Folders.This does not send any thing to the Recyle Bin it deletes.Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject") Dim DelF, GetF On Error Resume Next For Each DelF in Wscript.Arguments Set GetF = Fso.GetFile(DelF) : GetF.Delete() Next For Each DelF in Wscript.Arguments Set GetF = Fso.GetFolder(DelF) : GetF.Delete() NextHere is a Rar file of the above code Edited November 7, 200718 yr by gunsmokingman
Create an account or sign in to comment