[過去ﾛｸﾞ] スレ立てるまでもない質問はここで 152匹目 (1002ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

364(2): 2020/01/17(金)09:09 ID:aop662iW(1/3) AAS
VBScriptでJPEGやRAWデータのファイル名に
撮影日時を追加するツールを作ったんだけど
見かけ上はうまく出来たようにみえるんだけど
何故かファイル名にスペースが入ってしまうんだけどなんでだろ？

具体的にはもとのファイル名が
"C:\Users\hoge\Desktop\新しいフォルダー (3)\DSC_0030.JPG"
だったとするとツール実行後は
"C:\Users\hoge\Desktop\新しいフォルダー (3)\‎ 2019 ‎07 ‎16- ‏‎2127_DSC_0030.JPG"
になってしまう。ちなみにこれはサクラエディタやコマンドプロンプトでの見え方で

デスクトップ上やメモ帳ではスペースは入らない

---

366: 2020/01/17(金)09:56 ID:aop662iW(2/3) AAS
>>365
↓ほぼネットからのコピペですがこんな感じです

'画像データから撮影日を取得
JPGIndx = 12
strText = objWSHFolder.GetDetailsOf(objWSHFolder.ParseName( objFiles.name), JPGIndx)

'撮影日時が含まれない場合は更新日時を取得
if strText = "" then
JPGIndx = 3
strText = objWSHFolder.GetDetailsOf(objWSHFolder.ParseName( objFiles.name), JPGIndx)
End if

satueiDate_A = Replace(strText, "/", "")
satueiDate_A = Replace(satueiDate_A, ":", "")
satueiDate_A = Replace(satueiDate_A, " ", "-")
satueiDate_B = Replace(objFiles.Name, "-", "")
satueiDate_B = Replace(satueiDate_B, "_", "")

objFiles.Name = satueiDate_A & "_" & satueiDate_B

---

368: 2020/01/17(金)11:25 ID:aop662iW(3/3) AAS
>>367
なんか出来たっぽい
ちなみに
strText = objWSHFolder.GetDetailsOf(objWSHFolder.ParseName( objFiles.name), JPGIndx)
のところで型変換することで解決しました
ありがとうございまた

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.039s