'############################################################ ' 簡易メモ(WSH)2 「真魚」用 '  TjSoft-22, Taiju, 2007.8.21 ' 【使い方】 '  日付フォルダを自動的に作って、 '  テキストファイルとしてメモを保存する。 '  メモがファイル名になる。(全角スペースは入れない。) '  追記するには、同名+全角スペースの後に追加内容を '  入力すると、同じファイルに追記されていく。 '############################################################ Set fs = CreateObject("Scripting.FileSystemObject") sFilePath = fs.GetAbsolutePathName(".") sFolderName = sFilePath & "\memo_" & Month(Date()) & "." & Day(Date()) If fs.FolderExists(sFolderName) Then sDefaultFolderName = sFolderName Else fs.CreateFolder(sFolderName) sDefaultFolderName = sFolderName End If sMemo = mana.InputDialog("メモを記入") 'InputBoxと違って、ATOK等が使えなくなることはない。 If Instr(sMemo," ") <>0 Then iSp = Instr(sMemo," ") sMemoHeader = Left(sMemo, iSp -1) Else sMemoHeader = sMemo End If sFileName = sDefaultFolderName & "\" & sMemoHeader & ".txt" If fs.FileExists(sFileName) Then Set objFile = fs.OpenTextFile(sFileName, 8) '8:上書き可能に。 '同じファイルがあった場合に別名ファイルを作成する。 'Set objFile = fs.CreateTextFile(sDefaultFolderName & "\" & sMemo & Hour(Time()) & "-" & Minute(Time()) & ".txt") Else Set objFile = fs.CreateTextFile(sDefaultFolderName & "\" & sMemo & ".txt") End If If Instr(sMemo," ") <> 0 Then iSp = Instr(sMemo, " ") sMemoBody = Mid(sMemo, iSp + 1, Len(sMemo)) Else sMemoBody = sMemo End If objFile.WriteLine(sMemoBody) objFile.Close