Вопрос : Если скоросшиватель не существует, то создайте одно

Я использую линию Кодего ниже в sub режиме раскрывает Эксел от доступа и сохраняю ее к курсу архива я определял ниже.  На моем Me.txt формы SubFolder отражает sub скоросшиватель что архив должен быть сохраненным class= " lineNumbers " >

1 >

xlBook.SaveAs " prettyprint " " class= id= " codeSnippet852972 >



 

Any больш оценены.  Спасибо! 


  
  class= 

Ответ : Если скоросшиватель не существует, то создайте одно

установьте это в РЕГУЛЯРНО модуле

Вариант точный
Публика объявляет свободу «imagehlp.dll» MakeSureDirectoryPathExists функции (lpPath ByVal как шнур) как длиной
---------------------

использовать

Звонок MakeSureDirectoryPathExists («C:\MainFolder\» & SubFolder Me.txt &» \ ")

это автоматически создаст скоросшиватели если они не делают существуют.
using это  
     Звонок MakeSureDirectoryPathExists («c:\a\b\c\d\e\ ")
оно создаст все скоросшиватели определенные в линии.
NOTE* последний характер линии должно быть зазор \