У меня есть код для создания папки или открытой папки, если она существует, которая работает полностью нормально.Теперь моя единственная проблема заключается в том, что в этой базе может быть 3 пользователя, и у 3 пользователей есть индивидуальный путь к родительской папке.Все они используют и совместно используют все папки в родительской папке и имеют одно и то же имя родительской папки, только путь для родительской папки различен.Мой существующий код выглядит следующим образом:
Private Sub Command299_Click()
Const strParent = "C:\Users\xxx\xxx\Jobs\"
Dim strJobID As String
Dim strClient As String
Dim strFolder As String
Dim fso As Object
' Create FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
' Get year from control - modify as needed
strClient = "(" & Me.[Client ID] & ") " & [Client Name]
' Path with year
strFolder = strParent & strClient
' Check whether folder exists
If fso.FolderExists(strFolder) = False Then
' If not, create it
fso.CreateFolder strFolder
End If
' Get student ID from control
strJobID = Me.[Job ID] & " " & [Job name]
' Full path
strFolder = strFolder & "\" & strJobID
' Check whether folder exists
If fso.FolderExists(strFolder) = False Then
' If not, create it
fso.CreateFolder strFolder
End If
' Open it
Shell "explorer.exe " & strFolder, vbNormalFocus
End Sub
Как я уже сказал, он отлично работает на моем компьютере, где путь к родительской папке const - это то, что находится в коде, но как я могу заставить этот код работать по другому пути??Моя первая идея состояла в том, чтобы дать оператор «или» в строке Const Const strParent = «C: \ Users \ xxx \ xxx \ Jobs \», но он не хотел работать.Есть ли способ указать 3 постоянных пути для родительской папки, и если одна из них существует, работать оттуда?
Спасибо за любую помощь!