
No.1ベストアンサー
- 回答日時:
取得だけであれば、以下で可能です。
サンプルは
Microsoft Scripting Runtime
Microsoft Shell Controls And Automation
を参照設定すると、Object型ではない宣言が可能です。
Private Const DEF_FILE_NAME As String = "C:\test\サンプル.jpg"
Sub Main()
Dim l_fsoObj As Object 'As Scripting.FileSystemObject
Dim l_fsoFile As Object 'As Scripting.File
Set l_fsoObj = CreateObject("Scripting.FileSystemObject")
Set l_fsoFile = l_fsoObj.GetFile(DEF_FILE_NAME)
Call DebugFileInfo(l_fsoFile.ParentFolder.Path, l_fsoFile.Name)
End Sub
Private Sub DebugFileInfo(ByVal p_strFolder As String, ByVal p_strFile As String)
Dim objShell As Object 'As Shell
Dim objDir As Object 'As Shell32.Folder
Dim objItm As Object 'As Shell32.FolderItem
Dim i As Integer
If Not (Right(p_strFolder, 1) = "\") Then
p_strFolder = p_strFolder & "\"
End If
Set objShell = CreateObject("Shell.Application")
Set objDir = objShell.NameSpace(CStr(p_strFolder))
Set objItm = objDir.ParseName(p_strFile)
Dim l_strTitle As String
Dim l_strValue As String
For i = 0 To 39
l_strTitle = objDir.GetDetailsOf(Nothing, i)
l_strValue = objDir.GetDetailsOf(objItm, i)
Debug.Print i & ":" & l_strTitle & "="; l_strValue
Next i
End Sub
回答、ありがとうございました。おかげでDCFの日付データの位置はわかりました。そうなると、ファイルの一部を読み書きすればできそうです。その件で新たに質問を投稿しましたので、おわかりでしたら回答をお願いします。
No.2
- 回答日時:
読むだけだったら、
http://www.vbaccelerator.com/home/vb/code/vbMedi …
書くことについては、しばらく悩んだことがありますが、
私は、その類のソフトを使うか、どうしてもVBでということならOCXなどを購入したほうが良い、という結論に達しました。(挫折しました)
http://msdn.microsoft.com/en-us/library/ms533832 …
http://www.kodak.com/global/plugins/acrobat/en/s …
http://www.sno.phy.queensu.ca/~phil/exiftool/Tag …
http://www.spaz.com/mr/work/aspexiffuncs/
回答、ありがとうございました。おかげでDCFの日付データの位置はわかりました。そうなると、ファイルの一部を書き込めばできそうです。その件で新たに質問を投稿しましたので、おわかりでしたら回答をお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Photoshop(フォトショップ) 写真に日付を入れるのがそんなに大変か 9 2023/07/22 14:38
- Dropbox 画像ファイルのコピー先での日付の同期について 1 2022/06/13 12:02
- iPhone(アイフォーン) iphoneで撮影した写真、動画を連番のファイル名で保存したい。 1 2022/04/28 02:12
- 車検・修理・メンテナンス 自動車ドライブレコーダー 前後 7678 円 在庫限りで安いですが購入しても良いでしょうか GPS 5 2022/07/09 07:17
- デジタルカメラ カメラをPCに取り込んだときのファイル表示について 6 2022/06/16 07:58
- Excel(エクセル) 至急 Excel日付表示設定教えてください Excelの日付表示ですが、他者から送られてくるExce 6 2023/02/03 11:01
- LINE iPhoneで撮った写真を撮影日時と位置情報付きでLINEで送信する方法ありますか? いつもLINE 1 2023/05/25 17:23
- 時計・電卓・電子辞書 ソーラー腕時計の自動時刻合わせが、いつもずれてしまう 7 2022/12/04 10:36
- デジタルカメラ Googleピクセルで撮影した画像ファイル名の日付がズレる 2 2022/05/29 20:25
- その他(Microsoft Office) エクセル 条件付き書式 日をまたぐ塗りつぶし 1 2023/01/13 18:00
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・昔のあなたへのアドバイス
- ・字面がカッコいい英単語
- ・許せない心理テスト
- ・歩いた自慢大会
- ・「I love you」 をかっこよく翻訳してみてください
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・はじめての旅行はどこに行きましたか?
- ・準・究極の選択
- ・この人頭いいなと思ったエピソード
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・【お題】甲子園での思い出の残し方
- ・【お題】動物のキャッチフレーズ
- ・人生で一番思い出に残ってる靴
- ・これ何て呼びますか Part2
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・あなたが好きな本屋さんを教えてください
- ・かっこよく答えてください!!
- ・一回も披露したことのない豆知識
- ・ショボ短歌会
- ・いちばん失敗した人決定戦
- ・性格悪い人が優勝
- ・最速怪談選手権
- ・限定しりとり
- ・性格いい人が優勝
- ・これ何て呼びますか
- ・チョコミントアイス
- ・単二電池
- ・初めて自分の家と他人の家が違う、と意識した時
- ・「これはヤバかったな」という遅刻エピソード
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・泣きながら食べたご飯の思い出
- ・一番好きなみそ汁の具材は?
- ・人生で一番お金がなかったとき
- ・カラオケの鉄板ソング
- ・自分用のお土産
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
DataGridViewでyyyy/MM/dd
-
Eclipseの対応する括弧の強調表...
-
エクセルのVBAで日付を検索し転...
-
htmlで日付表示。三日後の日付...
-
C++で日付判定を行いたい!!
-
ユーザーフォームのラベルに日...
-
コンボボックスに日付を表示する
-
ZedGraphのグラフ作成時のX軸日付
-
VB 日付範囲チェック
-
エクセルの試用期限の設定について
-
テキストボックスにカレンダー...
-
「eclipseで作るカレンダー(ス...
-
VBAで当月の1日を表示するには...
-
【Excel VBA】条件に合った行の...
-
経過時間を表示したい
-
【VBA】土日をスキップして日付...
-
特定の文字の下に貼り付けするV...
-
DataGridViewの和暦表示について
-
JSPからYYYYMMDDで日付入力する
-
VisualBasic6.0のFormat関数で...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのVBAで日付を検索し転...
-
ユーザーフォームのラベルに日...
-
DataGridViewでyyyy/MM/dd
-
Eclipseの対応する括弧の強調表...
-
VisualBasic6.0のFormat関数で...
-
システム日付とは?
-
VBAで当月の1日を表示するには...
-
テキストボックスにカレンダー...
-
VBA 日付、未来の日付はエラー...
-
今日より前の書き方 マクロ
-
コンボボックスに日付を表示する
-
【Excel VBA】条件に合った行の...
-
JSPからYYYYMMDDで日付入力する
-
【VBA】土日をスキップして日付...
-
VBA 日付・時刻の判別 時刻を認...
-
3人のじゃんけんのプログラム
-
ExcelVBAでSQLサーバの日付時刻...
-
VBでDate型の大小比較がうまく...
-
VB 日付範囲チェック
-
「eclipseで作るカレンダー(ス...
おすすめ情報