漢字かどうかを判定するFunction まじめに手直しした。 元のコード コチラが、元のisKanjiメソッドのコード。 リスト１ Public Function isKanji(ByVal targetCharacter As String) As Boolean Dim char As String char = targetCharacter If Len(char) <> 1…

FileSystemObjectでフォルダを作るときに気をつけた方がいいこと ちょっと恐怖体験をしたので報告。 フォルダ名の最後の文字が半角スペースになるようなフォルダを作る Scripting.FileSystemObjectオブジェクトの、CreateFolderメソッドを使ってフォルダを作…