2017-12-07 09:29:03 12月冷凍庫の手作りおかず表 Excel VBAのコピー JpGファイル名の抽出
弁当のための冷凍保存したおかずの管理するための写真です。
Excel VBAの 勉強しています。
10年ほど前にも 勉強はしましたが 勉強できない環境があり 中断
JpGファイル名の抽出 VBA 忘却のメモです。
Sub JpegCheck()
Dim objFS, objFol, shellObj, folderObj, myFol, myFile
Sheets("Sheet3").Select
myFol = InputBox("フォルダーのフルパス名（例 d:\img）を入力して下さい。", "フォルダー確認")
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFol = objFS.GetFolder(myFol)
Set shellObj = CreateObject("Shell.Application")
Set folderObj = shellObj.Namespace(myFol)
i = 1
Cells(1, 1) = "ファイル名"
Cells(1, 2) = "サイズ"
Cells(1, 3) = "更新日時"
Cells(1, 4) = "撮影日時"
For Each myFile In objFol.Files
myName = myFile.Name
If UCase(Right(myName, 3)) = "JPG" Then
i = i + 1
Cells(i, 1) = myName
Cells(i, 2) = folderObj.GetDetailsOf(folderObj.ParseName(myName), 1)
Cells(i, 3) = folderObj.GetDetailsOf(folderObj.ParseName(myName), 3)
Cells(i, 4) = folderObj.GetDetailsOf(folderObj.ParseName(myName), 12) 'Vist,Win７は12に変更
End If
Next
Set objFS = Nothing
Set objFol = Nothing
Set shellObj = Nothing
Set folderObj = Nothing
End Sub
