splitting a column in alphabetic folders?

[nagasrikanth]

im able to create upto directories...
im not getting how to create files...
can any body give me an example of creating files..

[nagasrikanth]

well...goncha

finally I got it..i dont know wether the process that im fallowing is right or not,
but im acheving the target...
chk the attachment once.

[goncha1]

Hello!!

Thank you for trying to help me, nagasrikanth!

The file you attached contains only a database. Did you forget to add something?

G.

[nagasrikanth]

Nothing else is required...
just chk out the database and in the forms open the form,and click the button...

it will results u r folders and files in "C:\" Drive..

[goncha1]

I can not read the database direct from where i am.
Could you please show me the code direct here in the forum instead, or send it to me as a message?

Many thanks in advance for your time,
G.

[nagasrikanth]

okay...then...here is the code...
first place u r data in a table named "table1" and then run this code by placing it in a form

Option Compare Database
Option Explicit
Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long
Private Type SECURITY_ATTRIBUTES
    nLength As Long
    lpSecurityDescriptor As Long
    bInheritHandle As Long
End Type
 
 
Private Sub Command0_Click()
    Dim Security As SECURITY_ATTRIBUTES
    Dim prevletter
    Dim fstletter
    Dim lngHandle As Long
    Dim rst As Recordset
    Dim fs As New FileSystemObject
    Dim flname
    Dim fl
    Set rst = CurrentDb.OpenRecordset("table1")
    If Not rst.RecordCount = 0 Then
        rst.MoveFirst
        While Not rst.EOF
        fstletter = Left(rst(0), 1)
        If Not prevletter = fstletter Then
            CreateDirectory "C:\" & fstletter, Security
            prevletter = fstletter
        End If
        flname = fs.BuildPath("c:\" & fstletter, rst(0) & ".txt")
        Set fl = fs.CreateTextFile(flname, True)
        rst.MoveNext
        Wend
    End If
 
 
End Sub