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
Problem with Templated User Control
Windows 2008 32bit to 2008 64 bit R2 upgrade
Repair exchange database on difference server ?
Cannot connect to database errors
How do I resolve this error "javax.xml.ws.WebServiceEx
ception .... Place the resource correctly in the classpath.?
How do I setup my domain controller to keep the correct time on my domain?
System Config utility opens at login everytime
how do you read a list of links from a sql database SP and print the list on a aspx .NET ASP page C#
Assigning a GPO to specific users and one Server only ?
Custom Search Page and Impersonation