Hello,
I am trying to have access VBA copy a folder and then rename it to a naming convention based on the combo boxes.
The need naming convention should be me.combo131 & "_" & me.combo133 & "_" & me.combo135 & me.combo137
Help me
Dim FSO As New FileSystemObject
Dim FolderPath1 As String
Dim FolderPath2 As String
Dim FolderToPath As String
FolderPath1 = Me.Text139.Value
FolderPath2 = "C:\RASAP\Closeout\" & Me.Combo133 & "\"
If FSO.FileExists(Nz(Me.Text139.Value, "")) Then
FSO.CopyFile Me.Text139, FolderPath2 & "\", True
End If
I am trying to have access VBA copy a folder and then rename it to a naming convention based on the combo boxes.
The need naming convention should be me.combo131 & "_" & me.combo133 & "_" & me.combo135 & me.combo137
Help me
Dim FSO As New FileSystemObject
Dim FolderPath1 As String
Dim FolderPath2 As String
Dim FolderToPath As String
FolderPath1 = Me.Text139.Value
FolderPath2 = "C:\RASAP\Closeout\" & Me.Combo133 & "\"
If FSO.FileExists(Nz(Me.Text139.Value, "")) Then
FSO.CopyFile Me.Text139, FolderPath2 & "\", True
End If