• ベストアンサー

VB6でフォルダの有無を確認したい

VB6でフォルダの有無を確認したいのですが、どうすればよいのでしょうか？Dir関数ではだめなようです。

  • 11369
  • お礼率72% (115/158)

質問者が選んだベストアンサー

  • ベストアンサー
noname#60992
noname#60992
回答No.1

dir関数を使うのであれば、 Dir(FoldPath & "\*.*", vbDirectory) FldName = Dir(FoldPath & "\*.*", vbDirectory) Do Until FldName = "" If FldName <> "." And FldName <> ".." And ((GetAttr(FoldPath & "\" & FldName) And vbDirectory) = vbDirectory) Then ......... 見たいにできたと思います。

11369
質問者

お礼

確かにできました。 ありがとうございました。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • VB6.0フォルダの存在をチェックするには?

    Win2000prosp4,VB6.0sp6で指定したフォルダがあるかどうかチェックするにはどうすればよいでしょうか？ Dir関数を使えばよいかなと思ったのですが、ヘルプには「パターンと一致するフォルダ名を大文字で戻り値として返す」 とあるのに例えば Msgbox Dir("c:\test") としても表示されるのは""となってしまいます。 フォルダ名の指定の仕方がまずいのかと思い Msgbox Dir("c:\test\") としてみると今度はtestフォルダ内のファイル名が戻り値となってしまいます。 引数がファイル名ならきちんと存在を判定できるのですが、フォルダだとどうすればよいのでしょうか？

  • VBのファイル有無の確認の速度

    VB.NET2003なのですが、あるフォルダにファイルを移動したいのですが、 ファイル名が重複しないように移動前にIO.File.Exists(filename)で 確認しているのですが、確認するフォルダにファイルが沢山あると 結果が出るまでに１秒くらいかかってしまいます。 （ファイルは現在１０万個くらいあります） 何かもう少し早くなる方法があったら教えて頂きたいです。 OSはWindowsXPです。

  • VB6にてネットワーク上にある共有フォルダを・・・

    VB初心者の者です。 ネットワーク上にある共有フォルダ有無をチェックするプログラムを作ろうとしています。 If Dir$("\\パソコン名\共有フォルダ名", vbDirectory) <> "" Then 　　　'共有フォルダが確認できた時の処理(A) Else 　　　'共有フォルダが確認できなかった時の処理(B) End If 上記プログラムを実行したところ、ErrorNo.52　「ファイル名または番号が不正です」というエラーで落ちてしまいます。 A、Bのどちらにも入ってきません。 「パソコン名\共有フォルダ名」は、エクスプローラ上から見えています(Pingも通ります)。 ネットワークドライブを割り当てる方法もあるのですが、事情によりその方法はNGなため、「\\パソコン名\共有フォルダ名」で何とかできないか模索中です。 参照先PCの設定で、接続を許可するユーザーの設定のようなものがあるのでしょうか。 解決策をご存知の方がいらっしゃいましたら、ご教示お願いします(アドバイス等何でも結構です)。 環境は、参照先・元のPC共にWindows2000(SP4)、言語はVB6(SP6)、会社内のLANにて実行しています。 よろしくお願いいたします。

  • コマンドプロンプトによるフォルダ内のファイル存在有無

    バッチ処理で、特定のフォルダ内（配下にフォルダとファイルが混在している）でファイルだけの存在有無を調べて、ファイルが存在している場合とファイルが存在していない場合で処理を別々に行わせようとしたいのですが、ファイルの存在有無はどのようにコマンドで調べれば良いでしょうか？ DIR C:\test\*.* でファイルを調べて、ERRORLEVELでif判定させようと思っているのですが、 DIRコマンドでこれを行うと、フォルダまで表示されます。 どのようにしたら良いのでしょうか？教えてください。

  • VB6.0 FileListBoxでフォルダ表示

    VB6.0 ファイルシステムコントロールを使用して各ListBox (DriveList/DriList/FileList)を組み合わせています。 この内、DriListで選択したフォルダのファイル表示に File1.Path = Dir1.Path をDir1のChange時に入れています。 このままだと、Dir1選択でFile1にファイルのみが表示されます。 これをこの中に含まれるフォルダも表示させることは 出来ないでしょうか？ ご教授願います。 (ステートメントなどを記述していただけると助かります)

  • フォルダ内のサブフォルダ名やファイル名の取得

    VB初心者です。 あるフォルダ内のサブフォルダ名や数、ファイル名を取得したいのですが・・・ コントロールのDirListBoxを使用するか、Dir関数を使用したいのですが、上手くできません。 ご存知の方、教えてください

  • VBのDir関数について

    VB6.0について質問です. Dir関数にてフォルダ内のファイルを参照したいのですがうまくいきません＞＜ 最初のファイルは参照できるのですが次のファイルへの参照ができません。。。 下記のコードでおかしいところはあるでしょうか？ path = "d:\ABC\data" item = Dir(path & "\*.mdb", vbDirectory) Do While item <> "" ' ループを開始します。 item = Dir ' 次のフォルダ名を返します。 Loop

  • ＶＢ２００８でフォルダーの作らせ方が分からない

    どなたかご教授下さい。 今、ＶＢ２００８でファイル処理を行っているのですが、作成したテキストファイルを存在しないフォルダーに、入れたいのです。 存在しないフォルダーを作成するには、どんな関数を使えば良いのでしょうか。どのようにプログラミングすれば良いのでしょうか。 Dim Wmain As New IO.StreamWriter(TextBox1.Text) textbox1には、存在しないアドレスが入っていますので、見つかりませんのエラーでした。 教えて下さい。 宜しくお願い致します。

  • ファイルの有無を確認した際のエラーについて

    ＶＢ６です。以下の様な関数を使っています。 用途としては、ファイルの有無を調べています。 で、関数の値として実際のパソコンに存在しないフォルダを指定した際、 下のエラー処理（AAA）に飛びません。 わかる方いらしたら、よろしくお願いします。 Public Function files(ByVal strPathName As String) As Boolean On Error GoTo AAA If (GetAttr(strPathName) And vbDirectory) = vbDirectory Then Stop Else Stop End If Exists2 = True Exit Function AAA: Stop End Function

  • 【VB】あるフォルダにあるアクセスファイルを開きたい

    お世話になります。VB2005です。 あるフォルダにあるアクセスファイル(.mdb)を開きたいのですが、 shell関数を利用していろいろ試しているのですがうまくいきません。 ボタンをクリックしたら別ウィンドウで編集済みのアクセスファイルが開くといったことをしたいだけです。 恐れ入りますが、おわかりの方教えていただけないでしょうか。 よろしくお願いします。m(__)m

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する