質問: temp内ファイルを削除するプログラムを組みたい windows内のtempフォルダ内にあるファイルならばパスがわかっているので指定すれば削除プログラムを組めます。 が、profileのtemp内やcookies内のファイルになるとprofile名によるのですんなりとは無理です。 vb、c等(exeファイル)では会社がok出さないので、batファイルかvbsファイル(混合ok)で組みたいです。 profileですが、10桁の社員コードで出来ています。 例:社長=0000000001。専務=0000000002。 c:\documents and settings\0000000001\cookies c:\documents and settings\0000000001\local settings\temp profileがどんな数値(管理者はadminなのでadmin内も消したい)でもcooliesとtemp内ファイルを消したいです。 どのように組めばできますでしょうか? お知恵をお貸しください。
回答: dim fso dim folder dim subfolders dim subfolder dim subfolder2 dim subfolder3 dim file dim path path = "c:\documents and settings\" set fso = createobject("scripting.filesystemobject") set folder = fso.getfolder(path) for each subfolder in folder.subfolders for each subfolder2 in subfolder.subfolders if ucase(subfolder2.name) = "temp" then set subfolder3 = fso.getfolder(path & subfolder.name & "\temp") for each file in subfolder3.files fso.deletefile path & subfolder.name & "\temp\" & file.name next end if next next set file = nothing set folder = nothing set fso = nothing で一応できますが、権限によっては他ユーザーのフォルダにはアクセスできない場合があります。