Good afternoon!
I have this code that I use to automatically create folders on our server if they don't already exist. strDir1 is the Sub folder and strDir2 is the Lot folder.
What I'd like to do now is create six dummy PDF files in the newly-created Lot folder.
If the existing macro creates a subdivision folder called Test_Folder_9999 and within that folder a lot folder called TST_001, I now need to create these dummy PDFs in the TST_001 folder that uses the G1 value as part of the file name:
TST_001_floor_plans.pdf
TST_001_floor_system.pdf
TST_001_plans.pdf
TST_001_boise_cut_sheets.pdf
TST_001_plot_plan.pdf
TST_001_options.pdf
Make sense? There's not a lot of information on creating dummy files when I search.
I have this code that I use to automatically create folders on our server if they don't already exist. strDir1 is the Sub folder and strDir2 is the Lot folder.
VBA Code:
Sub CreateSubAndLotFolder()
Const strPARENTDIR As String = "\\SERVER\Homes\"
Dim strDir1 As String
Dim strDir2 As String
strDir1 = Sheets("LotGrid").Range("H1").value 'Subdivision Name / SubCode
strDir2 = Sheets("LotGrid").Range("G1").value 'Sub Initials / Lot Number
If Len(Dir$(strPARENTDIR & strDir1, vbDirectory)) = 0 Then
MkDir strPARENTDIR & strDir1
MkDir strPARENTDIR & strDir1 & Chr$(92) & strDir2
ElseIf Len(Dir$(strPARENTDIR & strDir1 & Chr$(92) & strDir2, vbDirectory)) = 0 Then
MkDir strPARENTDIR & strDir1 & Chr$(92) & strDir2
End If
End Sub
What I'd like to do now is create six dummy PDF files in the newly-created Lot folder.
If the existing macro creates a subdivision folder called Test_Folder_9999 and within that folder a lot folder called TST_001, I now need to create these dummy PDFs in the TST_001 folder that uses the G1 value as part of the file name:
TST_001_floor_plans.pdf
TST_001_floor_system.pdf
TST_001_plans.pdf
TST_001_boise_cut_sheets.pdf
TST_001_plot_plan.pdf
TST_001_options.pdf
Make sense? There's not a lot of information on creating dummy files when I search.