Newsgroup: it.comp.appl.access
Titolo: Selezione Directory

Ciao a tutti, ho scaricato dal sito comune l'esempio di automazione con
word, dove i modelli da compilare risiedono nella stessa directory del
database ed utilizzo questo codice:
Dim Wrd As Word.Application
Dim Rst As DAO.Recordset
Dim Modello As String, NomeFile As String, i As Integer
Dim Record As String, SQL As String
Dim Tbl As String * 1
Dim TotRiga As Currency, Totale As Currency
Dim ReplSel As Boolean
If Me.Flag = True Then
If MsgBox("Salvare l'offerta?", vbInformation + vbYesNo, "Salva
Offerta..") = vbYes Then
DoCmd.Save
Me.Flag = False
GoTo stampa
Else
Exit Sub
End If
Else
stampa:
    Modello = CurrentDb.Name
    Modello = Left(Modello, Len(Modello) - Len(Dir(Modello))) &
"Mod2B.dot"
    On Error Resume Next 'gestione errori step by step
    Set Wrd = GetObject(, "Word.Application")
    If Err.Number = 429 Then
        Set Wrd = CreateObject("Word.Application")
    End If
    On Error GoTo 0 'ripristina la segnalazione degli errori
    Set Doc = Wrd.Documents.Add(Modello)
    With Wrd
...
...
...
e poi alla fine mi salvo automaticamente il documento creato nella
stessa directory iniziale
con questo codice
     NomeFile = Left(Modello, Len(Modello) - 4) & "_" &
Left$(Me.Numero_Offerta, 5) & "_" & Right$(Me.Numero_Offerta, 2)
     Doc.SaveAs NomeFile & ".doc"
considerando che sia la directory del database che quello dei modelli,
dovrebbero risiedere su un server, come faccio a impostare nel codice
sopra una directory diversa da quella iniziale in cui all'interno devo
creare una sottocartella dove salvo i documenti creati?
Spero di essere stato chiaro.
Ciao Tommy

 ha scritto nel messaggio news:1131450200....@z14g2000cwz.googlegroups.com...

Prima crei (se non esiste già) la directory/subdirectory con l'istruzione MkDir (vedi help); poi se vuoi indicare la directory nel 
nome del file basta che la fai precedere al nome:
Es.
path = "\\nomePc(o indirizzoIP)\nomeCartella\"
NomeFile = path & Left(Modello, Len(Modello) - 4) & "_" & Left$(Me.Numero_Offerta, 5) & "_" & Right$(Me.Numero_Offerta, 2)
Doc.SaveAs NomeFile & ".doc"
Ciao.
-- 
Sergio MAZZA 

Sergio MAZZA ha scritto:

Scusa ho provato ma non riesco, ho cercato anche MkDir sull'help ma non
lo trovo, comunque partiamo dall'inizio, io dovrei crearmi una
directory sul server dove vado a salvare i modelli di word, che
attualmente risiedono nella stessa directory del database, (e non va
bene),  e li richiamo con il seguente codice:
Modello = CurrentDb.Name
Modello = Left(Modello, Len(Modello) - Len(Dir(Modello))) &"Mod2B.dot"
dove Dir è la directory dove risiede anche il database, però il "Dir"
nel mio caso dovrebbe diventare il percorso del server, quindi cosa
scrivo?
Tommy

 ha scritto nel messaggio news:1131473356....@z14g2000cwz.googlegroups.com...
Scusa ho provato ma non riesco, ho cercato anche MkDir sull'help ma non
lo trovo, comunque partiamo dall'inizio, io dovrei crearmi una
[risposta]
http://msdn.microsoft.com/archive/default.asp?url=/archive/en-us/office97/html/output/F1/D6/S5B215.asp
directory sul server dove vado a salvare i modelli di word, che
attualmente risiedono nella stessa directory del database, (e non va
bene),  e li richiamo con il seguente codice:
Modello = CurrentDb.Name
Modello = Left(Modello, Len(Modello) - Len(Dir(Modello))) &"Mod2B.dot"
dove Dir è la directory dove risiede anche il database, però il "Dir"
nel mio caso dovrebbe diventare il percorso del server, quindi cosa
scrivo?
Tommy
[risposta]
Non ho capito quando dici: "...però il "Dir" nel mio caso dovrebbe diventare il percorso del server..."; che differenza c'è tra 
quello che ti ho scritto io e quello che dovresti fare tu?
Ciao.
-- 
Sergio MAZZA 

praticamente in questa stringa di codice
Modello = CurrentDb.Name
Modello = Left(Modello, Len(Modello) - Len(Dir(Modello))) &"Mod2B.dot"
devo sostituire il "Dir" che si riferisce alla directory dove è
installato il database, con il percorso della cartella sul server, ho
provato
sostituendo al dir path="\\server\CartellaModelli\", ma non mi
funziona, qual'è la sintassi giusta?
Grazie per la pazienza..
Tommy

 ha scritto nel messaggio news:1131551312.6...@g49g2000cwa.googlegroups.com...

[risposta]
Forse dovresti mappare la risorsa condivisa per creare un disco virtuale e indicare quello come percorso...
Ciao.
-- 
Sergio MAZZA