|
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
|
|