v（･∀-）b VBプログラマ質問スレ(6.0以前) Part25
レス数が900を超えています。1000を超えると表示できなくなるよ。
0930デフォルトの名無しさん
NGNGDim strRet
a:
strRet = InputBox("題名", "新規ファイルの作成", "無題")
If InStr(strRet, "/") <> 0 Or InStr(strRet, "\") <> 0 Or InStr(strRet, ":") <> 0 Or InStr(strRet, "*") <> 0 Or InStr(strRet, "?") <> 0 _
Or InStr(strRet, """") <> 0 Or InStr(strRet, "/") <> 0 Or InStr(strRet, "<") <> 0 Or InStr(strRet, ">") <> 0 Or InStr(strRet, "|") <> 0 Then
MsgBox "ファイル名やフォルダ名に/\:*?""<>|は使えません。"
GoTo a:
End If
レス数が900を超えています。1000を超えると表示できなくなるよ。