■95288 / inTopicNo.7) |
Re[4]: リソースのタイムスタンプ取得方法 |
□投稿者/ くまくま (10回)-(2020/07/11(Sat) 00:48:27)
|
■No95283 (くまくま さん) に返信
> ぶなっぷさんの意見に近い方法で
>
> 1.BMPファイル名を番号か日時を付けた名称とする。
> 「あああ0001.bmp」とか「いいい202007102225.bmp」
> 2.プレビューで表示する際ファイル名で番号(日時)が一番大きいものを使用する
> 「埋め込まれているリソースの名前を取得する」
> https://dobon.net/vb/dotnet/programing/bitmapresource.html
>
> いちいち番号(日時)を振るうのが面倒ならファイル名プログラムを作ってしまえばよい
> (簡単ですから)
vbsの場合
Option Explicit
Dim nCnt
Dim oFS
Dim oF
Dim sFN
Set oFS = WScript.CreateObject("Scripting.FileSystemObject")
If WScript.Arguments.Count = 0 Then
WScript.Quit(-1)
End If
For nCnt = 0 To WScript.Arguments.Count - 1
Set oF = oFS.GetFile(WScript.Arguments(nCnt))
sFN = Year(oF.DateLastModified)
sFN = sFN & Right("0" & CStr(Month(oF.DateLastModified)), 2)
sFN = sFN & Right("0" & CStr(Day(oF.DateLastModified)), 2)
sFN = sFN & Right("0" & CStr(Hour(oF.DateLastModified)), 2)
sFN = sFN & Right("0" & CStr(Minute(oF.DateLastModified)), 2)
sFN = sFN & Right("0" & CStr(Second(oF.DateLastModified)), 2)
sFN = oFS.getBaseName(oF.Name) & sFN & "." & oFS.GetExtensionName(oF.Name)
oF.Name = sFN
Next
|
|