Here's a piece of code from a macro I use:
Dim Path As String
Path = "C:Documents and SettingsSHartmanMy DocumentsRata" & Year(Date)
' Check if directory for this year exists
If Dir(Path, vbDirectory) = "" Then
'If not, make it
MkDir "C:Documents and SettingsSHartmanMy DocumentsRata" & Year(Date)
End If
Of course the double slashes should be single slashes.Hope this gets you started
This message was edited by Steve Hartman on 2002-02-28 05:10
This message was edited by Steve Hartman on 2002-02-28 05:39
This message was edited by Steve Hartman on 2002-02-28 05:41