Visual Basic

Application.GetSaveAsFilename

Application.GetOpenFilename

CREATE TABLE test_child <br />
(SUB1 INT, <br />
[NO] int,<br />
FOREIGN KEY ([NO]) REFERENCES Test_parent<br />
ON DELETE CASCADE) 

Imports System.IO

   Dim strFileSize As String = ""
   Dim di As New IO.DirectoryInfo("C:\temp")
   Dim aryFi As IO.FileInfo() = di.GetFiles("*.txt")
   Dim fi As IO.FileInfo

   For Each fi In aryFi
       strFileSize = (Math.Round(fi.Length / 1024)).ToString()
       Console.WriteLine("File Name: {0}", fi.Name)
       Console.WriteLine("File Full Name: {0}", fi.FullName)
       Console.WriteLine("File Size (KB): {0}", strFileSize )
       Console.WriteLine("File Extension: {0}", fi.Extension)
       Console.WriteLine("Last Accessed: {0}", fi.LastAccessTime)
       Console.WriteLine("Read Only: {0}", (fi.Attributes.ReadOnly = True).ToString)
   Next