Microsoft
Software
Hardware
Network
Question : If folder does not exist, then create one
I use the line of code below in a sub routine that opens Excel from Access and saves it to the file path that I have specified below. On my form Me.txtSubFolder reflects the sub folder that the file is to be saved under.
1:
xlBook.SaveAs FileName:= “C:\MainFolder\” & Me.txtSubFolder & "\FileName.xlsx"
In the event that the folder name, which is stored as a value in Me.txtSubFolder, does not exist; then I need some code that will create the sub folder and name it after the value specified in Me.txtSubFolder.
Any ideas are greatly appreciated. Thanks!
Answer : If folder does not exist, then create one
place this in a REGULAR module
Option Explicit
Public Declare Function MakeSureDirectoryPathExist
s Lib "imagehlp.dll" (ByVal lpPath As String) As Long
---------------------
to use
Call MakeSureDirectoryPathExist
s("C:\Main
Folder\" & Me.txtSubFolder & "\")
this will automatically create the folders if they don't exists.
using this
Call MakeSureDirectoryPathExist
s("c:\a\b\
c\d\e\")
it will create all the folders specified in the line.
NOTE* the last character of the line must be a backslash \
Random Solutions
Files scp'ed from Unix servers to Win XP (running WinSSHD V5 ) could not be deleted on the PC
VMWare ESXI training material?
Wyse FTP Config
Exchange 2010 CAS and certificates
ASP.NET Membership minRequiredNonalphanumeric
Characters
Problem
Would you recommend Draytek Vigor 2820 for site-to-site VPN
Fortigate SSLVPN configuration
Group policy updates causes screen to flicker
Windows 2003 Server Restart Errors
Iseries OSV5R4 PM eserver iSeries telephone number