Newsgroup: it.comp.appl.access
Titolo: Copia file

Ciao,
ho una richiesta un po' particolare...
nella mia maschera inserimento dati, ho un campo che in base ad alcuni
criteri mi genera un codice che è
Testo ID del record e data odierna (per es. Particolare n° 1 120509
ora, scatto un' immagine con la fotocamera digitale e la salvo sul PC.
da un pulsante in access volevo fare questo :
1 - su click apro explorer e vado a cercare l' immagine (non è detto
che è sempre nella stessa cartella)
2 - seleziono l' immagine
3 - il codice deve vedere l' immagine che ho selezionato
(immagine.jpg) e la copia su K:\ cambiandogli il nome
con quello generato dal mio campo.
es. C:\Cartella\Immagine.jpg deve diventare K: \Particolare n° 1
120509
Non so se mi sono spiegato bene o se la cosa sia fattibile
grazie 1000
Marco

Sono riuscito a fare ciò che voglio ma manca il cambio di nome al
momento di incollare...
con queste funzioni trovo il file da copiare :
'Dichiarazioni
Private Declare Function GetOpenFileName Lib "comdlg32.dll" _
            Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME)
As Long
Private Type OPENFILENAME
   lStructSize As Long
   hwndOwner As Long
   hInstance As Long
   lpstrFilter As String
   lpstrCustomFilter As String
   nMaxCustFilter As Long
   nFilterIndex As Long
   lpstrFile As String
   nMaxFile As Long
   lpstrFileTitle As String
   nMaxFileTitle As Long
   lpstrInitialDir As String
   lpstrTitle As String
   flags As Long
   nFileOffset As Integer
   nFileExtension As Integer
   lpstrDefExt As String
   lCustData As Long
   lpfnHook As Long
   lpTemplateName As String
End Type
'Funzione da richamare
Public Function cmdlg_file()
   'Autore: Stefano Bettini
   'Restituisce: il percorso completo del file selezionato
   Dim OpenFile As OPENFILENAME
   Dim lReturn As Long
   Dim sFilter As String
   OpenFile.lStructSize = Len(OpenFile)
   sFilter = "Ogni files (*.*)" & Chr(0) & "*.*" & Chr(0)
   OpenFile.lpstrFilter = sFilter
   OpenFile.nFilterIndex = 1
   OpenFile.lpstrFile = String(257, 0)
   OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
   OpenFile.lpstrFileTitle = OpenFile.lpstrFile
   OpenFile.nMaxFileTitle = OpenFile.nMaxFile
   OpenFile.lpstrInitialDir = "C:\"
   OpenFile.lpstrTitle = "Selezione"
   OpenFile.flags = 0
   lReturn = GetOpenFileName(OpenFile)
   If lReturn = 0 Then
      cmdlg_file = ""
   Else
      cmdlg_file = Left(OpenFile.lpstrFile, InStr(OpenFile.lpstrFile,
Chr$(0)) - 1)
   End If
End Function
sul pulsante ho messo :
Private Sub Comando8_Click()
    Dim appoggio As String
    Dim destinazione As String
    Dim nome As String
    appoggio = cmdlg_file
    destinazione = "J:\Folitec\DB Da SQL Server\Adesione inchiostri
\Immagini\"
    nome = Dir(appoggio, vbDirectory)
    FileCopy appoggio, destinazione & nome
End Sub
così facendo, mi copia effettivamente il file da me selezionato nella
cartella che voglio
dovrei però anche rinominarlo chiamandolo per esempio Pippo
in realtà il nome del file lo prenderò da un campo della tabella...
grazie
Marco

 in realt� il nome del file lo prender� da un campo della tabella...
FileCopy appoggio, destinazione & Me!MioCampo
?
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

 Access FAQ:
www.donkarl.com/it
Ho risolto, grazie
Marco