1 Attachment(s)
Create Folders based on a Form Range Help with second round of folder creation
Hi,
Attached is a database program which allows scan operator to create a bunch of sequentially numbered subfolders.
Select User Warren Nelson, Password is Welcome.
The beginning pathway exists in the table t_User_Scan_Paths, and a TempVars is set to the path for the logged on user.
While I can get the original range of folders created, if the scanner realizes they need more folders than were originally created, I would like to be able to add that range of folders, too.
The Form is f_Create_Folder_Structures, and here is the command button named cmd_Create_Folder_Structure On Click Event...
Code:
Option Compare Database
Option Explicit
Private Sub Form_Load()
Me.txt_Main_Scan_Path = TempVars!ScanPath
End Sub
Private Sub cmd_Create_Folder_Structure_Click()
Dim strBaseFolder As String
Dim strFolder As String
Dim i As Integer
On Error GoTo ProcErr
strBaseFolder = TempVars!ScanPath
strBaseFolder = _
strBaseFolder & _
"\" & Format(Date, "yyyy\-mm\-dd") ' This is an example of how other levels could be added
If CheckPath(strBaseFolder) = False Then
MsgBox "The base path could not be created." & vbNewLine & _
"Be sure the path does not end with a backslash."
Exit Sub
End If
For i = Val(Me.[txt_Start_Folder_Number]) To Val(Me.[txt_End_Folder_Number])
strFolder = strBaseFolder & "\" & i
If FolderExists(strFolder) Then
MsgBox strFolder & " already exists."
Else
MkDir strFolder
End If
Next i
EndProc:
Exit Sub
ProcErr:
MsgBox "Error " & Err.Number & "(" & Err.Description & ") in cmd_Create_Folder_Structure_Click"
Resume EndProc
End Sub
I am very new to VBA so any help would be greatly appreciated !!!
Thanks you,
Bill
