troubleshooting Question

can this macro be converted to sub procedure

Avatar of Flora Edwards
Flora EdwardsFlag for Sweden asked on
VB ScriptVBAVisual Basic Classic
4 Comments1 Solution184 ViewsLast Modified:
i got this code referred by aikimark from https://gallery.technet.microsoft.com/scriptcenter/191eb207-3a7e-4dbc-884d-5f4498440574

now i want to use this as sub procedure

so that instead of strFileToToss = "C:\Test\trash.txt"

i can use   strFileToToss("C:\Test\trash.txt")

strFileToToss = "C:\Test\trash.txt" 
 
 
Const HKEY_CURRENT_USER = &H80000001 
strComputer = "." 
 
Set fso = CreateObject("Scripting.FileSystemObject") 
 
If Not fso.FileExists(strFileToToss) Then 
   WScript.Quit 
End If 
 
If fso.GetExtensionName(strFileToToss) = "exe" Then 
   WScript.Quit 
End If 
 
strFolderParent = fso.GetParentFolderName(strFileToToss) 
strFileName = fso.GetFileName(strFileToToss) 
 
 
'   Make sure recycle bin properties are set to NOT display request for delete confirmation 
 
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _  
    strComputer & "\root\default:StdRegProv") 
  
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Explorer" 
strValueName = "ShellState" 
 
oReg.GetBinaryValue HKEY_CURRENT_USER,strKeyPath, _ 
    strValueName,strValue 
 
strOrigBinSet = strValue(4) 
strValue(4) = 39 
 
errReturnA = oReg.SetBinaryValue _ 
   (HKEY_CURRENT_USER, strKeyPath, strValueName, strValue) 
 
 
'  Use the Shell to send the file to the recycle bin 
 
Set objShell = CreateObject("Shell.Application") 
Set objFolder = objShell.Namespace(strFolderParent) 
Set objFolderItem = objFolder.ParseName(strFileName) 
 
objFolderItem.InvokeVerb("&Delete") 
 
 
'  Restore the User's Property settings for the Recycle Bin 
 
strValue(4) = strOrigBinSet 
errReturnB = oReg.SetBinaryValue _ 
   (HKEY_CURRENT_USER, strKeyPath, strValueName, strValue
ASKER CERTIFIED SOLUTION
Join our community to see this answer!
Unlock 1 Answer and 4 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 4 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros