object[] polyArray = new object[3];
polyArray[0] = "some str";
polyArray[1] = 12;
polyArray[2] = DateTime.Now;

string str = (string)polyArray[0];

Hashtable ht = mew Hashtable();
ht.Add("one", 1);
ht.Add("two", 2);
ht.Add("three", 3);

int oneVal = ht["one"];

Hashtable[] data = new Hashtable[3];
...
object val = data[2]["key"];

Hashtable ht = new Hashtable();
ht.Add("key", new object[3]);
...
object val = ((object)ht["key"])[2];

// Массива массивов интов. Инициализируется пустым массивом.
int[][] aryOfAryOfInt = new int[3][];

// А вот это уже многомерный массив
int[,][] aryIntMatrix = new int[3,3];

// А вот разница
aryOfAryOfInt[0] = new int[2];
aryOfAryOfInt[1] = new int[1000];
aryOfAryOfInt[2] = null;

aryOfAryOfInt[0][1] = 123;

aryIntMatrix[0,1] = 123;

using System;
using System.Collections;

namespace ArrayEx
{
    class Class1
    {
        
        [STAThread]
        static void Main(string[] args)
        {
            Hashtable[] hash;
            hash=new Hashtable[3];
            hash[0]=new Hashtable();
            hash[0].Add("First",23);
            
            Console.WriteLine(hash[0]["First"]);
        }
    }
}

An array in PHP is actually an ordered map. A map is a type that maps values to keys. This type is optimized in several ways, so you can use it as a real array, or a list (vector), hashtable (which is an implementation of a map), dictionary, collection, stack, queue and probably more.

EL> Что то вроде int [][][] CFG2 = new int [x][][]. Я пытался — что то не чего не выходит. Интересно как его инициализировать в конструкторе?

int[][][] aiii = new int[][][]
{
    new int[][]
    {
        new int[]{ 1, 2, 3 },
        new int[]{ 4, 5, 6 },
        new int[]{ 7, 8, 9 }
    },
    new int[][]
    {
        new int[]{ 1, 2, 3 },
        new int[]{ 4, 5, 6 },
        new int[]{ 7, 8, 9 }
    }
};

Console.WriteLine("Первый уровень.");
foreach(int[][] aii in aiii)
{
    Console.WriteLine("Второй уровень.");
    foreach(int[] ai in aii)
    {
        Console.WriteLine("Третий уровень.");
        foreach(int i in ai)
            Console.Write(i + "\t");
        Console.WriteLine();
    }
}
Console.WriteLine("Нажимите Enter зачем-нибудь...");
Console.ReadLine();

EL>> Что то вроде int [][][] CFG2 = new int [x][][]. Я пытался — что то не чего не выходит. Интересно как его инициализировать в конструкторе?

VD>int[][][] aiii = new int[][][]
VD>{
VD>    new int[][]
VD>    {
VD>        new int[]{ 1, 2, 3 },
VD>        new int[]{ 4, 5, 6 },
VD>        new int[]{ 7, 8, 9 }
VD>    },
VD>    new int[][]
VD>    {
VD>        new int[]{ 1, 2, 3 },
VD>        new int[]{ 4, 5, 6 },
VD>        new int[]{ 7, 8, 9 }
VD>    }
VD>};

VD>Console.WriteLine("Первый уровень.");
VD>foreach(int[][] aii in aiii)
VD>{
VD>    Console.WriteLine("Второй уровень.");
VD>    foreach(int[] ai in aii)
VD>    {
VD>        Console.WriteLine("Третий уровень.");
VD>        foreach(int i in ai)
VD>            Console.Write(i + "\t");
VD>        Console.WriteLine();
VD>    }
VD>}
VD>Console.WriteLine("Нажимите Enter зачем-нибудь...");
VD>Console.ReadLine();
VD>

VD>Кстати, инициализация реально идет в рантайме. Жертвы крутому рантайму.

using System;
using System.Drawing;
using System.Collections;
using System.ComponentModel;
using System.Windows.Forms;
using System.Data;

namespace Arrays_of_Arrays_of_Arrays
{
    
    public class Form1 : System.Windows.Forms.Form
    {
        private System.Windows.Forms.Button button1;

        public int[][][] aiii = new int[2][][];
    
        public Form1()
        {
            // Первый уровень ...
            aiii [0]  = new int[2][];
            aiii [1]  = new int[3][];
                        
            // Второй уровень ...
                        
            // aiii [0]:
            // 1
            aiii [0][0]  = new int[2];
            // 2
            aiii [0][1]  = new int[1];
            
            // aiii [1]:
            // 3
            aiii [1][0]  = new int[3];
            // 4
            aiii [1][1]  = new int[2];
            // 5
            aiii [1][2]  = new int[1];
            
            // Третий уровень ...

            // Заполняем элементами
            // 1
            aiii[0][0][0] = 1;
            aiii[0][0][1] = 2;
            // 2
            aiii[0][1][0] = 3;
            // 3
            aiii[1][0][0] = 4;
            aiii[1][0][1] = 5;
            aiii[1][0][2] = 6;
            // 4
            aiii[1][1][0] = 7;
            aiii[1][1][1] = 8;
            // 5
            aiii[1][2][0] = 9;
            
            InitializeComponent();
        }

        static void Main() 
        {
            Application.Run(new Form1());
        }

        private void InitializeComponent()
        {
            this.button1 = new System.Windows.Forms.Button();
            this.SuspendLayout();
            // 
            // button1
            // 
            this.button1.Location = new System.Drawing.Point(160, 64);
            this.button1.Name = "button1";
            this.button1.Size = new System.Drawing.Size(56, 56);
            this.button1.TabIndex = 0;
            this.button1.Text = "button1";
            this.button1.Click += new System.EventHandler(this.button1_Click);
            // 
            // Form1
            // 
            this.AutoScaleBaseSize = new System.Drawing.Size(5, 13);
            this.ClientSize = new System.Drawing.Size(292, 265);
            this.Controls.Add(this.button1);
            this.Name = "Form1";
            this.ResumeLayout(false);

        }

        private void button1_Click(object sender, System.EventArgs e)
        {
            /*
            типа тут печать массива должна была быть ...
            */
            
            // Application.Exit();
            
            //    Console.WriteLine("Нажимите Enter зачем-нибудь...");
            //    Console.ReadLine();
        }
        
    }
}

ВВ>> совместимости не то чтобы с VB6, а скорее с программистами на VB6

Imports System.Xml
Imports System.Xml.Serialization
Imports System.IO
Module Module1

    Sub Main()
        Dim AInst As New A
        Dim OInst As New Object
        OInst = AInst

        OInst.MyFuckingMethod() 'Sic!

    End Sub

End Module

Public Class A
    Public Sub MyFuckingMethod()
        Console.WriteLine("Some shit")
        Console.ReadLine()
    End Sub
End Class

MyType[] arr;

MyType Get(int);
MyType GetAt(int);
...
void Set(int, MyType);
void SetAt(int, MyType);
...

A jagged array is an array whose elements are arrays. The elements of a jagged array can be of different dimensions and sizes. A jagged array is sometimes called an "array-of-arrays."

Note that jagged arrays are not compliant with the common language specification (CLS). This means you should not expose jagged arrays from any class you want CLS-compliant code to consume. For more information, see Arrays.

19.1 Array types
An array type is written as a non-array-type followed by one or more rank-specifiers:

array-type:
  non-array-type   rank-specifiers
non-array-type:
  type
rank-specifiers:
  rank-specifier
  rank-specifiers   rank-specifier
rank-specifier:
  [   dim-separatorsopt   ]
dim-separators:
  ,
  dim-separators   ,

A non-array-type is any type that is not itself an array-type.
The rank of an array type is given by the leftmost rank-specifier in the array-type: A rank-specifier indicates that the array is an array with a rank of one plus the number of "," tokens in the rank-specifier.
The element type of an array type is the type that results from deleting the leftmost rank-specifier:
" An array type of the form T[R] is an array with rank R and a non-array element type T.
" An array type of the form T[R][R1]…[RN] is an array with rank R and an element type T[R1]…[RN].
In effect, the rank-specifiers are read from left to right before the final non-array element type. [Example: The type int[][,,][,] is a single-dimensional array of three-dimensional arrays of two-dimensional arrays of int. end example]
At run-time, a value of an array type can be null or a reference to an instance of that array type.

    Class CApp
        Public path As String
        Public recursive As Boolean

        Private tabs As String
        Private conn As New SqlConnection("Data Source=machine;User
id=user;password=password")

        Sub New(ByVal path As String, ByVal r As Boolean)
            If Directory.Exists(path) Then
                MyClass.path = path
                recursive = r
                conn.Open()
            Else
                Throw New DirectoryNotFoundException()
            End If
        End Sub

        Public Sub Process()
            Process(path)
        End Sub

        Private Sub Process(ByVal path As String)
            Dim cmd As New SqlCommand()
            Dim b As Boolean
            Dim oldtabs As String
            With cmd
                .Parameters.Add(.CreateParameter())
                .Parameters.Add(.CreateParameter())
                .Parameters.Add(.CreateParameter())
                .Parameters.Add(.CreateParameter())
                With .Parameters(0)
                    .ParameterName = "@return_value"
                    .SqlDbType = SqlDbType.Int
                    .Direction = ParameterDirection.ReturnValue
                End With
                With .Parameters(1)
                    .ParameterName = "@name"
                    .SqlDbType = SqlDbType.NVarChar
                    .Size = 1000
                    .Direction = ParameterDirection.Input
                End With
                With .Parameters(2)
                    .ParameterName = "@sd"
                    .SqlDbType = SqlDbType.Text
                    .Direction = ParameterDirection.Input
                End With
                With .Parameters(3)
                    .ParameterName = "@parent"
                    .SqlDbType = SqlDbType.Int
                    .Direction = ParameterDirection.Input
                End With
                .Parameters(1).Value = path
                .Parameters(2).Value = ""
                .Parameters(3).Value = 0
                .CommandText = "CreateFolder"
                .CommandType = CommandType.StoredProcedure
                .Connection = conn
                Try
                    .ExecuteNonQuery()
                Catch e As SqlException
                    b = True
                    Console.WriteLine(tabs & path & vbTab & " - error
message: " & e.Message)
                End Try
            End With
            If Not b Then
                Dim s As String
                Dim retval As Integer =
Convert.ToInt32(cmd.Parameters(0).Value)
                If retval > 0 Then
                    s = tabs & path & vbTab & " - inserts under " &
retval.ToString()
                Else
                    s = tabs & path & vbTab & " - error code " &
retval.ToString()
                End If
                Console.WriteLine(s)
                If retval > 0 Then
                    Dim di As New DirectoryInfo(path)
                    Dim fi As FileInfo
                    Dim dir As DirectoryInfo
                    UpdateFileInfo(di, retval)
                    tabs += "  "
                    Dim FolderId As Integer = retval
                    cmd.Parameters.Add(cmd.CreateParameter())

                    For Each fi In di.GetFiles()
                        cmd.Parameters(1).Value = fi.FullName
                        cmd.Parameters(2).Value = ""
                        cmd.Parameters(3).Value = FolderId
                        With cmd.Parameters(4)
                            .SqlDbType = SqlDbType.Int
                            .Direction = ParameterDirection.Input
                            .ParameterName = "@aid"
                            .Value = UpdateFileAttributes(fi.Attributes,
fi.Name)
                        End With
                        cmd.CommandText = "CreateFile"
                        Try
                            cmd.ExecuteNonQuery()
                        Catch e As SqlException
                            b = True
                            Console.WriteLine(tabs & fi.Name & vbTab & " -
error message: " & e.Message)
                        End Try
                        If Not b Then
                            retval =
Convert.ToInt32(cmd.Parameters(0).Value)
                            If retval > 0 Then
                                s = tabs & fi.Name & vbTab & " - inserts
under " & retval.ToString()
                            Else
                                s = tabs & fi.Name & vbTab & " - error code
" & retval.ToString()
                            End If
                            Console.WriteLine(s)
                            If retval > 0 Then
                                Dim cmd1 As New SqlCommand()
                                UpdateFileInfo(fi, retval)
                                With cmd1
                                    .Parameters.Add(.CreateParameter())
                                    .Parameters.Add(.CreateParameter())
                                    With .Parameters(0)
                                        .SqlDbType = SqlDbType.BigInt
                                        .Direction =
ParameterDirection.Input
                                        .ParameterName = "@fs"
                                        .Value = fi.Length
                                    End With
                                    With .Parameters(1)
                                        .SqlDbType = SqlDbType.Int
                                        .Direction =
ParameterDirection.Input
                                        .ParameterName = "@id"
                                        .Value = retval
                                    End With
                                    .CommandText = "update RealFile set
FileSize=" & _
                                        "@fs where id = @id"
                                    .Connection = conn
                                    .CommandType = CommandType.Text
                                    Try
                                        .ExecuteNonQuery()
                                    Catch e As SqlException
                                        Console.WriteLine(tabs & fi.Name &
vbTab & " - error message: " & e.Message)
                                    End Try
                                End With
                            End If
                        End If
                    Next
                    For Each dir In di.GetDirectories()
                        oldtabs = tabs
                        Process(dir.FullName) ' вот он! - рекурсивный вызов
                        tabs = oldtabs
                    Next
                End If
            End If
        End Sub

        Private Sub UpdateFileInfo(ByVal fsi As FileSystemInfo, ByVal id As
Integer)
            Dim cmd As New SqlCommand()
            With cmd
                .Parameters.Add(.CreateParameter())
                .Parameters.Add(.CreateParameter())
                .Parameters.Add(.CreateParameter())
                .Parameters.Add(.CreateParameter())
                With .Parameters(0)
                    .SqlDbType = SqlDbType.DateTime
                    .Direction = ParameterDirection.Input
                    .ParameterName = "@c"
                    .Value = fsi.CreationTime
                End With
                With .Parameters(1)
                    .SqlDbType = SqlDbType.DateTime
                    .Direction = ParameterDirection.Input
                    .ParameterName = "@a"
                    .Value = fsi.LastAccessTime
                End With
                With .Parameters(2)
                    .SqlDbType = SqlDbType.DateTime
                    .Direction = ParameterDirection.Input
                    .ParameterName = "@w"
                    .Value = fsi.LastWriteTime
                End With
                With .Parameters(3)
                    .SqlDbType = SqlDbType.Int
                    .Direction = ParameterDirection.Input
                    .ParameterName = "@id"
                    .Value = id
                End With
                .CommandText = "update FileBase set " & _
                    "CreationTime = @c," & _
                    "LastAccessTime = @a," & _
                    "LastWriteTime = @w where id = @id"
                .CommandType = CommandType.Text
                .Connection = conn
                Try
                    .ExecuteNonQuery()
                Catch e As SqlException
                    Console.WriteLine(tabs & fsi.Name & vbTab & " - error
message: " & e.Message)
                End Try
            End With
        End Sub

        Private Function UpdateFileAttributes(ByVal fa As FileAttributes,
ByVal fname As String) As Integer
            Dim cmd As New SqlCommand()
            With cmd
                .Parameters.Add(.CreateParameter())
                .Parameters.Add(.CreateParameter())
                .Parameters.Add(.CreateParameter())
                .Parameters.Add(.CreateParameter())
                .Parameters.Add(.CreateParameter())
                .Parameters.Add(.CreateParameter())
                .Parameters.Add(.CreateParameter())
                .Parameters.Add(.CreateParameter())
                With .Parameters(0)
                    .SqlDbType = SqlDbType.Bit
                    .ParameterName = "@a"
                    .Direction = ParameterDirection.Input
                    .Value = (fa = fa.Archive)
                End With
                With .Parameters(1)
                    .SqlDbType = SqlDbType.Bit
                    .ParameterName = "@c"
                    .Direction = ParameterDirection.Input
                    .Value = (fa = fa.Compressed)
                End With
                With .Parameters(2)
                    .SqlDbType = SqlDbType.Bit
                    .ParameterName = "@e"
                    .Direction = ParameterDirection.Input
                    .Value = (fa = fa.Encrypted)
                End With
                With .Parameters(3)
                    .SqlDbType = SqlDbType.Bit
                    .ParameterName = "@h"
                    .Direction = ParameterDirection.Input
                    .Value = (fa = fa.Hidden)
                End With
                With .Parameters(4)
                    .SqlDbType = SqlDbType.Bit
                    .ParameterName = "@n"
                    .Direction = ParameterDirection.Input
                    .Value = (fa = fa.Normal)
                End With
                With .Parameters(5)
                    .SqlDbType = SqlDbType.Bit
                    .ParameterName = "@r"
                    .Direction = ParameterDirection.Input
                    .Value = (fa = fa.ReadOnly)
                End With
                With .Parameters(6)
                    .SqlDbType = SqlDbType.Bit
                    .ParameterName = "@s"
                    .Direction = ParameterDirection.Input
                    .Value = (fa = fa.System)
                End With
                With .Parameters(7)
                    .SqlDbType = SqlDbType.Int
                    .ParameterName = "@id"
                    .Direction = ParameterDirection.Output
                End With
                .CommandText = "AddAttr"
                .CommandType = CommandType.StoredProcedure
                .Connection = conn
                Try
                    .ExecuteNonQuery()
                Catch e As SqlException
                    Console.WriteLine(tabs & fname & vbTab & " - error
message: " & e.Message)
                End Try
            End With
            Return Convert.ToInt32(cmd.Parameters("@id").Value)
        End Function
    End Class

AS>> З.Ы.Ы. OLTP сервера я на нем точно писать не буду.

CREATE PROCEDURE dbo.create_dir 
    @name nvarchar(1000), 
    @parent int, 
    @creation_time datetime, 
    @last_access_time datetime, 
    @last_write_time datetime,
    @return_value int out 
AS
INSERT INTO files(name, parent, is_dir, creation_time, last_access_time, last_write_time) 
    VALUES(@name, @parent, 1, @creation_time, @last_access_time, @last_write_time)
SELECT @return_value = @@IDENTITY


CREATE PROCEDURE dbo.create_file
    @name nvarchar(1000), 
    @parent int, 
    @creation_time datetime, 
    @last_access_time datetime, 
    @last_write_time datetime,
    @attr_archive bit,
    @attr_compressed bit,
    @attr_encrypted bit,
    @attr_hidden bit,
    @attr_readonly bit,
    @attr_system bit,
    @file_size bigint,
    @return_value int out 
AS
INSERT INTO files(name, parent, is_dir, creation_time, last_access_time, last_write_time, 
    attr_archive, attr_compressed, attr_encrypted, attr_hidden, attr_readonly, attr_system, 
    file_size) 
    VALUES(@name, @parent, 0, @creation_time, @last_access_time, @last_write_time,
    @attr_archive, @attr_compressed, @attr_encrypted, @attr_hidden, @attr_readonly, @attr_system,
    @file_size)
SELECT @return_value = @@IDENTITY

using System;
using System.IO;
using System.Data;
using System.Data.SqlClient;

namespace DotNetTest
{
    public class App
    {
        private const string _conStr = "Integrated Security=SSPI;Initial Catalog=Test";
        private static int _totalProcessed = 0;

        public static void Main(string[] args)
        {
            string path;
            bool recursive;
            try
            {
                path = args[0];
                recursive = bool.Parse(args[1]);
            }
            catch
            {
                throw new ArgumentException("Invalid command line arguments");
            }

            DirectoryInfo dirInfo = new DirectoryInfo(path);
            if (!dirInfo.Exists)
                throw new DirectoryNotFoundException(path);

            Console.WriteLine("Processing directory '{0}' {1}", path, recursive ? "recursive" : "");

            int st = Environment.TickCount;
            ProcessDir(dirInfo, recursive, -1, "");
            st = Environment.TickCount - st;

            Console.WriteLine("Processed {0} files in {1}", _totalProcessed, TimeSpan.FromMilliseconds(st));

            Console.Read();
        }

        private static void ProcessDir(DirectoryInfo dirInfo, bool recursive, int parent, string shift)
        {
            _totalProcessed++;
            int dirId;
            string prefix = shift + dirInfo.FullName + " ";
            using (SqlConnection con = new SqlConnection(_conStr))
            using (SqlCommand cmd = new SqlCommand("create_dir", con))
            {
                cmd.CommandType = CommandType.StoredProcedure;
                cmd.Parameters.Add("@return_value", SqlDbType.Int).Direction = 
                    ParameterDirection.Output;
                cmd.Parameters.Add("@name", SqlDbType.NVarChar, 1000).Value = dirInfo.FullName;
                cmd.Parameters.Add("@parent", SqlDbType.Int).Value = parent;
                AddFileInfo(cmd.Parameters, dirInfo);
                con.Open();
                try
                {
                    cmd.ExecuteNonQuery();
                }
                catch (Exception ex)
                {
                    Console.WriteLine(prefix + " error: " + ex.Message);
                    return;
                }
                dirId = (int)cmd.Parameters["@return_value"].Value;
                Console.WriteLine(prefix + "insert directory with id = " + dirId);
            }

            foreach (FileInfo fileInfo in dirInfo.GetFiles())
                ProcessFile(fileInfo, dirId, shift + " ");
            
            if (recursive)
                foreach (DirectoryInfo subDirInfo in dirInfo.GetDirectories())
                    ProcessDir(subDirInfo, recursive, dirId, shift + " ");
        }

        private static void ProcessFile(FileInfo fileInfo, int dirId, string shift)
        {
            _totalProcessed++;
            string prefix = shift + fileInfo.FullName + " ";
            using (SqlConnection con = new SqlConnection(_conStr))
            using (SqlCommand cmd = new SqlCommand("create_file", con))
            {
                cmd.CommandType = CommandType.StoredProcedure;
                cmd.Parameters.Add("@return_value", SqlDbType.Int).Direction = 
                    ParameterDirection.Output;
                cmd.Parameters.Add("@name", SqlDbType.NVarChar, 1000).Value = fileInfo.FullName;
                cmd.Parameters.Add("@parent", SqlDbType.Int).Value = dirId;
                AddFileInfo(cmd.Parameters, fileInfo);
                AddFileAttributes(cmd.Parameters, fileInfo);
                cmd.Parameters.Add("@file_size", fileInfo.Length);
                con.Open();
                try
                {
                    cmd.ExecuteNonQuery();
                }
                catch (Exception ex)
                {
                    Console.WriteLine(prefix + " error: " + ex.Message);
                    return;
                }
                int fileId = (int)cmd.Parameters["@return_value"].Value;
                Console.WriteLine(prefix + "insert file with id = " + fileId);
            }
        }

        private static void AddFileInfo(SqlParameterCollection prms, FileSystemInfo fsi)
        {
            prms.Add("@creation_time", fsi.CreationTime);
            prms.Add("@last_access_time", fsi.LastAccessTime);
            prms.Add("@last_write_time", fsi.LastWriteTime);
        }

        private static void AddFileAttributes(SqlParameterCollection prms, FileSystemInfo fsi)
        {
            prms.Add("@attr_archive", (fsi.Attributes & FileAttributes.Archive) > 0);
            prms.Add("@attr_compressed", (fsi.Attributes & FileAttributes.Compressed) > 0);
            prms.Add("@attr_encrypted", (fsi.Attributes & FileAttributes.Encrypted) > 0);
            prms.Add("@attr_hidden", (fsi.Attributes & FileAttributes.Hidden) > 0);
            prms.Add("@attr_readonly", (fsi.Attributes & FileAttributes.ReadOnly) > 0);
            prms.Add("@attr_system", (fsi.Attributes & FileAttributes.System) > 0);
        }
    }
}

Processed 45328 files in 00:02:20.8430000

    Class CApp
        Public path As String
        Public recursive As Boolean

        Private tabs As String
        Private conn As New SqlConnection("Data Source=dcit01;User
id=fsuser;password=fsuser")

        Private files As Integer = 0

        Sub New(ByVal path As String, ByVal r As Boolean)
            If Directory.Exists(path) Then
                MyClass.path = path
                recursive = r
                conn.Open()
            Else
                Throw New DirectoryNotFoundException()
            End If
        End Sub

        Public Function Process() As Integer
            Return Process(path)
        End Function

        Private Function Process(ByVal path As String) As Integer
            Dim cmd As New SqlCommand()
            Dim b As Boolean
            Dim oldtabs As String
            'prepare to call CreateFolder stored procedure
            With cmd
                .Parameters.Add("@return_value", SqlDbType.Int).Direction =
ParameterDirection.ReturnValue
                .Parameters.Add("@name", SqlDbType.NVarChar, 1000).Value =
path
                .Parameters.Add("@sd", SqlDbType.Text).Value = ""
                .Parameters.Add("@parent", SqlDbType.Int).Value = 0
                .CommandText = "CreateFolder"
                .CommandType = CommandType.StoredProcedure
                .Connection = conn
                Try
                    'calling
                    .ExecuteNonQuery()
                    files += 1
                Catch e As SqlException
                    b = True
                    Console.WriteLine(tabs & path & vbTab & " - error
message: " & e.Message)
                End Try
            End With

            'process the result and go next
            If Not b Then
                Dim s As String
                Dim retval As Integer =
Convert.ToInt32(cmd.Parameters(0).Value)
                If retval > 0 Then
                    s = tabs & path & vbTab & " - inserts under " &
retval.ToString()
                Else
                    s = tabs & path & vbTab & " - error code " &
retval.ToString()
                End If
                'write the result to the console
                Console.WriteLine(s)

                If retval > 0 Then
                    Dim di As New DirectoryInfo(path)
                    Dim fi As FileInfo
                    Dim dir As DirectoryInfo
                    'update directory time attributes
                    UpdateFileInfo(di, retval)

                    tabs += "  "
                    Dim FolderId As Integer = retval
                    cmd.Parameters.Add("@aid", SqlDbType.Int)

                    'fill the files to DB
                    For Each fi In di.GetFiles()
                        With cmd
                            .Parameters("@name").Value = fi.FullName
                            .Parameters("@sd").Value = ""
                            .Parameters("@parent").Value = FolderId
                            .Parameters("@aid").Value = _
                                UpdateFileAttributes(fi.Attributes, fi.Name)
                            .CommandText = "CreateFile"
                            Try
                                .ExecuteNonQuery()
                                files += 1
                            Catch e As SqlException
                                b = True
                                Console.WriteLine(tabs & fi.Name & vbTab &
" - error message: " & e.Message)
                            End Try
                        End With

                        'process the result
                        If Not b Then
                            retval =
Convert.ToInt32(cmd.Parameters(0).Value)
                            If retval > 0 Then
                                s = tabs & fi.Name & vbTab & " - inserts
under " & retval.ToString()
                            Else
                                s = tabs & fi.Name & vbTab & " - error code
" & retval.ToString()
                            End If
                            Console.WriteLine(s)
                            If retval > 0 Then
                                Dim cmd1 As New SqlCommand()
                                UpdateFileInfo(fi, retval)
                                With cmd1
                                    .Parameters.Add("@fs",
SqlDbType.BigInt).Value = fi.Length
                                    .Parameters.Add("@id",
SqlDbType.Int).Value = retval
                                    .CommandText = "update RealFile set
FileSize=" & _
                                        "@fs where id = @id"
                                    .Connection = conn
                                    .CommandType = CommandType.Text
                                    Try
                                        .ExecuteNonQuery()
                                    Catch e As SqlException
                                        Console.WriteLine(tabs & fi.Name &
vbTab & " - error message: " & e.Message)
                                    End Try
                                End With
                                'cmd1.Dispose()
                            End If
                        End If
                    Next
                    'cmd.Dispose()
                    For Each dir In di.GetDirectories()
                        oldtabs = tabs
                        Process(dir.FullName)
                        tabs = oldtabs
                    Next
                End If
            End If
            'cmd.Dispose()
            Return files
        End Function

        Private Sub UpdateFileInfo(ByVal fsi As FileSystemInfo, ByVal id As
Integer)
            Dim cmd As New SqlCommand()
            With cmd
                .Parameters.Add("@c", SqlDbType.DateTime).Value =
fsi.CreationTime
                .Parameters.Add("@a", SqlDbType.DateTime).Value =
fsi.LastAccessTime
                .Parameters.Add("@w", SqlDbType.DateTime).Value =
fsi.LastWriteTime
                .Parameters.Add("@id", SqlDbType.Int).Value = id
                .CommandText = "update FileBase set " & _
                    "CreationTime = @c," & _
                    "LastAccessTime = @a," & _
                    "LastWriteTime = @w where id = @id"
                .CommandType = CommandType.Text
                .Connection = conn
                Try
                    .ExecuteNonQuery()
                Catch e As SqlException
                    Console.WriteLine(tabs & fsi.Name & vbTab & " - error
message: " & e.Message)
                End Try
            End With
            'cmd.Dispose()
        End Sub

        Private Function UpdateFileAttributes(ByVal fa As FileAttributes,
ByVal fname As String) As Integer
            Dim cmd As New SqlCommand()
            With cmd
                .Parameters.Add("@a", SqlDbType.Bit).Value = CBool(fa And
fa.Archive)
                .Parameters.Add("@c", SqlDbType.Bit).Value = CBool(fa And
fa.Compressed)
                .Parameters.Add("@e", SqlDbType.Bit).Value = CBool(fa And
fa.Encrypted)
                .Parameters.Add("@h", SqlDbType.Bit).Value = CBool(fa And
fa.Hidden)
                .Parameters.Add("@n", SqlDbType.Bit).Value = CBool(fa And
fa.Normal)
                .Parameters.Add("@r", SqlDbType.Bit).Value = CBool(fa And
fa.ReadOnly)
                .Parameters.Add("@s", SqlDbType.Bit).Value = CBool(fa And
fa.System)
                .Parameters.Add("@id", SqlDbType.Int).Direction =
ParameterDirection.Output
                .CommandText = "AddAttr"
                .CommandType = CommandType.StoredProcedure
                .Connection = conn
                Try
                    .ExecuteNonQuery()
                Catch e As SqlException
                    Console.WriteLine(tabs & fname & vbTab & " - error
message: " & e.Message)
                End Try
            End With
            UpdateFileAttributes =
Convert.ToInt32(cmd.Parameters("@id").Value)
            'cmd.Dispose()
        End Function
    End Class

Private Sub Process(ByVal path As String)
  Dim cmd As New SqlCommand()

DirectoryInfo dirInfo = new DirectoryInfo(path);

path = "\\";