Newsgroup: it.comp.appl.access
Titolo: aprire una cartella di windows da un pulsante di access......

avrei la necessità di aprire una cartella particolare su evento click di un
pulsante in access, tale cartella dovrà essere la stessa che viene aperta
all'esterno dal sistema windows soltanto che viene aperta dall'interno e
deve permettere se per esempio all'interno ci sono file di excel di aprirli
facendo doppio click sopra di essi anche se credo che questo sia window a
gestirlo una volta che la cartella sia aperta.
mi sapreste aiutare? grazie.

 ha scritto nel
messaggio news:yfHf9.12641$6O4.2...@twister1.libero.it...

Hai presente quando scendi dalle montagne russe?
Ecco... 'sto per vomitare....
Antonio

> "@----- Pinco --@-- Pallino -----@" []:

    Infatti...
    Potresti leggere per mezzo di:
        Function Dir( _
            [PathName] _
          , [Attributes As VbFileAttribute = vbNormal] _
          ) As String
            Membro di VBA.FileSystem
i file che vuoi che vengano aperti, mostrarne l'elenco in una ListBox,
quindi aprirli con
        Function Shell( _
            PathName _
          , [WindowStyle As VbAppWinStyle = vbMinimizedFocus] _
          ) As Double
            Membro di VBA.Interaction
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------

 ha scritto nel
messaggio news:yfHf9.12641$6O4.2...@twister1.libero.it...

Ciao Pinco e Pallino
hai sempre dei quesiti interessanti...anche se non sempre rispondi...
Prova il codice qui riportato che prevede un comdlg32.ocx inserito nella
maschera e un riferimento alla libreria di Microsoft Excel 9 0 10.
La puoi usare parzialmente nel senso che comunque ti permette di vedere e
scegliere uno dei file .xls.
Se poi vuoi aprire anche il file usala per intero.
Private Sub Comando1_Click()
  Dim MioPercorso As String
  Me.CmdOpen.CancelError = False
  Me.CmdOpen.Flags = cdlOFNHideReadOnly
  Me.CmdOpen.Filter = "Foglio di calcolo (*.xls)" & Chr(0) & "*.xls" &
Chr(0)
  Me.CmdOpen.FilterIndex = 1
  Me.CmdOpen.DialogTitle = "Percorso di fogli di calcolo da aprire"
  Me.CmdOpen.InitDir = "c:\"
  Me.CmdOpen.ShowOpen
  If Me.CmdOpen.FileName = "" Then
  Exit Sub
  End If
  MioPercorso = Me.CmdOpen.FileName
    Dim xlApp As Object
    Set xlApp = CreateObject("Excel.Application")
    With xlApp
    Workbooks.Open FileName:=MioPercorso
    xlApp.Application.Visible = True
    End With
    'xlApp.Application.Quit
 End Sub
Ciao, Carlo
p.s. ci sono altre strade ma comincia con questa

 p.s. ci sono altre strade ma comincia con questa
    Come dire, ci sono altre strade ma comincia con l'autostrada, cosi' mi
diventa un sciensiato nucleare che non sa fare 2+2.


 diventa un sciensiato nucleare che non sa fare 2+2.
    Scusa, ritiro tutto. Ho sbagliato ng.


 ha scritto nel messaggio
news:alnkev$1rrsf0$1...@ID-52090.news.dfncis.de...

Sì Maurizio hai ragione ma spesso gli ocx standard forniti con VB o con il
developer non vengono nemmeno presi in considerazione.
Spesso non se ne conosce l'esistenza e questo è colpa di Microsoft che non
fornisce spiegazioni adeguate.
Per esempio cercare il file di help di questi ocx è una impresa
(c:\windows\help), per non parlare delle API che ti permettono di eplorare
una cartella.
Credo che chi compra la versione developer di Access meriti qualcosa in più.
Poi sono impressionato dalla mole e dalla vastità dei quesiti di Pinco e
Pallino: sembra di vederlo...capello elettrico e nuvoletta di fumo.
Passa dalla WebCam in Access al riconoscimento vocale; dalla composizione
automatica del numero telefonico al popolamento "insolito" di una combo. Per
non parlare di quando ha chiesto del palmare programmabile per Access.
Peccato che spesso non risponde alle risposte che gli vengono date.
Ciao, Carlo

"@----- Pinco --@-- Pallino -----@"
<
tos...@libero.it
Casualmente cercando con google dei vecchi post ho individuato proprio un
Tosto '73.
Se sei tu mi spieghi perchè ti sei scelto un nuovo nick così banale?

Forse mi sfugge qualcosa, anche perchè le risposte di Carlo e Maurizio sono
diverse, ma perchè non utilizzi l'API (ben documentata sul S.C.) per gestire
il selettore di cartelle/Unità?
Ciao, Oscar

 ha scritto nel messaggio
news:nNHf9.10934$Oz2.2...@twister2.libero.it...

ai presente che non ho capito la tua battuta?

 "@----- Pinco --@-- Pallino -----@" [...]:

    Intendi qualcosa tipo il BrowseForFolder? Se e' cosi' fra questo, quel
che ha detto Carlo e quel che ho detto io la differenze e' negli strumenti
da usare, non nella sostanza, perche' mi pare che tutti e tre diciamo di non
aprire l'Explorer ma di proporre all'utente, con uno strumento interno
all'applicazione di @----- Pinco --@-- Pallino -----@, la lista dei file che
puo' gestire.
    L'Explorer, inoltre, permetterebbe all'utente di gironzolare nel disco e
fare danni.


 ha scritto nel messaggio
news:0kKf9.13618$6O4.2...@twister1.libero.it...

Si sono tosto73 e ti dirò che pinco pallino lo messo per semplicità, ho
dovuto formattare il PC e il primo nome che mi è venuto in mente è quello.
comunque se vuoi rimetto tosto73 ;)

 fare danni.
Io vorrei proprio aprire una maschera che permettesse all'utente di
gironzolare per il PC ma che di defoult si apre dove gli dico io da codice.
quindi come faccio?
Se poi clicco su una .jpg si aprirą il programma che gestisce le foto in
windows
Se clicco su un .xls si aprira excel
Se clicco su un .txt si aprirą notepad
Grazie.

 Peccato che spesso non risponde alle risposte che gli vengono date.
    Capito @----- Pinco --@-- Pallino -----@ ?
    Senno' il ng come facciamo a farlo?



    Alcuni possibili usi:
Public Function ApriCartella_Test( _
) As Boolean
  If (ApriCartella("D:\PUBLIC") = True) Then
    Debug.Print "Ok."
  Else
    Debug.Print "Ko."
  End If
End Function
Public Function EsploraCartella_Test( _
) As Boolean
  If (EsploraCartella("D:\PUBLIC") = True) Then
    Debug.Print "Ok."
  Else
    Debug.Print "Ko."
  End If
End Function
Public Function ApriCartella( _
  ByVal PercorsoCompleto As String _
) As Boolean
  ApriCartella _
    = (ShellExecute( _
          hWndAccessApp _
        , "open" _
        , PercorsoCompleto _
        , vbNullString _
        , vbNullString _
        , SW_SHOWNORMAL) _
    > 32)
End Function
Public Function EsploraCartella( _
  ByVal PercorsoCompleto As String _
) As Boolean
  EsploraCartella _
    = (ShellExecute( _
          hWndAccessApp _
        , "explore" _
        , PercorsoCompleto _
        , vbNullString _
        , vbNullString _
        , SW_SHOWNORMAL) _
    > 32)
End Function


 fare danni.
Non essere cosě pessimista, č uno strumento cosě carino ;-)
Ciao, Oscar

 comunque se vuoi rimetto tosto73 ;)
Per me non fa differenza, anche perchè frequento saltuariamente questo ng.
Tuttavia rispondere a un  "@----- Pinco --@-- Pallino -----@"  non è il
massimo, credimi :-)
Ciao: Oscar

 Non essere cosě pessimista, č uno strumento cosě carino ;-)
    Gia'. Bisognerebbe pagargli le provvigioni, visto le assistenze che
procura...


 procura...
In tanti anni _ purtroppo_ a me non hanno procurato alcuna assistenza.
Ciao: Oscar

 gironzolare per il PC
Eh, eh, eh ... lo dicevo io :-)

 In tanti anni _ purtroppo_ a me non hanno procurato alcuna assistenza.
    Dai... Non ci credo. Nessuno ti ha chiamato mai dicendo che gli era
sparita la cartella Documenti. Magari perche' l'aveva "trascinata" da
un'altra parte grazie al mouse che si era "incantato"?...


 un'altra parte grazie al mouse che si era "incantato"?...
Mi stai facendo venire profondi sensi di colpa...
Le ipotesi sono due:
1) sono (anzi siamo visto che lavoro in un'azienda) piů fortunato di Gastone
Paperone
3) La nostra clientela č esemplare.
2) I tuoi (o vostri se non sei Freelance) clienti soffrono di artrite alle
dita :-))
Ai posteri l'ardua sentenza.
Ciao: Oscar

 dita :-))
In verità sono tre (con un ordinamento non proprio da manuale)

 Ai posteri l'ardua sentenza.
--


     4) E' successo ma gli avete cambiato computer proprio quel giorno.
Impossibile: non trattiamo robaccia come l'hardware!
Ciao, Oscar

 ha scritto nel
messaggio news:6AKf9.11683$Oz2.2...@twister2.libero.it...

Forse che la tua spiegazione era così contorta che per cercare di afferrare
il concetto mi è venuto il mal di mare?!?!
Antonio

 Ciao: Oscar
Ok mi hai convinto eccomi qui!

 Impossibile: non trattiamo robaccia come l'hardware!
    :-)
