Oppure

Loading
01/05/07 14:58
c.ronaldo
Aspetta...ora vedo:k:
aaa
01/05/07 15:06
c.ronaldo
Non riesco...

Comunque puoi usare il file system object:


Private Sub Form_Load()
FileCopy ("percorso"), ("percorso dove viene inviato")
End Sub

Public Sub FileCopy(strSourcePath As String, strDestinationPath As String)
Dim fso As Object
Dim fil As Object
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set fil = fso.getfile(strSourcePath)
  fil.Copy strDestinationPath
Set fil = Nothing
Set fso = Nothing
End Sub



Fammi sapere...:k:
aaa
01/05/07 16:12
Hacker
Postato originariamente da FREESTYLE:

img381.imageshack.us/img381/7986/…

prova a togliere le parentesi tonde.
aaa
01/05/07 16:55
FREESTYLE
provato con gli ultimi 2 metodi, e in entrambi mi dice "file non trovato" :-|
aaa
01/05/07 17:14
c.ronaldo
Allora è un problema di Directory...Vedi se esiste e controlla come l'hai scritta;)
aaa
01/05/07 21:40
FREESTYLE
all'inizio non era un problema di directory.. cmq ho controllato + volte ma nn lo da..

"documents and setting" si scrive con lo spazio o al posto degli spazi devo metterci qualcosa..? (forse è qui che sbaglio..)

se a voi funziona potreste postare due directory di esempio..?
thx
aaa
02/05/07 5:30
c.ronaldo
Aspetta....Ora vedo;)
aaa
02/05/07 5:33
c.ronaldo
Ecco a me funziona!


Private Sub Form_Load()
FileCopy ("C:\Documents and Settings\Davidino\Desktop\H.pas"), ("C:/")
End Sub

Public Sub FileCopy(strSourcePath As String, strDestinationPath As String)
Dim fso As Object
Dim fil As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set fil = fso.getfile(strSourcePath)
fil.Copy strDestinationPath
Set fil = Nothing
Set fso = Nothing
End Sub




Prova a cambiare directory,solo per prova!
aaa