Visual Basic 6 - Problemi con cartelle locali

Avevo gia chiesto un aiuto ma alla fine non riesco ad ovviare al problema.

Nonostante riesca ad aprire un file in una cartella in locale dal mio programma...

utilizzando shell... ecc...

non riesco ad aprire solo le cartelle per la successiva visualizzazione dei file dall' utente.

Shell "explorer.exe " & App.Path & "\autoritaportuale", vbNormalFocus

L' errore mi dice:

PRevista variabile o routine e non modulo.

e mi evidenzia la parola shell.

grazie

Prova a dare un'occhiata qui...


pierotofy.it/pages/extras/forum/6/29440-aprire_o_cancellare_un_file/

Quel codice in se' stesso non e' sbagliato.

Dimmi ... hai per caso chiamato il tuo progetto Shell ?

Se e' cosi', ovviamente, non puoi ...

MI hai fatto riflettere.

il progetto non si chiama shell ma ho un modulo che si chiama shell e lo posto.

nello stesso form apro altri documenti tipo pagine internet ecc ma in effetti le apro con shelldocument.

evidentemente fa la chiamata al modulo.

come posso fare? cambio nome del modulo ?

Option Explicit

Public Declare Function ShellExecute& Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long)
Public Enum StartWindowState
    START_HIDDEN = 0
    START_NORMAL = 4
    START_MINIMIZED = 2
    START_MAXIMIZED = 3
End Enum

Public Function ShellDocument(sDocName As String, _
                    Optional ByVal Action As String = "Open", _
                    Optional ByVal Parameters As String = vbNullString, _
                    Optional ByVal Directory As String = vbNullString, _
                    Optional ByVal WindowState As StartWindowState) As Boolean
    Dim Response
    Response = ShellExecute(&O0, Action, sDocName, Parameters, Directory, WindowState)
    Select Case Response
        Case Is < 33
            ShellDocument = False
        Case Else
            ShellDocument = True
    End Select
End Function

Certo che cambi nome al modulo ... chiamalo

modShell

non è che poi non mi funzionano altre cose nel programma?!?!? della serie ne va a posto una ma ne saltano 3?!?!? heheh


ho provato tutto sembra funzionare!!!!!


grazie!

dovrebbe essere finito !!!!!

Non c'e' motivo ...



Prego --- di nulla ...