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
how can i translate gujarati sentence into english sentence ??
Problems after Sharepoint server 2010 install - can not open central administration
Running the System Update readiness tool.
SQL Simple syntax issue - based on Group By / Having
OCS 2007 R2 and Cisco call manager
converting an Exchange/SQL server machine to VM using sysinternals tool
Motherboard driver CD for HCL - P5GD2-TVM/GB/SI
Login control design and Programming
Which is better G711 alaw, or GSm codecs
OMA problem in Exchange 2010 - HTTP Error 500.24