[過去ﾛｸﾞ]
スレ立てるまでもない質問はここで 152匹目 (1002ﾚｽ)
スレ立てるまでもない質問はここで 152匹目 http://mevius.5ch.net/test/read.cgi/tech/1573214616/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
必死ﾁｪｯｶｰ(本家)
(べ)
自ID
ﾚｽ栞
あぼーん
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
364: デフォルトの名無しさん [sage] 2020/01/17(金) 09:09:39 ID:aop662iW VBScriptでJPEGやRAWデータのファイル名に 撮影日時を追加するツールを作ったんだけど 見かけ上はうまく出来たようにみえるんだけど 何故かファイル名にスペースが入ってしまうんだけどなんでだろ？ 具体的にはもとのファイル名が "C:\Users\hoge\Desktop\新しいフォルダー (3)\DSC_0030.JPG" だったとするとツール実行後は "C:\Users\hoge\Desktop\新しいフォルダー (3)\ 2019 07 16- 2127_DSC_0030.JPG" になってしまう。ちなみにこれはサクラエディタやコマンドプロンプトでの見え方で デスクトップ上やメモ帳ではスペースは入らない http://mevius.5ch.net/test/read.cgi/tech/1573214616/364
366: デフォルトの名無しさん [sage] 2020/01/17(金) 09:56:15 ID:aop662iW >>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 http://mevius.5ch.net/test/read.cgi/tech/1573214616/366
368: デフォルトの名無しさん [] 2020/01/17(金) 11:25:45 ID:aop662iW >>367 なんか出来たっぽい ちなみに strText = objWSHFolder.GetDetailsOf(objWSHFolder.ParseName( objFiles.name), JPGIndx) のところで型変換することで解決しました ありがとうございまた http://mevius.5ch.net/test/read.cgi/tech/1573214616/368
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.031s