asked on 10/5/2011

Use Access 2010 macro and VBA code XCopy Folders and Files from network server to Tablet.

I need create an Access Macro that will copy folders and files from a server to a directory on tablet attached to the local workstation. \\oiclx\public\tabletsync e:\. I can either execute this from a macro, use vba from command button, run a batch file--which ever is best and least complicated but reliable. Thank you.

Microsoft Access VB Script

Last Comment

MarkSnark1

10/7/2011

kmslogic

10/6/2011

Something like this should work in a button click event to copy your files (in VBA):

Dim strFile As String

strFile = Dir("\\oiclx\public\tabletsync\*.*")
While strFile <> ""
FileCopy strFile, "E:\"
strFile = Dir()
Wend

MarkSnark1

10/6/2011

ASKER

I made the button as Kmslogic prescribed below but nothing happens when the button is pushed, no error message, no trouble shooter, nothing. I appreciate your help. While this looks like something that will work well for my purposeses it must need another tweak.

Private Sub Sync_Click()
Dim strFile As String

strFile = Dir("\\oiclx\public\tabletsync\*.*")
While strFile <> ""
FileCopy strFile, "E:\"
strFile = Dir()
Wend

End Sub

kmslogic

10/6/2011

Put a breakpoint (place your cursor on the strFile=Dir line and press the F9 function key) in the VB editor and then click the button. Make sure we're getting into the function. If we are then you can step through each line by pressing SHIFT-F8.

MarkSnark1

10/7/2011

ASKER

Thank you for responding. I put a bread point in where you said, saved the form, tried it again and still nothing happens.

kmslogic

10/7/2011

Ok if nothing happens then that function isn't set as your click event on the button. Right click on the button and select properties so the properties box appears. Click on the events tab. Press the "..." button next to the event and select "Code Builder" and click Ok. Put your code in the function it gives you.

MarkSnark1

10/7/2011

ASKER

Yes, That is what I showed you above after you gave the original code. Is there a way to check if "Filecopy" is a valid command on my system? I am using Office/Access 2010.

ASKER CERTIFIED SOLUTION

kmslogic

10/7/2011

THIS SOLUTION IS ONLY AVAILABLE TO MEMBERS.

View this solution by signing up for a free trial.

Members can start a 7-Day free trial and enjoy unlimited access to the platform.

See Pricing Options

Start Free Trial

MarkSnark1

10/7/2011

ASKER

I was told that the event was not set up correctly but I set it up three different times to put the code in the Click event on the button and the code just is not running. I showed the resulting setup from the vba editor. I don't know what else to do.

kmslogic

10/7/2011

I understand your frustration, but really you shouldn't accept the answer if it doesn't solve your problem. If the on click event is set up correctly then you aren't setting up the breakpoint correctly. I really has to be one of those two things. When you press F9 on the line:

strFile = Dir("\\oiclx\public\tabletsync\*.*")

it should be highlighted in a dark red color which signifies the breakpoint is in place. Then when you press the button on your form it should stop at this line of code.

kmslogic

10/7/2011

A couple of changes to what I sent you (of course you would have gotten an error message--not just "nothing"):

strFile = Dir("\\oiclx\public\tabletsync\*.*")
While strFile <> ""
FileCopy "\\oiclx\public\tabletsync\" & strFile, "E:\" & strFile
strFile = Dir()
Wend

I typed that function from memory and it turns out strFile will just be the filename without the path hence the changes on the FileCopy line.

You're having another problem of getting the event to fire but I have tested the above code in Access 2010 and it does work.

MarkSnark1

10/7/2011

ASKER

Thanks for trying. I cannot think of what might be wrong.