ベストアンサー

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

2006/02/28 03:19

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

11369
お礼率72% (115/158)

Visual Basic
回答数1
ありがとう数2

みんなの回答 （1）
専門家の回答

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

ベストアンサー

noname#60992

2006/02/28 08:10 回答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 ......... 見たいにできたと思います。

質問者

お礼 2006/02/28 08:45

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

関連する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にて実行しています。よろしくお願いいたします。
AIは使う人の年齢や市場にも影響する？人工知能の可能性

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

バッチ処理で、特定のフォルダ内（配下にフォルダとファイルが混在している）でファイルだけの存在有無を調べて、ファイルが存在している場合とファイルが存在していない場合で処理を別々に行わせようとしたいのですが、ファイルの存在有無はどのようにコマンドで調べれば良いでしょうか？ 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
ディレクトリの存在有無の確認方法

ＶＢ６を使っています。ファイルの存在有無はFileSystemObjectを使って以下のような方法で確認しいますが、ディレクトリの存在有無はどのようにすれば、確かめられるでしょうか？ Dim objFileSys As Object Set objFileSys = CreateObject("Scripting.FileSystemObject") If objFileSys.FileExists("C:ABC.XYZ") Then よろしくお願いします。
[VB6]プログラムの実行ユーザについて、管理者権限の有無を確認したい

作成しているプログラムについて、環境ファイルの書き出しなどを行いたいと考えているのですが、書き出し先をProgramFiles内にしたいと思っています。この場合、NT系のOSでは、管理者権限がないと書き換えができないので、プログラムの実行ユーザの権限を確認し、権限がない場合は、処理を禁止したいと考えていますが、この場合、どのような方法で確認をすればいいでしょうか。 VB.Netでは、専用の関数があるようなのですが・・・。よろしくお願いいたします。
VB6.0でフォルダのアクセス制限設定確認を自動化したい

VB6.0で【Shell】関数を使用し【cacls】コマンドを実行してフォルダのアクセス制限設定を行おうとしています。アクセス制限自体は設定できるのですが、その際に別のDosウィンドウが上がり、「よろしいですか (Y/N)?」のメッセージが表示されます。どうにかしてこれを自動化したいのですが、方法が分かりません。方法をご存知の方、教えていただけないでしょうか？よろしくお願いします。 Shell "cacls C:\TEST /G Administrators:F" OS:WindowsXP Pro ツール:VB6.0
VBScript で未作成ファイルの親フォルダを調べたい

ファイルシステムオブジェクトのCopyFile()を使って、例えば次のパスへファイルをコピーするときに、まずFolderExists()で親フォルダの有無を確認するようにしたいと思っています。 C:\rootdir\lv2dir\lv3dir\newfile.txt このとき、正規表現を使って次のようなパスを取得したいのですが、書き方がいまいち分かりません。どのようにすればよいのでしょうか。 C:\rootdir\lv2dir\lv3dir ちなみに、正規表現を使わなくても存在しないファイルのパスから親フォルダのパスを取得する方法があればそちらもぜひお教えください。よろしくお願いします。
消せないフォルダ　消してしまいたい！

容量0の消せないフォルダがあります。 DOS窓で　del や　rd コマンドを使用したのですが、消せませんでした。　どうしてでしょう。 c:\windows\デスクトップ>dir >a.txtを実行した結果は下記の通りです。 . <DIR> 00-09-17 11:10 . .. <DIR> 00-09-17 11:10 .. ブリーフケース <DIR> 00-09-17 11:19 ブリーフケース A TXT 0 02-05-31 17:43 a.txt 新しい~1 <DIR> 02-05-31 17:42 新しいフォルダ 12_ <DIR> 02-05-30 20:42 12_3 123沺_ <DIR> 02-05-30 20:43 123___ 1 個 0 バイトのファイルがあります. 6 ディレクトリ 4,244.81 MB の空きがあります. 半角はこの掲示板では表示されないようですね。みににくくて、すみません。　削除したいフォルダは12_3と123___　です。起動ディスクから削除しようと思ったのですが、起動ディスクからの場合、「デスクトップ」という文字を入力できませんでした。　英数字しかだめなようです。
VB6 使用中ファイルの確認

VB6 使用中ファイルの確認 Visual Basic6.0 でファイル/フォルダ操作をリストを使用して検討していますがファイルを移動する時など使用中の場合エラーが発生します。ファイル/フォルダ混在で複数移動/コピー/削除などするためエラーで実行されないものが残ってしまいます。事前に複数コピーしてエラートラップによる確認も考えたのですがもっと簡単に確認する方法は無いでしょうか？エラー以外で確認出来るのでしょうか？
インターネットキャッシュフォルダについて教えて

ＩＥのインターネットキャッシュフォルダの「C:\Temporary Internet Files」のようなものなのですが、普通のフォルダとは性質が違うようで、ファイルの扱い方に困っています。上記のパスをエクスプローラーで開くと、アクセスしたサイトのオブジェクトが一覧として現れるのですが、上記のフォルダを指定してDir関数でファイルを表示しようとするとファイル名が表示されません。またエクスプローラでそのフォルダにはサブフォルダは表示されないのですが、「C:\Temporary Internet Files\Content.IE5」と指定してDir関数で一覧を表示させると、サブフォルダやファイルが見つかります。「C:\Temporary Internet Files」をエクスプローラで表示した時に現れる一覧をＶＢ．ＮＥＴのプログラム上で取得して、エクスプローラーで表示されているような、インターネットアドレス、サイズ、最終アクセス日などを取得したいのですが、どのような方法でやれば良いでしょうか？特殊なフォルダのようでどうしたら良いか全く分からない状態です。検索をしてみたのですが、キャッシュを削除するというのはいくつか見つかったのですが、それ以外では参考になりそうなものを見つけることができませんでした。申し訳ございませんが、ご教示頂きたくお願いいたします。
VBからの作業フォルダ指定

ＶＢ6．0について質問です。 SPSSという統計ソフトをVBから起動しています。起動後、統計ソフトから外部データの参照を行うときにプロパティから作業フォルダを指定しているのにもかかわらず System32のフォルダが開いてしまいます。この原因にはどのようなことが考えられますか？ SPSSを単独で起動した場合は指定されたフォルダが開きます。 VBから起動ソフトの作業フォルダを指定する必要があるようなのですがお知恵をお貸しください＞＜
フォルダの中身を列挙する方法

こんにちわ。ＶＢ６．０でプログラムを作る練習をしているのですが、行き詰ったので質問させてください。やりたいことは・・・１．指定したフォルダの中身のファイル名をテキストファイルだけリストＢＯＸに表示。２．それらテキストファイルの中身を昇順で連結して、新しいファイルを作る。１はフォルダ参照ダイアログで、フォルダ名を取得。までは出来ました。続きのフォルダの中身の参照部分がDir関数とforを使うのかな？と思い、ＭＳＤＮライブラリを見たのですが、いまいちフォルダの中身を列挙する方法が分からないので教えてください。よろしくお願いします。
フォルダ内にさらにフォルダがあるか知りたい

Windows2000 VB6 で開発をしています。フォルダ内にあるフォルダ名称だけを取得することって出来るのでしょうか？フォルダ内のファイル数が多く、一つずつ確認するのでは時間がかかりそうなので、もっと簡単に早くできる方法がないか模索中です。よろしくお願いします。

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

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

お礼 2006/02/28 08:45

関連するQ&A

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

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

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

AIは使う人の年齢や市場にも影響する？人工知能の可能性

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

VB6.0 FileListBoxでフォルダ表示

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

VBのDir関数について

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

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

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

ディレクトリの存在有無の確認方法

[VB6]プログラムの実行ユーザについて、管理者権限の有無を確認したい

VB6.0でフォルダのアクセス制限設定確認を自動化したい

VBScript で未作成ファイルの親フォルダを調べたい

消せないフォルダ　消してしまいたい！

VB6 使用中ファイルの確認

インターネットキャッシュフォルダについて教えて

VBからの作業フォルダ指定

フォルダの中身を列挙する方法

フォルダ内にさらにフォルダがあるか知りたい

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

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

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

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

お礼 2006/02/28 08:45

関連するQ&A

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

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

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

AIは使う人の年齢や市場にも影響する？人工知能の可能性

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

VB6.0 FileListBoxでフォルダ表示

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

VBのDir関数について

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

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

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

ディレクトリの存在有無の確認方法

[VB6]プログラムの実行ユーザについて、管理者権限の有無を確認したい

VB6.0でフォルダのアクセス制限設定確認を自動化したい

VBScript で未作成ファイルの親フォルダを調べたい

消せないフォルダ 消してしまいたい！

VB6 使用中ファイルの確認

インターネットキャッシュフォルダについて教えて

VBからの作業フォルダ指定

フォルダの中身を列挙する方法

フォルダ内にさらにフォルダがあるか知りたい

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

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

消せないフォルダ　消してしまいたい！

カテゴリ
一覧

専門家に質問してみよう
専門家登録