Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

55093 / 76732

←次へ　｜　前へ→


	【26419】Re:ファイル名の禁則文字エラーについて

小僧 - 05/7/5(火) 11:10 -


	引用なし

	パスワード

▼まめさん、IROC さん：
こんにちは。

>それともすべて不正文字について、
>Instr関数で有無をチェックするしたほうがよいのでしょうか・・？

禁則文字を配列に持たせてチェックしてみました。

Sub 禁則()
Dim strInp As String
Dim Kinsoku() As Variant
Dim S As Variant

　　Kinsoku = Array("\", "/", ":", "?", """", "<", ">", "|")
　　strInp = Application.InputBox("ファイル名入力")

　　For Each S In Kinsoku
　　　　If InStr(1, strInp, S) <> 0 Then
　　　　　　MsgBox "禁則文字あり"
　　　　　　Exit Sub
　　　　End If
　　Next
End Sub

基本的には IROC さんの仰られている通りだと思われるのですが、
どうしても先に禁則文字をチェックしたいという場合もあるかな？と
思いまして作ってみました。

0 hits

▼

【26401】ファイル名の禁則文字エラーについて まめ 05/7/4(月) 15:09