LoriCapital
Programmer
I am trying to open a sub sub directory through Access VPA so that it will open the following folders:
\\maps and attachments\alternates\Yuma - CA \ RingID - Search
main dir sub dir sub dir sub dir
I already have the part where you create the directories, but my problem is that I can't get it to open the final sub dir (which are 2 separate fields in access). I have this working up to sub sub directory. Please note that after the "alternates" part the rest change based on each records information. Below is the code of what I have so far. I hope you can help as my db is almost up to 2 GB
Dim RetVal, myPath As String
On Error GoTo BadFolder
myPath = "C:\WINDOWS\EXPLORER.EXE U:\Maps and Attachments\Alternates\" & B_8 & " - " & B_9
RetVal = Shell(myPath, 1)
GoTo DoneIt
BadFolder:
MsgBox ("Please Create the Folders for this Job")
DoneIt:
\\maps and attachments\alternates\Yuma - CA \ RingID - Search
main dir sub dir sub dir sub dir
I already have the part where you create the directories, but my problem is that I can't get it to open the final sub dir (which are 2 separate fields in access). I have this working up to sub sub directory. Please note that after the "alternates" part the rest change based on each records information. Below is the code of what I have so far. I hope you can help as my db is almost up to 2 GB
Dim RetVal, myPath As String
On Error GoTo BadFolder
myPath = "C:\WINDOWS\EXPLORER.EXE U:\Maps and Attachments\Alternates\" & B_8 & " - " & B_9
RetVal = Shell(myPath, 1)
GoTo DoneIt
BadFolder:
MsgBox ("Please Create the Folders for this Job")
DoneIt: