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

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 
End If 
If fso.GetExtensionName(strFileToToss) = "exe" Then 
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, _ 
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) 
'  Restore the User's Property settings for the Recycle Bin 
strValue(4) = strOrigBinSet 
errReturnB = oReg.SetBinaryValue _ 
   (HKEY_CURRENT_USER, strKeyPath, strValueName, strValue
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