どこかのを見ながら作成。 これで、良いかはわかりませんが。 Dim MDBName Dim Conn DIm Conn_String Dim Args, FilePath FilePath = Replace(WScript.ScriptFullName,WScript.ScriptName,"") Args = "db7.mdb" MDBName = Args Dim sAbc, aAbc(36), iLen ,i …