Excel VBA質問箱 IV

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

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


47533 / 76732 ←次へ | 前へ→

【34154】Re:パスが正しいか判断させたい
発言  MARBIN  - 06/1/27(金) 14:12 -

引用なし
パスワード
   私が使っているコードです。
参考になりましたら・・・。

なお、ファイル名、フォルダ名には以下の記号が使用できません。
セルに入力しておき、下記のマクロで判定しています。

/
\
<
>
*
?
|
:
;

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

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