Imports System.Data Imports System.Data.SqlClient Imports Microsoft.VisualBasic.FileIO Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button1.Click ''データテーブル Dim dt As New DataTable Dim row As DataRow ''フィールド(列)を追加 dt.Columns.Add("filename", Type.GetType("System.String")) dt.Columns.Add("env", Type.GetType("System.Int16")) dt.Colu