|
私が使っているコードです。
参考になりましたら・・・。
なお、ファイル名、フォルダ名には以下の記号が使用できません。
セルに入力しておき、下記のマクロで判定しています。
/
\
<
>
*
?
|
:
;
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
|
|