OSはWIN10です
VBSでごみ箱に捨てたファイルの削除日時を取得して過ぎた日数によって完全削除したいのですが・・・
取得した削除日時を比較するためにCDateでデータ型に変換したいのですが「型が一致しません」のエラーが出てできません。
ゴミ箱以外のフォルダのファイルの更新日時とかは問題なCDateでデータ型に変換できます。
下記のような感じなのですが、WinXPの時は問題なく動いたのですが・・・
Set obj = CreateObject("Shell.Application").NameSpace(10)
WScript.Echo obj.GetDetailsOf(obj.Items().Item(0), 2)
WScript.Echo CDate(obj.GetDetailsOf(obj.Items().Item(0), 2))
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
こちらWindows7なので、もしかしたら、違うかもしれませんが、以下のスクリプトを実行してください。
取得した日付の中に、unicodeの8206,8207が含まれています。これが、原因でCDateのエラーになっています。
この文字を削除すると、エラーが回避できます。
-----------------------------------------------------------
Option Explicit
dim obj
dim dtime
dim dtime2
dim i
dim c1
Set obj = CreateObject("Shell.Application").NameSpace(10)
WScript.Echo obj.GetDetailsOf(obj.Items().Item(0), 2)
dtime = obj.GetDetailsOf(obj.Items().Item(0), 2)
WScript.Echo len(dtime)
for i = 1 to len(dtime)
c1 = mid(dtime,i,1)
WScript.Echo "<" & c1 & ">" & asc(c1) & ":" & ascw(c1)
next
dtime = replace(dtime,Chrw(8206),"")
dtime = replace(dtime,Chrw(8207),"")
WScript.Echo CDate(dtime)
-------------------------------------------
以下、実行結果です。
Microsoft (R) Windows Script Host Version 5.8
Copyright (C) Microsoft Corporation 1996-2001. All rights reserved.
2019/08/14 11:38
21
<>63:8206
<2>50:50
<0>48:48
<1>49:49
<9>57:57
</>47:47
<>63:8206
<0>48:48
<8>56:56
</>47:47
<>63:8206
<1>49:49
<4>52:52
< >32:32
<>63:8207
<>63:8206
<1>49:49
<1>49:49
<:>58:58
<3>51:51
<8>56:56
2019/08/14 11:38:00
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBA インデックスが有...
-
ftp_getできない?
-
VBSでレジストリーの削除方法
-
ファイルopenエラーになってし...
-
韓国に送った添付ファイルexcel...
-
ASP.NET サーバーでClassのコー...
-
緊急です。 パワーポイントで p...
-
VB6 使用中ファイルの確認
-
勝手にdatファイルになるのです...
-
ギガファイル便って女の人のエ...
-
htmをhtmlに変える方法
-
ホームページビルダーでPDFを貼...
-
messengerに投稿したwordファイ...
-
Dreamweaverのチェックインチェ...
-
録音アプリのPCM録音で4時間録...
-
ホームページビルダーで作成し...
-
保存したホームページは、本当...
-
TSファイルをスムーズに再生したい
-
ワード文書がXMLドキュメントに...
-
mpeg-1とmpeg-2の見分け方
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ホームページビルダーの【×】マ...
-
コンパイル時のエラーについて...
-
ワードがなかなか閉じないです
-
ファイルopenエラーになってし...
-
急にXMLパースエラーが表示され...
-
EXCEL このブックには更新でき...
-
エクセルVBA インデックスが有...
-
電子書籍epub変換について
-
フォルダの削除について
-
一度PictureBoxに表示させたフ...
-
ftp_getできない?
-
VBAを記述したEXCELファイルを...
-
VB6 使用中ファイルの確認
-
VBSでごみ箱に捨てたファイルの...
-
Irvineフリーのプロトコルエラ...
-
韓国に送った添付ファイルexcel...
-
OEが立ち上がらない!!(初心...
-
MHTMLファイルを開いたら「有効...
-
VBSでレジストリーの削除方法
-
Excelのハイパーリンクがエラー...
おすすめ情報