ベストアンサー

隠し属性

2006/04/11 16:44

[1] if(folder.attributes AND 2) = then 処理 end if [2］if (file.attributes AND HIDDEN)=0 then 処理　 end if 1と2どちらも隠し属性なら処理をするっていうことでいいのでしょうか？

sea_clear
お礼率44% (81/181)

Microsoft ASP
回答数1
ありがとう数0

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

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

ベストアンサー

BLUEPIXY
ベストアンサー率50% (3003/5914)

2006/04/11 20:01 回答No.1

VBScript では、Hidden は、定数で２ですので folder.attributes AND 2 と file.attributes AND HIDDEN は同じです。＞隠し属性なら処理をするということなら (folder.attributes AND 2) か (folder.attributes AND 2)<>0 です。＝０では、逆の意味になってしまいます

関連するQ&A

Excel　VBA ファイル属性に関しての質問です。

ファイル属性に関して質問をしたいのですが、一つのxlsファイルを何人かのユーザーで開いたときに、二人目以降は「読み取り専用」となり、変更などをできない設定になっていて、デフォルトから弄ってはいません。この二人目以降にシート上に「読み取り専用です」というラベルを貼りたいのですが、どうしたらできますか？今現在はファイルオープン時に、 dim Myattr as integer Myattr=Getattr(~~~) If MyAttr = 1 Or MyAttr = 33 Then Worksheets("sheet2").la_Yomitori.Visible = True end if となっています。ファイル属性をアーカイブ属性のままで、二人目が開いたファイルにラベルを張り付けたいのです。今の状態ですと、二人目のユーザーがファイルを開いた時ExcelWindowの名前部分に読み取り通知としか書いていなく、なおかつファイル属性の値をしらべても、アーカイブ属性のままでした。わかりずらい質問で申し訳ありませんが、よかったらご指導お願いします。尚、Excelは2003です。
VB:隠し属性のフォルダ

VB初心者です。 VB6で、ディレクトリリストボックスに隠し属性のついたフォルダを表示するにはどうすればいいのでしょうか？ファイルリストボックスだとプロパティでHiddenをtrueにすればいいですけど、ディレクトリリストボックスのプロパティにはなくて・・・。よろしくお願いします。
vbaでフォルダ属性がうまく取れません

vbaでフォルダ属性が隠しフォルダかどうかを調べるコードを書いています。 C:\ProgramData\ は隠しフォルダなのに、なぜか16が返って来ます。試しにvbs(wsh)だと18が返って来ます。環境は Win10 + Excel2013(32ビット) です。 vbaで返値18を求めるにはどうすれば良いのでしょうか。 Sub test() Dim mPath Dim fso, f mPath = "C:\ProgramData\" Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(mPath) MsgBox f.Attributes End Sub
この場合エクセルVBAでどう書けばいいでしょうか？

あるシートのH列で、H21からH46のあいだで"False"がある行を非表示にしたいのです。下記の冗長なマクロでもそうなりますが、For Nextというのを使うともっと簡潔に記述できると思うのですが、初心者のためよくわかりません。ご教示ください。また、下記の式はシートが保護されていると働きませんが、保護したシートでも動く方法があればそれもあわせて教えていただけると幸いです。エクセルは95です。 Sub 空白行非表示() G% = Sheets("見積書").Range("H48").Value With Sheets("見積書") Rows("19:47").RowHeight = G% If Range("H21") = False Then Rows("21").EntireRow.Hidden = True End If If Range("H22") = False Then Rows("22").EntireRow.Hidden = True End If If Range("H23") = False Then Rows("23").EntireRow.Hidden = True End If If Range("H24") = False Then Rows("24").EntireRow.Hidden = True End If 途中、繰り返しのため省略 If Range("H42") = False Then Rows("42").EntireRow.Hidden = True End If If Range("H43") = False Then Rows("43").EntireRow.Hidden = True End If If Range("H44") = False Then Rows("44").EntireRow.Hidden = True End If If Range("H45") = False Then Rows("45").EntireRow.Hidden = True End If If Range("H46") = False Then Rows("46").EntireRow.Hidden = True End If End With End Sub
フォルダの属性について

お世話になっております。現在、WindowsXP（SP2）、VisualBasic6.0（SP5）の環境で開発中です。 Attributesプロパティを使って、フォルダの属性を調べたところ、「48」という値が返って来ました。しかし、HELPには、「48」という値のものがありません。この値は何を現しているのでしょうか？実際にチェックしたフォルダのパスは下記のようになっています。　\\マシン名\drv_c\AAA\BB\BB\01 　（「01」もフォルダです。）御存知の方がいらっしゃいましたら教えてください。宜しくお願いします。
VBのloop内で。

【処理内容？】 If noErr = 0 Then 　　'データ取込　　Do While Not EOF(intFileNo) 　　　　項目chk 　　　　　　桁数&属性chk 　　　　　　If all_noErr = 0 Then 　　　　　　　　DB登録処理※ 　　　　　　End If 　　Loop 　　Close End If ※のDB登録処理の前に現在登録されているDB全件削除処理を行いたいのですが、どういう風に処理を行うのが、ベストでしょうか？ちなみに桁数&属性chkがOKの場合にDB全件削除処理を行いたいのですが。。。
隠しファイル属性の働きについて

よろしくお願いします。 OSはVistaを使っているのですが、ProgramDataフォルダなどの一部のフォルダには隠しファイル属性がデフォルトでつけられています。例えば、システム属性は、システムがそのファイルを利用するためにはつけなければいけないですが、隠しファイル属性には、ファイルをみえなくする以外に、何か特別な働きがあるのでしょうか?
Excel VBA 条件分岐のスマートな書き方

すみません。すごく初歩的な質問なのですが、 Excel VBAで以下のような条件分岐をさせたい場合、もっとスマートな書き方できませんか？命題　AとBに対して if not A then 処理X end if if not B then 処理Y end if if not(A and B) then 処理Z(この処理の中には処理Xと処理Yの結果が含まれている) end elseifを使った書き方が思い浮かばず、同じことを何度も書いているようで、もっと上手に書けそうな気がしまして・・・どなたかご教示頂けたらと思います。
フォルダーの属性変更

HDD上にフォルダをつくり、CDからファイルをコピーし、そのフォルダを隠し属性をつけるというプログラムを組んでいます。現在、フォルダの属性を変更するAPIを探しているのですが、なかなか見つかりません。ファイルなら出来るのですが。。。どうかよろしくお願いします。
読み取り属性を一括して外す

windows10で特定フォルダーを指定してその特定フォルダー（及び階層サブフォルダ）内のファイルに　読み取り属性がONの場合に　これをOFF（書き込み可能）にするフリーソフトやバッチは有りませんか　？（多数のファイルの読み取り属性を一括チェックして　　属性がONなら一括して外したいと思います。）「Neo FileTimeChange」が候補に上がりましたが　現在、有償版に変更になっています。
フォルダー名に特殊文字？が存在する場合にエラー発生

以下のコードでフォルダー名を取得しています。しかし、フォルダー名に特殊文字？が存在する場合に下記でエラーが発生します。　例えば「Oxygène」　でeの上に’があるなど　　If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then 　　　　　実行エラー　53：　ファイルが見つかりません。これは、excelの仕様で処理できないのでしょうか　？他のコードで処理できれば教えて下さい。 --------------------------------------- Sub フォルダ名取得() Dim MyName Dim MyPath Dim i As Long ’仮の消込（初期化：　前回の記入文をクリアー） Range("A5:H50").Clear i = 1 ' フォルダーを自由に選べること。参考：officeTANAKA With Application.FileDialog(msoFileDialogFolderPicker) If .Show = True Then ' MsgBox .SelectedItems(1) If Len(.SelectedItems(1)) = 3 Then ' c:\の場合とサブフォルダーの場合 MyPath = .SelectedItems(1) Else MyPath = .SelectedItems(1) & "\" End If End If End With If MyPath = Empty Then MsgBox "フォルダー名表示をキャンセルしました。": Exit Sub 'Range("b2:c2").ShrinkToFit = True '　縮小してセル内に表示 MyName = Dir(MyPath, vbDirectory) ' 最初のフォルダ名を返します。 '親フォルダー Range("A2") = MyPath Do While MyName <> "" ' ループを開始します。 ' 現在のフォルダと親フォルダは無視します。 If MyName <> "." And MyName <> ".." Then ' ビット単位の比較を行い、MyName がフォルダかどうかを調べます。 If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then Range("a" & i + 4) = MyPath & MyName ' アクティブシートA5セルから下方にフルパス表示。 Range("b" & i + 4) = MyName ' アクティブシートB5セルから下方にフォルダ名表示 i = i + 1 End If End If MyName = Dir ' 次のフォルダ名を返します。 Loop MsgBox MyPath & "の中にフォルダーは" & (i - 1) & "個のフォルダーがありました。" End Sub
フォルダの読み込み専用属性とは

Window7なのですが、エクスプローラを起動してフォルダを選択し、右クリックするとフォルダの属性がわかり、読み取り専用の属性が割り当てられています。しかもほぼすべてのフォルダに対してです。実際は、そのフォルダ以下のファイルを作成したり編集したりするのですが、その属性はどういう意味があるのでしょうか。また、ファイル自体にその属性をつけるとどうなるものでしょうか。←こちらは実験でもわかりますが、公式的にどう説明されているのでしょうか。全体としてこの属性設定の意味を教えていただければと思いますが。
フォルダーとファイルの認識

フォルダーとファイルを認識するため、例として下記のVBAを実行します。 If (GetAttr("D:\winpobox-0.1\win2000") And vbDirectory) = vbDirectory Then MsgBox "フォルダ。" Else MsgBox "ファイル。" End If 結果は、「フォルダ」となりますが、「win2000」が「win.2000」とwinと2000の間に「.」（ドット）が入ると「ファイルが見つかりません。」となります。フォルダー名にドットが入っても識別できる方法はありますか。よろしくお願いいたします。
隠しファイルの属性の変更？

Documents and Settings というファイルを開き、右クリックで隠しファイルにチェックをいれて属性変更をしてしまいました。「このフォルダ、およびサブフォルダとファイルに変更を適応する」でＯＫをクリックしたところで属性変更が開始されました。また、変更になった直後あわてて隠しファイルのチェックを外す→適用とチェックをはずした作業を行った状態です； Outlook ExpressやPhotoshopなどが起動できなくなってしまいました。クッキーの情報？や単語登録も消えていてとても困っておりますシステムの復元などをしてみましたが状況もかわらず・・・なんとか元の状態に戻すことは可能でしょうか？ＯＳはＸＰ隠しファイルは現在みえる状態です。ＰＣ初心者のためわかりにくい文章ではありますが解決できそうな方、ご回答お願いいたします。
ExcelVBAのプログラムをJavaへ変換

if(a <>"A" And b<> "A" ) Then 処理 End if というプログラムがありました。 <>の部分がよくわからないです。これをJavaに変換するとすれば、どの様なプログラムになるのでしょうか？教えていただけるとありがたいです。
vba で全てのエクセルファイルを開く処理

お世話になります。下記のVBAソースで、特定のフォルダにあるエクセルを全て開く処理をしているのですが、スマートに行えているか疑問に思いました。具体的には、「'''''''''時間がかかっている？？」箇所で無駄なこと・時間がかかっていないか疑問です。目的としては、「vba で全てのエクセルファイルを開く処理」ですので、 (1)皆さんがされている「vba で全てのエクセルファイルを開く処理」 (2)下記ソースの「'''''''''時間がかかっている？？」は時間がかかっていないかの、どちらかで、結構ですのでご返事頂ければ有り難いです。宜しくお願いします。 ------------ソース----------------- ChDir (ThisWorkbook.Path & "\" & フォルダ) fileName = Dir("*.xls") Do While fileName <> "" If fileName <> ThisWorkbook.Name Then IsBookOpen = False '''''''''時間がかかっている？？ For Each OpenedBook In Workbooks If OpenedBook.Name = fileName Then IsBookOpen = True Exit For End If Next '''''''''時間がかかっている？？ If IsBookOpen = False Then Workbooks.Open (fileName) End If End If fileName = Dir() Loop
非表示の列があるか取得したい。

Sub Macro1() Columns("a").Hidden = True End Sub としたら、Ａ列が非表示になりますよね。そして、セル全体に非表示の列があるかどうかを取得したい場合はどうすればいいでしょう？ Sub Macro2() If Cells.Hidden = True Then MsgBox "非表示の列があります" End If End Sub をすると、実行時エラー1004になります。それに Cells.Hiddenの時点で、列だけじゃなくなってしまいます。あと、最終列はファイルによってまちまちです。Ｚ列の時もあれば、EAの時もあります。ご回答よろしくお願いします。
フォルダーに勝手に「隠し属性」がついていたんです

突然フォルダが消えたんです。というよりは勝手に「隠し属性」がついていたんです。そのフォルダーは画像が入っていたんですが、フォルダーに「窓の手(フリーソフト)」でアイコンが貼り付けてあり、アイコンが貼り付けてあるファイルは隠し属性がつけれないようになっているのですが、なぜか、隠し属性がついていました。レジストリの掃除やいろんなソフトのインストールなどやった後でしたので、その影響かなと思いますが、何か不気味です。どなたか同じような経験された方いらっしゃいましたら、アドバイス願います。 PS　こちらは　WINXP_SP2　の環境です。
プログラムのイベント処理中断方法

VB2008のイベンド中止処理についてお教え頂けませんでしょうか。 Formにボタンが１つあり、クリックするとCSVファイルが出力される処理をしたいです。やりたい処理： 1. 「CSVファイル出力しますか？」というメッセージを出す。YESなら処理続行。Noなら処理中止。 2. CSVファイル出力処理。 3. 「CSVファイルを出力しました。」 (プログラム自体を終了したいわけではありません） VBAだと下記のようなコードを書きたいです。 Sub テスト() Dim ans As Integer ans = MsgBox("CSVファイル出力しますか？", vbYesNo, "テスト") If ans = vbNo Then end end if 'CSV出力処理～～～ end sub VBにendというステートメントがあれば、良いのですが無さそうです・・・何か上手な処理はあるでしょうか？VBAのコードになってしまいますが、下記のような処理方法しかないでしょうか？ '''''''''''''''''1 Sub テスト() Dim ans As Integer ans = MsgBox("CSVファイル出力しますか？", vbYesNo, "テスト") If ans = vbNo Then end else 'CSV出力処理～～～ end if end sub ''''''''''''''''2 Sub テスト() Dim ans As Integer ans = MsgBox("CSVファイル出力しますか？", vbYesNo, "テスト") If ans = vbNo Then goto here end if 'CSV出力処理～～～ here: end sub
隠しファイルの開き方、教えて。フォルダのプロパティーで属性を隠しファイ

隠しファイルの開き方、教えて。フォルダのプロパティーで属性を隠しファイルにしました、開き方教えて下さい。

隠し属性

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

関連するQ&A

Excel　VBA ファイル属性に関しての質問です。

VB:隠し属性のフォルダ

vbaでフォルダ属性がうまく取れません

この場合エクセルVBAでどう書けばいいでしょうか？

フォルダの属性について

VBのloop内で。

隠しファイル属性の働きについて

Excel VBA 条件分岐のスマートな書き方

フォルダーの属性変更

読み取り属性を一括して外す

フォルダー名に特殊文字？が存在する場合にエラー発生

フォルダの読み込み専用属性とは

フォルダーとファイルの認識

隠しファイルの属性の変更？

ExcelVBAのプログラムをJavaへ変換

vba で全てのエクセルファイルを開く処理

非表示の列があるか取得したい。

フォルダーに勝手に「隠し属性」がついていたんです

プログラムのイベント処理中断方法

隠しファイルの開き方、教えて。フォルダのプロパティーで属性を隠しファイ

注目のQ&A

カテゴリ
一覧

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

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

隠し属性

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

関連するQ&A

Excel VBA ファイル属性に関しての質問です。

VB:隠し属性のフォルダ

vbaでフォルダ属性がうまく取れません

この場合エクセルVBAでどう書けばいいでしょうか？

フォルダの属性について

VBのloop内で。

隠しファイル属性の働きについて

Excel VBA 条件分岐のスマートな書き方

フォルダーの属性変更

読み取り属性を一括して外す

フォルダー名に特殊文字？が存在する場合にエラー発生

フォルダの読み込み専用属性とは

フォルダーとファイルの認識

隠しファイルの属性の変更？

ExcelVBAのプログラムをJavaへ変換

vba で全てのエクセルファイルを開く処理

非表示の列があるか取得したい。

フォルダーに勝手に「隠し属性」がついていたんです

プログラムのイベント処理中断方法

隠しファイルの開き方、教えて。フォルダのプロパティーで属性を隠しファイ

注目のQ&A

カテゴリ 一覧

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

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

Excel　VBA ファイル属性に関しての質問です。

カテゴリ
一覧

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