Excel VBA質問箱 IV

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

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


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

47528 / 76732

←次へ　｜　前へ→


	【34159】Re:パスが正しいか判断させたい

ともく - 06/1/27(金) 14:54 -


	引用なし

	パスワード

MARBINさんありがとうございます。

URL判断のときはお世話になりました。
MARBINさんのソースを参考に実装させて頂きたいと思います。
これで問題が解決できそうです。
ありがとう御座いました。

▼MARBIN さん：
>私が使っているコードです。
>参考になりましたら・・・。
>
>なお、ファイル名、フォルダ名には以下の記号が使用できません。
>セルに入力しておき、下記のマクロで判定しています。
>
>/
>\
><
>>
>*
>?
>|
>:
>;
>
> Dim i as Long
> Dim hantei As Boolean
> Dim kinmoji As String
>　 hantei = False
>　　For i = 1 To Worksheets(1).Cells(65536, 1).End(xlUp).Row
>　　 If UBound(Split(Me.TextBox1.Value, Worksheets(1).Cells(i, 1).Value)) <> 0 Then
>　　　　hantei = True
>　　 End If
>　　Next i
>　　If hantei = True Then
>　　　 MsgBox "フォルダ名に禁則文字が含まれています。"
>　　End If
>
>また、既に存在するフォルダかの判定は下記のように行っています。
>
> Dim NewFol as string
>　NewFol = Me.TextBox1.Value
>　If Dir(NewFol, vbDirectory + vbReadOnly + vbHidden) = "" Then
>　　 MkDir (NewFol)
>　Else
>　　 MsgBox Newfol "は既に存在します"
>　End If

0 hits

▼

【34148】パスが正しいか判断させたい ともく 06/1/27(金) 13:22