2005-06-19から1日間の記事一覧
Sub read_file()Dim aaa(100)strFileName = "c:\readme.txt"Set objFileSystem = CreateObject("Scripting.FileSystemObject") Set objfile = objFileSystem.OpentextFile(strFileName) Do Until objfile.atendofstream 'objfile.Write (str_message) strRec…
'たとえば2005年06年19日の場合には050619を表示する。 MsgBox Format$(Now, "yymmdd")
コンテナの概念を利用