Conservazione del PATH per apertura file.

[roma]

Buonasera a tutti

Ho il seguente problema:
Dato un campo il quale ci vado a mettere il percorso di un file tramite questo codice
===============================================
Private Sub Comando121_Click()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogOpen)
With fd
.InitialFileName = CurrentProject.Path & "\DOCUMENTI\"
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "ANYFILE", "*.*,"
If .Show Then
Me.NOTEASSOCIATO.Value = .SelectedItems.Item(1)
End If
End With
Me.NOTEASSOCIATO.Requery
End Sub
================================================
Che poi vado ad aprire con il seguente codice
=================================================
Private Sub NOTEASSOCIATO_DblClick(Cancel As Integer)
ret = Shell("rundll32.exe url.dll, FileProtocolHandler " & Me.NOTEASSOCIATO, vbMaximizedFocus)
End Sub
=================================================
Codice funzionante e suggeritomi da questo forum
=================================================

Siccome nel campo dove va a mettere il percorso del file mi mette tutta la radice cioè “C:\Users\SM\FILEPERSONALE\DOCUMENTI\nome del file”
Volevo sapere , visto che prima o poi questo DB riempito dovrò spostarlo per l’utilizzo su computer diversi, se c’è la possibilità di poter far sempre aprire il file associato.

Questa è la directory dove attualmente utilizzo il DB in questione
C:\Users\SM\FILEPERSONALE\

Ho creato una directory “\DOCUMENTI” all’interno dove conservare tutti i documenti
C:\Users\SM\FILEPERSONALE\DOCUMENTI\

Sostanzialmente le parti che conserverei sarebbero le seguenti
\FILEPERSONALE\ (dove conservo il file del DB)
\FILEPERSONALE\DOCUMENTI\ (dove conserverei tutti i file associati)

Grazie

[Karl Donaubauer]

Salve,

roma:
> ...

> Siccome nel campo dove va a mettere il percorso del file mi mette tutta la radice cioè “C:\Users\SM\FILEPERSONALE\DOCUMENTI\nome del file”
> Volevo sapere , visto che prima o poi questo DB riempito dovrò spostarlo per l’utilizzo su computer diversi, se c’è la possibilità di poter far sempre aprire il file associato.
>
> Questa è la directory dove attualmente utilizzo il DB in questione
> C:\Users\SM\FILEPERSONALE\

Se qui intendi che il file Access con il codice si trova in questa
cartella, puoi usare

Dim strPath As String

strPath = CurrentProject.Path

per ricevere la cartella.

Se non è così, puoi usare questo per ricevere il percorso dell'utente:

strPath = Environ("USERPROFILE")

> Ho creato una directory “\DOCUMENTI” all’interno dove conservare tutti i documenti
> C:\Users\SM\FILEPERSONALE\DOCUMENTI\
>
> Sostanzialmente le parti che conserverei sarebbero le seguenti
> \FILEPERSONALE\ (dove conservo il file del DB)
> \FILEPERSONALE\DOCUMENTI\ (dove conserverei tutti i file associati)

poi se capisco bene, basta

strPath = strPath & "\SM\FILEPERSONALE\DOCUMENTI\"

ecc.

Ciao
Karl
*********
Access News: https://youtu.be/kUkLjfYwgg8
Access DevCon: http://AccessDevCon.com
Access FAQ: https://www.donkarl.com/it

[roma]

ok grazie infinite
Ciao
Romano