Fråga : Om mappen inte finns, då skapa en

Jag använder fodra av kodifierar nedanfört i ett underrutinmässigt som öppnar Excel från tar fram och sparar den till sparabanan att jag har specificerat nedanfört.  På mitt bilda den Me.txt subFolderen reflekterar undermappen som spara är att vara sparad för class=" codeSnippet " för under.

1 för >xlBook.SaveAs " för prettyprint " för class= för id= " codeSnippet852972 " för >

In händelsen som den kända mappen, som lagras som en värdera i den Me.txt subFolderen, inte finns; därefter jag behöver något kodifierar att ska skapa undermappen och namnge den efter värdera som specificeras i den Me.txt subFolderen. idéer för

Any uppskattas väldeliga.  Tack!
" klar "

Svar : Om mappen inte finns, då skapa en

förlägga detta i en STAMGÄSTenhet

Explicit alternativ
Allmänhet förklarar fungerar den MakeSureDirectoryPathExists liben ”imagehlp.dll” (ByVal lpPath som stränger) som Long
---------------------

att att använda

Appell MakeSureDirectoryPathExists (”C:\MainFolder\” & den Me.txt subFolderen &” \ ”)

detta som automatiskt ska, skapar mapparna, om de inte gör finns.
using detta  
     Appell MakeSureDirectoryPathExists (”c:\a\b\c\d\e\”)
den ska skapar alla mappar som specificerades i fodra.
NOTE* det sist teckenet av fodra måste vara en interpunktionstecken \,