hyperlink to scan into folder

[angie]

I use the following code to open a hyperlink to a folder foreach customer in our database.
This folder is where items are scanned into for eachcustomer using scanSnap ix500 using there software to do the scanning. I would like to create another button to scaninto each folder while in the customer record. And if there is no folder itwould create the folder and continue scanning into the created folder.
Not sure if this can be done but just thought I would ask.


“click a button that would scan into a folder using thehyperlink and if no folder create one” without using the software that camewith the scanner.

Private Sub Customer_Doc_Button_Click()
FollowHyperlink ("\\office\users\officeoffice\documents\custome rs files" & Me.CustomerID)
End Sub

[June7]

Use Dir() function to check if folder or file exists. Use MkDir() to create folder.

If Dir("file or folder path here") = "" Then

However, I don't understand how you can do scan without the scanner.

[rpeare]

I think you'll need to insert another \ mark in there too

i.e.

FollowHyperlink ("\\office\users\officeoffice\documents\customersf iles" & Me.CustomerID)

unless your folder is actually named customersfiles10001 for example instead of customerfiles\10001\

I think the followhyperlink would just open a file dialog window though, as june said you'd have to force the creation of the folder with with mkdir or using filesystemobject commands.

[June7]

I'm betting OP had ...customers files\ and forum post dropped the \.

To check for a folder (a \ at end not needed but would not hurt):

Dir("C:\Users\June\Forums", vbDirectory)

A file is default parameter but can be explicit:

Dir("C:\Users\June\Forums\*.pdf", vbNormal)

[angie]

I am sorry but I have never used the Dir() or the MkDir() before not sure where I should put it in the above that I used.

[June7]

You put it in the button code before the FollowHyperlink line. Use a variable.

strPath = \\office\users\officeoffice\documents\customers files\" & Me.CustomerID
If Dir(strPath, vbDirectory) = "" Then MkDir(strPath)
FollowHyperlink(strPath)

NOTE: Cannot get forum to not treat the path as a hyperlink because of space in "customers files", just ignore the highlight/underscore. Advise not to use spaces in any naming convention. Is "office" actually doubled in the path?

[angie]

Thank you June7, it works great. now if I can find a way to scan directly into the folders.