Creating Folders

[Blakey300]

Hi

I have the following code that creates a folder for each record in the
database:

Option Compare Database
Option Explicit

Function CreateGradingFolder()

Dim rs As DAO.Recordset

Set rs = Forms![Grading Events (Edit)].RecordsetClone
If Not rs.BOF And Not rs.EOF Then
Do While Not rs.EOF
CreateFolder rs![EventID] & " " & rs!Format([EventStartDate], "yyyy
mm dd")
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing



End Function

Private Sub CreateFolder(ASubFolder As String)

Dim strDesktop As String
Dim strSubfolder As String

strDesktop = "C:\Keibudo Karate Schools\Documents\Event Documents\Grading\"

If Len(Dir(strDesktop & ASubFolder, vbDirectory)) = 0 Then
MkDir strDesktop & ASubFolder
End If

End Sub

I know the following line is wrong, and i have put it in there to give an
idea of what i am trying to acheive.

CreateFolder rs![EventID] & " " & rs!Format([EventStartDate], "yyyy mm
dd")


Regards

Dave

 

[Daniel Pineault]

see your original post

http://www.microsoft.com/office/com...&p=1&tid=6209409d-ab01-4327-b867-7d3663fac3cc
--
Hope this helps,

Daniel Pineault
http://www.cardaconsultants.com/
For Access Tips and Examples: http://www.devhut.net
Please rate this post using the vote buttons if it was helpful.