Cannot create a directory

[colinharwood]

Hi
When using the following code, I get a runtime error 76, path not found, when the mkdir line is reached can anyone please explain what is wrong.
Thanks

Sub PrintPDFCard()

Dim ThisFile As String
Dim FileDrive As String
Dim strFolderName As String
Dim strFolderExists As String

'Check if folder exists
strFolderName = "C:\users\adria\tonbridge mes folders\TMES email renewals"
strFolderExists = Dir(strFolderName, vbDirectory)

If strFolderExists = "" Then
'If folder doesn't exist"
MkDir "C:\users\adria\tonbridge mes folders\TMES email renewals\"
Else
'If folder does exist
GoTo CreatePDF
End If

CreatePDF:

CreateObject("WScript.Network").SetDefaultPrinter "Microsoft Print to PDF"

Range("$A$1:$H$42").Select
ThisFile = Range("N3").Value & " " & Range("O3").Value
FileDrive = "C:\TMES email renewals\"
Selection.PrintOut Copies:=1, ActivePrinter:= _
"Microsoft print to pdf", Collate:=True, _
printtofile:=True, prtofilename:=FileDrive & ThisFile & ".pdf"
Sheets("PDF Membership Card").Range("S1").Select

CreateEmail:

' Create Email to someone
sCmd = "C:\Program Files\Mozilla Thunderbird\thunderbird.exe"
Email = Range("N4").Value 'email address
Subject = "PDF Membership Card"
Content = "Hi%20%0A%0APlease find attached a PDF Membership Card%20%0A%0ARegards%0A%0AAdrian Banks%0A%0ATreasurer"
Attch = "C:\TMES email renewals\" & ThisFile & ".pdf" ' file name and path
sCmd = sCmd & " -compose " & "to=" & Email
sCmd = sCmd & ",subject=" & Subject
sCmd = sCmd & ",attachment=" & Attch
sCmd = sCmd & ",body=" & Content
Call Shell(sCmd, vbNormalFocus)

End Sub

 

[Logit]

strFolderName = "C:\users\adria\tonbridge mes folders\TMES email renewals"

Does tonbridge mes folders already exist ? If not ... you'll need to create that folder first ... then you can use the above line to create the last folder TMES email renewals

 

[colinharwood]

Thank you, so you can only create one sub folder at a time.

 

[Logit]

You can create a Folder and Subfolder at the same time, but the coding needs to be different.

Here is one example that might assist in understanding : Macro to Create Folders and Subfolders

You can always GOOGLE : vba create folder and subfolder

 

[colinharwood]

Thanks again

 

[Marc L]

so you can only create one sub folder at a time.

​

Hi, as you are under Windows it can be achieved at once just using MakeSureDirectoryPathExists like in this thread :​

​

Create Folders & Sub-Folders as per cell of Excel

Dear Sir, This is my excel: Sr.No. Total Link loan Unique ID Loan_No Link Loan No. 2 Link Loan No. 3 Link Loan No. 4 8 4 9814829 1747399 13132286 5527073 2989781 10 4 9808897 9865324 3712775 13290211 1161743 1 2 524444 6477143 2 1 9353504 6431728 3 2 9808823 8386959...

www.mrexcel.com

 

[colinharwood]

Thanks a lot