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 質問
【34150】Re:パスが正しいか判断させたい じゅん 06/1/27(金) 13:44 回答
【34154】Re:パスが正しいか判断させたい MARBIN 06/1/27(金) 14:12 発言
【34159】Re:パスが正しいか判断させたい ともく 06/1/27(金) 14:54 お礼
【34156】Re:パスが正しいか判断させたい ともく 06/1/27(金) 14:32 発言

47528 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free