Create a directory form access?

[mattar12]

I'm sure this is possible with VBA, but I don't know how where to start. I'm mildly familiar with VBA, but not near fluent.

I'm trying to improve a database that I use daily for work. I store client records on an external hard drive. I already created a dynamic hyperlink for the folder that is essentially: C:\.....\[file_as]

that link works fine if the folder exists, but if it doesn't exist it returns an error. I want to be able to create the directory from here.

For instance when I click "Client Documents" rather than the error message coming up, I'd like it to say "this folder does not exist, would you like to create it?"

Any help is appreciated.
Thank you!!

[Rabbit]

The MkDir() function can create a directory.

[zmbd]

The MkDir will work Rabbit as stated; however, this doesn't sound like what you're after in the long run. In fact, at this point it doesn't even sound like a VBA issue and more along the lines of an OS situation.

Where is the hyperlink located: in a shortcut on the desktop; as a link in a data table?

And what EXACTLY is the error message that is showing when you click?

[NeoPa]

You can use the Dir() function (carefully) to determine if a file or folder exists (See below for my Exist() function that uses this.) and MkDir() (As Rabbit suggested) to create it if it doesn't.

Other than that you just need the logic of exactly what you want to do. We may be able to help with that if you make a start from what's here, but we avoid simply writing code for members. That's a waste of everyone's time.

'Exist() returns true if strFile exists.  By default ignores folders.
'22/05/2003 Rewritten with better code.
'20/05/2005 Added finding of R/O, System & Hidden files.
Public Function Exist(strFile As String, _
                      Optional intAttrib As Integer = vbReadOnly Or _
                                                      vbHidden Or _
                                                      vbSystem) As Boolean
    Exist = (Dir(PathName:=strFile, Attributes:=intAttrib) <> "")
End Function