Jobs
Author: Dipen Anovadia Date Submitted: 8/31/2005 Category: Windows Operations Compatibility: VB 6,VB 5 This code has been accessed 5780 times.
Email Yourself this snippet:
'Nothing...
Code
Public Sub OpenCPLFile(sCPL As String, Optional sArgs As String = "") 'Desktop Properties @ Customize Desktop: 'OpenCPLFile "desk.cpl", ",@web" 'Time-Date Properties 'OpenCPLFile "timedate.cpl" On Error Goto errOCF Dim sFullCommand As String 'The command was incomplete in my previous code, sorry for that... sFullCommand = "Rundll32.exe Shell32.dll,Control_RunDLL " & sCPL 'Commas ',' before arguments may not work with every cpl files if Not (sArgs = "") Then _ sFullCommand = sFullCommand & "," & sArgs Shell sFullCommand Exit Sub errOCF: MsgBox Err.Description, vbCritical, "Error " & Err Err.Clear End Sub 'Comments are welcomed...
