Excel VBA質問箱 IV

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

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


47531 / 76732 ←次へ | 前へ→

【34156】Re:パスが正しいか判断させたい
発言  ともく  - 06/1/27(金) 14:32 -

引用なし
パスワード
   じゅんさんありがとうございます。

HP見させて頂きました。
ご説明が悪かったようです。
フォルダを作成する為、下記の用なSubを作りました。
「C:\aaa\bbb\」がdlFolderPathに入ってくるのは問題なく処理されるのですが
「C:\ccc/ccc\」が入ってきたときは「MkDir makeFolderPath」の部分で
「パスが見つかりません。(Error 76)」が返ってきてしまします。
フォルダの名前として'/'が作れない為のエラーだと自分は思ったので
このSubにくる前に'/'等のフォルダの名前として付けられない文字が入ってないかValidateしたかったのです。
専門がJavaなのでVBAのことはよくわからないのですがValidate等をしないでExceptionへ飛ばし
エラーメッセージを出して処理を終了させる等させた方がいいのでしょうか?

またHPですが大変参考になりました。
拡張子を取り出すGetExtensionName等は自作してしまっていたのでこちらを使用したいと思います。

'フォルダ作成
'
'@param フォルダパス
Private Sub MakeFolder(dlFolderPath As String)
  Dim makeFolderPath As String      '作成フォルダパス
  Dim pathPosition  As Integer     'パス位置
  pathPosition = 4
  
  Do Until Len(dlFolderPath) < pathPosition
    pathPosition = InStr(pathPosition, dlFolderPath, "\")
    makeFolderPath = Left(dlFolderPath, pathPosition)
    'フォルダが無い場合、フォルダ作成
    If "" = Dir(makeFolderPath, vbDirectory) Then
      MkDir makeFolderPath
    End If
    pathPosition = pathPosition + 1
  Loop
End Sub


▼じゅん さん:
>つまり、フォルダが存在するか/しないかの判断が出来れば良いのですよね?
>FileSystemObjectというオブジェクトに
>FolderExistsメソッドというのがあります。
>これで、判断することは出来ます。
>
>下記アドレスに使用例が載っておりますので、ご参考にしてみて下さい。
>http://www.officetanaka.net/excel/vba/filesystemobject/filesystemobject.htm

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

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