Visual Basic 6 - Problemi con cartelle locali

Forum - Visual Basic 6 - Problemi con cartelle locali

moet (Normal User)
Pro

Messaggi: 185
Iscritto: 13/11/2007

Postato alle 21:32
Lunedì, 03/03/2008

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.

Codice sorgente - presumibilmente Plain Text

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

M@d_Hacker (Ex-Member)
Expert

Messaggi: 254
Iscritto: 25/02/2008

Postato alle 22:04
Lunedì, 03/03/2008

Prova a dare un'occhiata qui...

http://www.pierotofy.it/pages/extras/forum/6/29440-aprire_ ...

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 23:30
Lunedì, 03/03/2008

Testo quotato

Postato originariamente da moet:
L' errore mi dice:

PRevista variabile o routine e non modulo.

e mi evidenzia la parola shell.

Quel codice in se' stesso non e' sbagliato.

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

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

Ultima modifica effettuata da gantonio il 03/03/2008 alle 23:34

moet (Normal User)
Pro

Messaggi: 185
Iscritto: 13/11/2007

Postato alle 0:09
Martedì, 04/03/2008

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 ?

Codice sorgente - presumibilmente VB.NET

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

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 7:39
Martedì, 04/03/2008

Certo che cambi nome al modulo ... chiamalo

modShell

moet (Normal User)
Pro

Messaggi: 185
Iscritto: 13/11/2007

Postato alle 13:38
Martedì, 04/03/2008

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 !!!!!

Ultima modifica effettuata da moet il 04/03/2008 alle 13:41

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 0:17
Mercoledì, 05/03/2008

Testo quotato

Postato originariamente da moet:

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

Non c'e' motivo ...

Testo quotato

ho provato tutto sembra funzionare!!!!!

grazie!

dovrebbe essere finito !!!!!

Prego --- di nulla ...