#104 フォルダが存在するかどうか調べる方法 VBA

FileSystemObjectのメソッドである"FolderExists"を使って、引数にフルパスで指定したフォルダがディスク上に存在するかどうかを返すサンプルプロシージャです。フォルダがある場合はTureを、ない場合はFalseを返します。
Public Function IsFolderExists(strFolder As String) As Boolean

  Dim Fso As Object

  'FileSystemObjectオブジェクトを生成します
  Set Fso = CreateObject("Scripting.FileSystemObject")

  'FolderExistsメソッドの返り値をプロシージャに返り値にセットします
  IsFolderExists = Fso.FolderExists(strFolder)

End Function
| Index | Prev | Next |

この情報は参考になりましたか?、問題は解決しましたか?、もしまだなら......
T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします


Copyright © T'sWare All rights reserved