WindowsNT の過去ログです 検索窓で過去ログ検索できます

パソコントラブル解決・過去ログ  >  WindowsNT ログ ;> 他OSの検索

Windowsのファイルをシフトキーでまとめて消す時に

◇-Windowsのファイルをシフトキーでまとめて消す時に-misako(10/29-11:26)No.4095
 ┗Re:Windowsのファイルをシフトキーでまとめて消す時に-sumi(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のファイルをシフトキーでまとめて消す時に-o2ka(10/29-23:13)No.4154
    ┗Re:Windowsのファイルをシフトキーでまとめて消す時に-misako(10/30-13:05)No.4201

▲このページのトップに戻る
4095Windowsのファイルをシフトキーでまとめて消す時にmisako 10/29-11:26

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

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

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

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

▲このページのトップに戻る
4098Re:Windowsのファイルをシフトキーでまとめて消す時にsumi URL10/29-12:28
記事番号4095へのコメント
misakoさんは No.4095「Windowsのファイルをシフトキーでまとめて消す時に」で書きま
した。
>OS名: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のファイルをシフトキーでまとめて消す時にo2ka 10/29-23:13
記事番号4110へのコメント
>やはり、別ホルダーにするしかないですね。

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

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

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

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

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

パソコントラブル解決・過去ログ  >  WindowsNT ログ  >  Windowsのファイルをシフトキーでまとめて消す時に

 
「何か一言」を書く

A1.本ページは参考になりましたか? 又はアドバイスがありますか?
解決 参考になった 参考にならなかった アドバイスする

A2.何度目の訪問ですか?
初めて  数度目 5回以上来ている   管理人:

A3.何か一言どうぞ(アドレスは書くことができません)

A4.アドレスがあればどうぞ(1つまで)


↑↑↑↑よろしければ押してください↑↑↑↑

何か一言(本ページで参考になったならないを含めて残してあります)
◎:解決 ○:参考になった ×:参考にならなかった !:アドバイスあり

参考回数投稿日時何か一言

Facebookコメントを書く/読む

パソコン困りごと相談
現行掲示板を見る

積極的なご意見を
お待ちしています

「何か一言」を書く

Facebookコメントを書く/読む

(社)日本お助け隊

ホームページを簡単に作る!

和魂カウンセラー認定講座

全国イベントスケジュール