Giorno a tuttiavrei bisogno di un piccolo aiutino su questo codice, che mi dovrebbe restituire un collegamento al pannello di controllo
ma mi errore nelle espressioni che contengono la parole File1 "File1 non dichiarato"codice:Option Explicit Private strPanelName As String Private Sub Command1_Click() strPanelName = File1.filename If strPanelName = "" Then MsgBox "A .CPL file was not selected." & vbCrLf & _ "The Windows Control Panel will be opened.",vbInformation End If Shell "rundll32.exe shell32.dll,Control_RunDLL " & _ strPanelName, vbNormalFocus End Sub Private Sub Form_Load() With File1 'Display Control Panel Extension files only: .Pattern = "*.CPL" 'Point the FileListBox to the System or System32 dir: .filename = "C:\Windows\System" End With End Sub
come posso fare per aggirare questo problema