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
Joomla Module
Dual bands and my laptop
Oracle Forms : How to populate checkboxes dynamically from the database
How to configure Active Sync in Exchange 2003 and iPhone 3GS
xaml parse error silverlight 4 from 3
How to connect treeview & listview or grid through Access database
350ft Coax Cable installation for modem
How to get selected row value from datatable in JSF ?
How to create and end a session for a user?
Secure Email for HIPAA compliance