save file from path

[miketamp]

hi
i Have a form with a textbox called "tbFile". that textbox takes file paths as value. also i have a button called "butt1". I want on the "butt1" click , the file which the file path represents on the textbox to save in the path c:\program files\dieta\.
the form's name is "input"
please help me.Thanx

 

[Remou]

Hi
I am not sure what you mean. Do you mean that textbox tbFile contains, eg, c:\data\filename.txt which you now want to save to c:\program files\dieta\filename.txt? If so, you could try adding:

FileCopy Me!tbFile.Text, "c:\program files\dieta\" _
& Filepart(Me!tbFile.Text)

to the OnClick event for your button, and this function to the module:

Function Filepart(str)
Filepart = Mid(str, InStrRev(str, "\") + 1)
End Function

Alternatively, you could use the FileSystemObject.