Look at the following:
It checks for the directory and creates it if it doesn't exist.
Dim strPath As String
strPath = "G:\NewYorkBilling\Clearstream\" & CStr(Format(Forms![frmMain]![cboMonth], "yyyy"

)
If Dir(strPath, vbDirectory) = "" Then
MkDir (strPath)
End If
****************************
Only two things are infinite, the universe and human stupidity, and I'm not sure about the former. (Albert Einstein)
Robert L. Johnson III
MCSA, CNA, MCP, Network+, A+
w: robert.l.johnson.iii@citigroup.com
h: wildmage@tampabay.rr.com