We have a client who has a standard way of saving files for each of their clients on a shared network drive. This VBA code calculates what the shared network drive should be called for each client in a database and then checks to see if that directory already exists on the shared network drive. If it doesn't, it creates it.
CODE:
Dim strFilelocation As String
strFilelocation = "\\servername\customer\" 'get customer
Dim strCustomerName As String strCustomerName = DLookup("CompanyName", "Customer", "customerID=" & lngCustomerID) strFilelocation = strFilelocation & strCustomerName If Dir(strFilelocation, vbDirectory) = vbNullString Then MkDir strFilelocation End If |
VBA >