[VB6] Ricerca di un file in in più drive

[Maurizio Russi]

Salve ragazzi ... un aiutino
ho un semplice progr che con dei pulsanti mi apre singoli pdf
che ho posizionato nella cartella c:\

Private Sub CartongessoPareti_Click(Index As Integer)
Dim Shell As Object
Set Shell = CreateObject("Shell.Application")
Shell.Open "c:\smorzo\pdf\catalogo\CartongessoPareti.pdf"
End Sub

Se io copio tutto su una pennina e la porto in giro su altri pc può diventare
e:\; f:\; g:\ a seconda del pc.

come faccio a dirgli: se non lo trovi su c:\ vai su d:\ ecc..??

grazie!

[MItaly]

Perché non ti limiti semplicemente ad usare percorsi relativi alla tua applicazione, o a costruirli rispetto a App.Path?

[Maurizio Russi]

ti ringrazio per la pronta risposta
ho cercato di capire come funziona la app path e ho fatto qualche prova vedendo qualche esempio in giro ma niente mi da errore

tu ha i qualche idea su come posso inserire questa funzione dentro il programma?
si che ce l'hai vero?
Grazie
Maury

[MItaly]

Originariamente inviato da Maurizio Russi
ti ringrazio per la pronta risposta
ho cercato di capire come funziona la app path e ho fatto qualche prova vedendo qualche esempio in giro ma niente mi da errore

Sapere che codice hai inserito e che errore ti dà aiuterebbe...

[LeleFT]

Originariamente inviato da MItaly
Sapere che codice hai inserito e che errore ti dà aiuterebbe...

Come anche conoscere il linguaggio di programmazione, visto che, come da regolamento interno, è obbligatorio indicarlo anche nel titolo (compresa la versione, laddove richiesto).


Ciao.

[mrobutti77]

Il codice pare sia VBA o Visual Basc 6 ... dall'App.Path pare più VB6 ...

Potresti posizionare i files che ti interessano nello stesso percorso dell'applicazione o creare una cartella nel percorso dell'applicazione e posizionarli li ...

Esempio :

> Percorso EXE : C:\MioExe\

> Files in : C:\MioExe\DocumentiPDF\

> Codice :

Public Sub ApriFile (ByRef NomeFilePDF As String)

Shell.Open App.Path & "\DocumentiPDF\" & NomeFilePDF

End Sub

Spero ti sia di aiuto ... Ciauzzz

[mardok30]

Quoto i suggerimenti che ti hanno dato gli altri anche se bisognerebbe capire come è impostata l'applicazione, puoi usare app.path(o Application.StartupPath per VB.NET) se fai partire l'applicazione dalla pendrive e ha l'archivio su una penna stessa, ma se hai il programma in C:\... e l'archivio sulla penna non va bene.
A mio avviso metti la cartella con i file PDF nella cartella dove si trova il Programma in modo da usare App.path e all'apertura dell'applicazione verifica l'esistenza della cartella app.path & "\pdf\catalogo" e se non la trova gli mostri una FolderBrowserDialog e fai impostare all'utente il percorso dove si trovano i file pdf che devi aprire(che sia esso in c:\, su penna, o altro).

[Maurizio Russi]

Ecccomi!
vi ringrazio delle risposte,
ho seguito i vs. suggerimenti è ho risolto così:

Private Sub CartongessoPareti_Click(Index As Integer)
Dim Shell As Object
Set Shell = CreateObject("Shell.Application")
Shell.open (App.Path & "\smorzo\pdf\Contract\CartongessoPareti.pdf")
End Sub

mettendo tutti i pdf nella stessa cartella del progr
pare funzionare molto bene.

ps. per il moderatore
sorry! non lo faccio più
era un VB6

By. MAurizio