Para Visual Basic 3 Pro

Creas un directorio para las tablas (por ejemplo c:\xx)

Dim db As Database
Dim t As New TableDef
Dim f As New Field
Set db = OpenDatabase("C:\xx", False, False, "dBase III;")
t.Name = "tabla1"
f.Name = "CAMPO"
f.Size = 10
f.Type = 10 'texto
t.Fields.Append f
db.TableDefs.Append t
db.Close

Magin escribió como respuesta a al asunto:

>Con el DAO puedes abrir distintos tipos de Bases de Datos, pero sólamente
>puedes crear bases de datos del tipo MDB.

La cosa no es así.
Para crear una Base de Datos para tablas con formato .DBF se hace así (no lo
probé):

    MkDir

y para crear las tablas va el ejemplo:

    Dim db As Database
    Dim t As TableDef
    Dim f As Field
    Set db = OpenDatabase("C:\TMP", False, False, "dBase III;")
    Set t = db.CreateTableDef("TABLA.DBF")
    Set f = t.CreateField("CAMPO", dbText, 10)
    t.Fields.Append f
    db.TableDefs.Append t
    db.Close


------------------------------------------------
e-mail <peky@satlink.com>