Vraag : Als de omslag niet bestaat, dan cre�ër

Ik gebruik de lijn van code hieronder in een subroutine die Excel van Toegang opent en het aan de dossierweg bewaart die ik hieronder heb gespecificeerd.  Op mijn vorm Me.txt wijst SubFolder op de subomslag dat het dossier under.

1 moet worden bewaard:

xlBook.SaveAs: = „C:\MainFolder\“ & Me.txt SubFolder &“ \ FileName.xlsx "

in het geval dat de omslagnaam, die als waarde in Me.txt SubFolder wordt opgeslagen, niet bestaat; dan heb ik één of andere code nodig die tot de subdieomslag zal leiden en het na de waarde noemen zal in Me.txt SubFolder wordt gespecificeerd. de ideeën

Any zeer gewaardeerd.  Dank!

Antwoord : Als de omslag niet bestaat, dan cre�ër

plaats dit in een REGELMATIGE module

Expliciete optie
Het publiek verklaart de Lib „imagehlp.dll“ van MakeSureDirectoryPathExists van de Functie (ByVal lpPath als Koord) zoals lang


aan gebruik

Vraag MakeSureDirectoryPathExists („C:\MainFolder\“ & Me.txt SubFolder &“ \ „)

dit zal automatisch tot de omslagen leiden als zij niet bestaan.
het gebruiken van dit  
     Vraag MakeSureDirectoryPathExists („c:\a\b\c\d\e\“)
het zal tot alle die omslagen leiden in de lijn worden gespecificeerd.
NOTE* het laatste karakter van de lijn moet backslash \ zijn