splitting a column in alphabetic folders?

I have a tricky question (at least for me it's difficult).

I have a number of rows like this:

(Only one column)

arthur
augustine
axl
ceasar
david
erica
elaine

and so on (quite a few rows, for about 20000 in fact)

i would like to put a file for each row beginning with "A" in its own folder, called "A", and so on, for each letter in the alphabet.

In this case: 3 files in "A"-folder, one file in "C", and one in "D", and two in "E".

This seems very difficult. I have no idea how to do this "split"?

Could someone with more experience give me a VBA-example of how i would do this (i understand that it would have to be a loop going through all the rows, but that's about all i know)...

Thanks for any help,
Goncha.

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

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.

Hello!!

Thank you for trying to help me, nagasrikanth!

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

G.

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..

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.

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

VB Code:

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