Question : Si la chemise n'existe pas, alors créer un

J'emploie la ligne du code ci-dessous dans une routine secondaire qui ouvre Excel de l'accès et la sauve au chemin de dossier que j'ai spécifié ci-dessous.  Sur mon Me.txt de forme le SubFolder réfléchit la chemise secondaire que le dossier est d'être class= sauvé les " lineNumbers " >

1 de >

xlBook.SaveAs de " prettyprint " de class= de l'id= " codeSnippet852972 " de >



 de 

Any sont considérablement appréciées.  Merci ! 


class= de 

Réponse : Si la chemise n'existe pas, alors créer un

placer ceci dans un module RÉGULIER

Option explicite
Le public déclare la bibliothèque « imagehlp.dll » de MakeSureDirectoryPathExists de fonction (lpPath de ByVal comme corde) en tant que longtemps
---------------------

pour employer

Appel MakeSureDirectoryPathExists (« C:\MainFolder\ » et SubFolder de Me.txt et » \ ")

ceci créera automatiquement les chemises si elles ne font pas existe.
using ceci  
     Appel MakeSureDirectoryPathExists (« c:\a\b\c\d\e\ ")
il créera toutes les chemises spécifiques dans la ligne.
NOTE* le dernier caractère de la ligne doit être une barre oblique inverse \