- PR -

VBSを使った，Tempフォルダー内のファイル削除

1
投稿者投稿内容
hirarin
常連さん
会議室デビュー日: 2002/02/28
投稿数: 45
お住まい・勤務地: 長野県松本市
投稿日時: 2007-04-03 12:38
閲覧ありがとうございます．
ユーザーのTempフォルダー内のファイルとフォルダーを削除しようと，VBSを作成しました．
ユーザー名は実行した環境のユーザーとなるように，スクリプトに記述してあります．
環境によって，ユーザー名の後に，「．ドメイン名」といった物がtempフォルダーになっている場合があります．この場合，④の「& strAccountInfo &」の後に「．ドメイン名」を付けるのがよいと考えますが，その記述方法がわかりません．これを読んでいる方で，わかる人がいたらご教示願います．よろしくお願いいたします．

以下，スクリプト．


option Explicit

Dim objFileSys
Dim strDeletePath
Dim objNetWork
Dim strAccountInfo
Dim strAccountInfo2

'ユーザーのプロファイルのTEMPフォルダー内のフォルダーを削除します．
'ゴミ箱には入りません．
'

'①ネットワークオブジェクトの作成
Set objNetWork = WScript.CreateObject("WScript.Network")

'②ファイルシステムオブジェクトを作成
Set objFileSys = CreateObject("Scripting.FileSystemObject")

'③ユーザ名取得
Set objNetWork = WScript.CreateObject("WScript.Network")
strAccountInfo = objNetWork.UserName

'==============================================================
'= ファイルの削除
'==============================================================
'④削除するファイルのパスを変数に設定
strDeletePath = "C:\Documents and Settings\"& strAccountInfo &"\Local Settings\Temp\*.*"

'⑤ファイルの削除を行います
objFileSys.DeleteFile strDeletePath


'==============================================================
'= フォルダの削除
'==============================================================
'⑥削除するフォルダのパスを変数に設定
strDeletePath = "C:\Documents and Settings\"& strAccountInfo &"\Local Settings\Temp\*"

'⑦フォルダの移動を行います
objFileSys.DeleteFolder strDeletePath

'⑧確認

WScript.echo "削除が終わりました。"

'⑧オブジェクトの破棄
set objFileSys = Nothing
Set objNetWork = Nothing
よねＫＥＮ
ぬし
会議室デビュー日: 2003/08/23
投稿数: 472
投稿日時: 2007-04-03 12:52
FileSystemObjectのGetSpecialFolderメソッドでTempフォルダを取得できます。
WSHスクリプトからのファイル操作（2） - @IT
1

スキルアップ／キャリアアップ（JOB@IT）