パソコン困りごと相談 
◇-Windowsのファイルをシフトキーでまとめて消す時に-misako(10/29-11:26)No.4095
　┗Re:Windowsのファイルをシフトキーでまとめて消す時に-ｓｕｍｉ(10/29-12:28)No.4098
　　┗Re:Windowsのファイルをシフトキーでまとめて消す時に-misako(10/29-15:55)No.4110
　　　┣Re:Windowsのファイルをシフトキーでまとめて消す時に-Cher(10/29-17:34)No.4124
　　　┃┣Re:Windowsのファイルをシフトキーでまとめて消す時に-Cher(10/29-17:38)No.4125
　　　┃┗Re:Windowsのファイルをシフトキーでまとめて消す時に-misako(10/30-13:13)No.4203
　　　┗Re:Windowsのファイルをシフトキーでまとめて消す時に-ｏ２ｋａ(10/29-23:13)No.4154
　　　　┗Re:Windowsのファイルをシフトキーでまとめて消す時に-misako(10/30-13:05)No.4201
▲このページのトップに戻る
4095Windowsのファイルをシフトキーでまとめて消す時にmisako 10/29-11:26

ＯＳ名：WindowsNT
パソコン名：GATEWAY
ソフト名：OS
すみません、こんな方法があるのかどうか分からないのですが、
作成したプログラムを確かめる為に流すたび、
大きなファイルがいくつもできるので、確認後、
プログラム以外のファイルをシフトキーで一括して消しています。
その際、プログラムファイルが出来たファイルの中に混じってしまい、
間違えて消してしまうことがよくあるのです。

日付別、名前別、種類別でソートし直しても混じるものなので、
それを避けて（プログラムファイルが複数あります）一つ一つ削除すべきなのでし
ょうが、もし、ファイル自身に消去不可（FDの上書き禁止みたいに）の属性設定が
できると、とても助かると思ったのです。

ファイルの消去作業は1日に10回以上（確認作業なので）行なっており、
その都度、プログラムだけを避けて選択するのが結構面倒なので、
もし、良い方法がございましたらお教え頂けると助かります。

どうぞ宜しくお願いいたします。

▲このページのトップに戻る
4098Re:Windowsのファイルをシフトキーでまとめて消す時にｓｕｍｉ URL10/29-12:28
記事番号4095へのコメント
misakoさんは No.4095「Windowsのファイルをシフトキーでまとめて消す時に」で書きま
した。
>ＯＳ名：WindowsNT
>パソコン名：GATEWAY
>ソフト名：OS
>すみません、こんな方法があるのかどうか分からないのですが、
>作成したプログラムを確かめる為に流すたび、
>大きなファイルがいくつもできるので、確認後、

そのファイルを保存する所を別のフォルダーに出来ませんか。

▲このページのトップに戻る
4110Re:Windowsのファイルをシフトキーでまとめて消す時にmisako 10/29-15:55
記事番号4098へのコメント
>そのファイルを保存する所を別のフォルダーに出来ませんか。

やはり、別ホルダーにするしかないですね。システム構築の関係上、出来ればホルダーを動かし
たくなかったのと、出来たファイルは動かす事が出来なかっためいい方法はないかと思いまし
た。
sumiさんアドバイスありがとうございました。

▲このページのトップに戻る
4124Re:Windowsのファイルをシフトキーでまとめて消す時にCher 10/29-17:34
記事番号4110へのコメント
>やはり、別ホルダーにするしかないですね。システム構築の関係上、出来ればホルダーを動かし
>たくなかったのと、出来たファイルは動かす事が出来なかっためいい方法はないかと思いまし
>た。

推測するに、残したいファイルの名前は固定で
消したいファイルは不定だと思うんでこんな感じのスクリプトでどうでしょ。
……出力先を分けた方がシステム的にきれいだとは思いますが。

excepts = Array("pg1.exe","pg2.exe","p3.dat") ' 残すファイル
set fs = WSH.CreateObject("Scripting.FileSystemObject")
set folder = fs.GetFolder("C:\TargetFolder")

for each file in folder.Files
delete = true
for each x in excepts
if x = file.Name then
delete = false
exit for
end if
next
if delete then
WSH.Echo(file) 'よさげならここをfile.Deleteに
end if
next

▲このページのトップに戻る
4125Re:Windowsのファイルをシフトキーでまとめて消す時にCher 10/29-17:38
記事番号4124へのコメント
う。インデント消えてる。
HTMLソースでは残ってるみたいだけど。

▲このページのトップに戻る
4203Re:Windowsのファイルをシフトキーでまとめて消す時にmisako 10/30-13:13
記事番号4124へのコメント
システムを作る経験が今までに無くて、その上
プログラムの出来る方が周りにいないので、
とてもとても参考になるスクリプトでした。
他にも応用できそうです。
ありがとうございました。

▲このページのトップに戻る
4154Re:Windowsのファイルをシフトキーでまとめて消す時にｏ２ｋａ 10/29-23:13
記事番号4110へのコメント
>やはり、別ホルダーにするしかないですね。

shiftで選択した後、ctrlを押しながら消したくないファイルを選択解除をする方法もあるんですけ
ど・・・。
　↑ｓｕｍｉさん、最初からこの事 書いてあげようよ・・・

▲このページのトップに戻る
4201Re:Windowsのファイルをシフトキーでまとめて消す時にmisako 10/30-13:05
記事番号4154へのコメント
>shiftで選択した後、ctrlを押しながら消したくないファイルを選択解除をする方法もあるんですけ
>ど・・・。

なるほどー！あとから非選択にする事が出来るんですね。知らなかったです。
ありがとうございました！

>　↑ｓｕｍｉさん、最初からこの事 書いてあげようよ・・・

いえいえ、返信頂けただけでうれしいのです。
本当にありがとうございました。