マルシェル新規登録で5000円分当たる

Windows7において、特定のフォルダ内だけ隠しファイルを表示(もしくは非表示)する方法はありますか?

OS標準の機能(フォルダオプション内)では、一括の設定しかなく困っています。

外部ツールの利用やレジストリの書き換えでも構いませんので、どなたかご存知の方がおりましたら、ご教授お願いします。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

フォルダ/ファイルを右クリックしてプロパティで設定する方法ではだめですか。



フォルダーオプションの表示の設定よっては見えたり見えなかったりしますが。
    • good
    • 0

さんこうに


VB Scriptで隠しファイル、フォルダの表示/非表示の切り替え - Visual Basic - 教えて!goo
http://oshiete.goo.ne.jp/qa/5435889.html
スクリプトの実行をしたことはありません。回答1のレジストリの記述が有効なことは確認しました。
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QVB Scriptで隠しファイル、フォルダの表示/非表示の切り替え

エクスプローラからツール>フォルダオプション>「表示」タブといくと
「すべてのファイルとフォルダを表示する」と「隠しファイルおよび隠しフォルダを表示しない」の二択から好きな方を選べるようになっていますが、これをVB Scriptで自動化することはできないでしょうか?

例えばhide.vbsを実行すれば隠しファイルが見えなくなるように。unhide.vbsで見えるようになるようにしたいです。

Aベストアンサー

こんにちは。

特定のフォルダを選ぶなら、直接、 ChengeAtribute mPath とコマンドを書き換えてください。なお、トグルになってますから、Hidden <-> Normal と入れ替わりますから、VBSは、ひとつだけで可能です。


Sample Code
'-------------------------------------------

Dim mFolder, mPath
Dim msg
Const ssfDESKTOP = 0
Const ssfPROGRAMS = &H2 'ProgramFiles
Const ssfPERSONAL = &H5 'MyDocuments
Set mFolder = CreateObject("Shell.Application").BrowseForFolder(0, "フォルダを選択してください", 0, ssfPERSONAL)

If Not mFolder Is Nothing Then
mPath = mFolder.Items.Item.Path
End If
If mPath <>"" Then
ChengeAtribute mPath
MsgBox msg
End If
Function ChengeAtribute(FolderPath)
Dim fso, d, f, s
Const Normal =0
Const Hidden =2
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(FolderPath)
If f.Attributes And Hidden Then
f.Attributes = f.Attributes + Hidden
msg = "Hidden On"
Else
f.Attributes = f.Attributes - Hidden
msg = "Hidden On"
End If
End Function

'-------------------------------------------

こんにちは。

特定のフォルダを選ぶなら、直接、 ChengeAtribute mPath とコマンドを書き換えてください。なお、トグルになってますから、Hidden <-> Normal と入れ替わりますから、VBSは、ひとつだけで可能です。


Sample Code
'-------------------------------------------

Dim mFolder, mPath
Dim msg
Const ssfDESKTOP = 0
Const ssfPROGRAMS = &H2 'ProgramFiles
Const ssfPERSONAL = &H5 'MyDocuments
Set mFolder = CreateObject("Shell.Application").BrowseForFolder(0, "フォルダを...続きを読む

Qフォルダオプションの個別設定ができない

以下ほどはひどくないのですが、似たような症状です(いくつも独立に記事があります)。隠しファイル表示でそのフォルダーだけ適用したいのに、デスクトップにも隠しファイルが出てしまいます。すべてに適用するを押していないのに。7のバグなのでしょうか?

直し方があれば、教えてください。

http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1246786057
Windows7 エクスプローラーでのファイル表示をフォルダごとに指定したい

Windows7を使用しています。

エクスプローラー等でファイルを表示する際に「特大アイコン」「大アイコン」「中アイコン」「小アイコン」「一覧」「詳細」などを選択できると思いますが、どこか一つのフォルダで指定したら、全部のフォルダがその指定になってしまいます。
XPなどは、フォルダごとに選べたのですが、WIndows7ではできないのでしょうか?

ドキュメント系は小アイコンでファイル属性とファイル名が分かればよいですが、画像系のフォルダは縮小版表示のほうが都合がよく、フォルダごとに表示形式が指定できたほうが圧倒的に使いやすいのですが。

以下ほどはひどくないのですが、似たような症状です(いくつも独立に記事があります)。隠しファイル表示でそのフォルダーだけ適用したいのに、デスクトップにも隠しファイルが出てしまいます。すべてに適用するを押していないのに。7のバグなのでしょうか?

直し方があれば、教えてください。

http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1246786057
Windows7 エクスプローラーでのファイル表示をフォルダごとに指定したい

Windows7を使用しています。

エクスプローラー等でファイルを表示す...続きを読む

Aベストアンサー

最後の部分の回答忘れていました・・・


>ドキュメント系は小アイコンでファイル属性とファイル名が分かればよいですが、
>画像系のフォルダは縮小版表示のほうが都合がよく、フォルダごとに表示形式が
>指定できたほうが圧倒的に使いやすいのですが。


正常に動作していればできます。

Qフォルダやファイルを他人から見れないようにするには、どうすればよいでしょうか?

パソコン内のファイルやフォルダを他人が簡単に見れないようにしたいのですが、何か方法がありましたら教えて頂けますと助かります。

たとえば、ロックしてパスワードを入力しないと開けないようにしたり、ファイル自体が表示されないようにしたりということは出来るのでしょうか?

ログインからパスワードを設定してしまうと、毎回パスワードを入力しなくてはなりませんよね?それは面倒なので、特定のファイルやフォルダだけロックしたいのですが、このようなことは可能でしょうか?

OSはWindowsXPです。

Aベストアンサー

●隠しファイルを使う方法
  どれか適当なフォルダを開いて「ツール」メニューから「フォルダオプション」を選択する。「表示」タブをクリックし,現れた「詳細設定」のリストの中で「隠しファイルおよび隠しフォルダを表示しない」にチェックが入っていることを確認する。
  それから,隠したいファイルやフォルダのアイコンを右クリックし,「プロパティ」をクリックする。「属性」という項目を探して「隠しファイル」にチェックを入れる。
  こうすると,ファイルやフォルダは透明化されて見えなくなります。自分が使うときには,「隠しファイルおよび隠しフォルダを表示しない」に入れてあるチェックを「すべてのファイルとフォルダを表示する」のほうにすればOKです。
  ただし,この方法では他のユーザーに同じ操作をされると見られてしまうので,次の方法もご紹介します。

●ZIPのパスワード付き圧縮を活用する
  ZIPという圧縮方法を使ってみましょう。例えば「Lhaca デラックス版」を使って圧縮する場合の例です。(このソフトは下記のページからダウンロードできます。)
  インストールが終わったら,デスクトップ上の+Lhacaのアイコンをダブルクリックする。「圧縮形式」の中の「ZIP」にチェックを入れる。
  今度は「Shift」キーを押しながら,デスクトップ上の+Lhacaのアイコンをダブルクリックする。
  +Lhacaの画面が開くので,「表示」メニューの「上級者設定」をダブルクリックする。
  「上級者オプション」が表示される。ここでは「パスワードを設定」にチェックを入れる。(これでパスワード付き圧縮の準備完了です。)
  パスワード付き圧縮をしたいファイルやフォルダを+Lhacaのアイコンにドラッグ&ドロップする。パスワードを入力すれば,圧縮される。
  パスワード付き圧縮されたZIPファイルをダブルクリックして解凍しようとすると,パスワードの入力を求められますから,無事にロックされているかどうかの確認ができます。

参考URL:http://www.vector.co.jp/soft/win95/util/se166893.html

●隠しファイルを使う方法
  どれか適当なフォルダを開いて「ツール」メニューから「フォルダオプション」を選択する。「表示」タブをクリックし,現れた「詳細設定」のリストの中で「隠しファイルおよび隠しフォルダを表示しない」にチェックが入っていることを確認する。
  それから,隠したいファイルやフォルダのアイコンを右クリックし,「プロパティ」をクリックする。「属性」という項目を探して「隠しファイル」にチェックを入れる。
  こうすると,ファイルやフォルダは透明化されて見えなくなり...続きを読む

QPDFが(保護)になって印刷できない!

お世話様です。PDFを印刷しようとしたところ、印刷できません。よくよく見てみたら、上部のバーに「保護」という文字が出ています。それを解除して印刷できる方法はないでしょうか?ご教示下さい。

Aベストアンサー

PDFを画面に表示させて、キーボードの「Print Screen」キーを押す。
スタート>アクセサリ>ペイントを起動させ、編集>貼り付けを行う。

添付は実際にやった例

QWindows7 64bit版で、一般に32bit用のソフトを動かすこ

Windows7 64bit版で、一般に32bit用のソフトを動かすことが出来ると
聞きましたが、本当でしょうか?
初心者として質問させて頂きました。
どうぞよろしくお願いします。

Aベストアンサー

外付けDVDドライブも問題なく動く可能性が高いです。
また、ほとんどのメーカはネット上でドライバ(Windows7用のプログラム)を配布しています。
そのドライブのメーカのサイトから対応するドライバを探してみてください。

よくわからないならドライブの商品名(型番(数字)まで正確に)を書いた上で質問を。
他にも不安な機器があるなら質問を

Qエクセルのセル内から数字だけを抽出する方法を教えて下さい

エクセルのセル内から数字だけを抽出する方法を教えて下さい
あるデータの列(備考欄)には様々な文字が入っていて、
その中に●名(●は数字)が入っています その数字だけを取り出して
別の列に移す関数を教えて下さい
※この列には他の数字は入っていません、最大で2ケタです

よろしくお願いします

Aベストアンサー

セル内の文字列の中に2桁までの数字が入っている場合に、その数字部分を抽出したいなら以下のような数式になります。

=MID(A2,MIN(FIND({0,1,2,3,4,5,6,7,8,9},ASC(A2)&1234567890)),1)&IF(ISNUMBER(MID(A2,MIN(FIND({0,1,2,3,4,5,6,7,8,9},ASC(A2)&1234567890))+1,1)*1),MID(A2,MIN(FIND({0,1,2,3,4,5,6,7,8,9},ASC(A2)&1234567890))+1,1)*1,"")

QVBAでfor文の中で、continueしたい

お世話になります。
VBAのfor文の中で、ある条件に合致したら、for の先頭に戻りたいのですが、
方法が分かりません。

VB.net 等の「 Continue For」に当たるものは、VBAに
ないのでしょうか?

何卒宜しくお願いします。

Aベストアンサー

Continue For は昔の VB6 までに物には実装されていませんね VB6 使いの私は知らなかった

for の先頭に戻りたいのではなく、 Next の直前に飛びたいのですよね?
幸いにも VBA には Goto ステートメントがありますので

Sub Sample1()
For i = 1 To 10
If 意除外条件 Then GoTo Next_no_mae

通常の総理

Next_no_mae:

Next i

End Sub

じゃダメですか?
これなら For の直後に飛ぶ事も可能ですが

もしくはこれぐらいしか対処方法はないのでは?
Sub Sample2()

For i = 1 To 10
If 除外条件 Then
Else
通常の総理
End If
Next i

End Sub


人気Q&Aランキング