手机图片QQ到硬盘,如何获得图片原始日期.

perfect131

兰色的回忆 发表于 2023-6-20 11:17
你没理解他意思吧，他意思是用qq传到电脑上，文件的创建日期、修改日期等都会变成传到电脑的时间，所以用 ...

你要明白 exif信息 也是文件属性

wanghan519

兰色的回忆 发表于 2023-6-20 11:17
如果这个也能获取exif信息，那确实很牛逼

取到了，属性名叫System.Photo.DateTaken，代码在审核，确实nb

perfect131

wanghan519 发表于 2023-6-20 11:04
参考8楼，exif原来可以用shell.application来取

明天的图片 啊

兰色的回忆

perfect131 发表于 2023-6-20 11:20
你要明白 exif信息 也是文件属性

嗯嗯，属实厉害了，那我还有个问题了，有没有比较方便的方法改文件的日期（例如最后修改日期），我以前知道的是用api设置文件对应日期的FILETIME，但总感觉有点麻烦

ning84

学习 Shell.Application_百度百科  https://baike.baidu.com/item/Shell.Application/4537420


方法
说明
AddToRecent
添加一个对象到“最近的文档”的列表。
BrowseForFolder
创建一个对话框让用户选择一个文件夹，然后返回所选文件夹的Folder对象。
CanStartStopService
确定是否当前用户可以启动和停止指定的服务。
CascadeWindows
层叠桌面上所有窗口，相当于右击任务栏选择“层叠窗口”。
ControlPanelItem
运行指定的控制面板(*.cpl)应用程序。如果应用程序已经打开，它就会激活运行的实例。
EjectPC
挂起计算机。如果电脑支持这个命令。
Explore
在Windows资源管理器窗口中打开一个指定的文件夹。
ExplorerPolicy
获取指定的 Internet Explorer 策略的数据值。
FileRun
显示运行对话框。
FindComputer
显示“搜索结果:计算机”对话框。
FindFiles
显示“搜索:所有文件”对话框。
FindPrinter
显示“查找打印机”对话框允许用户找到打印机。
GetSetting
检索Shell全局设置。
GetSystemInformation
检索系统信息。
Help
显示Windows帮助和支持中心。
IsRestricted
从注册表检索一个组的限定设置。
IsServiceRunning
返回一个值，表示指定服务是否正在运行。
MinimizeAll
最小化桌面上所有窗口。
NameSpace
创建和返回指定的文件夹的Folder对象。
Open
打开指定的文件夹。
RefreshMenu
刷新开始菜单中的内容。只用于Windows XP之前的系统。
ServiceStart
启动一个指定的服务。
ServiceStop
停止一个指定的服务。
SetTime
显示“日期和时间属性”对话框。
ShellExecute
对指定文件执行指定的操作。
ShowBrowserBar
显示一个浏览器工具栏。
ShutdownWindows
显示“关闭计算机”对话框。
Suspend
不执行。
TileHorizontally
横向平铺桌面上所有窗口。
TileVertically
纵向平铺桌面上所有窗口。
ToggleDesktop
显示或隐藏桌面。
TrayProperties
显示“任务栏和「开始」菜单属性”对话框。
UndoMinimizeALL
撤消最小化所有窗口，恢复所有桌面窗口到它们在上次MinimizeAll命令之前相同的状态。
Windows
创建和返回一个ShellWindows对象。这个对象表示属于壳的所有打开的窗口的集合。
WindowsSecurity
显示“Windows安全”对话框。
WindowSwitcher
Windows Vista及以后系统的新增方法，在可以预览的3D堆栈中显示打开的窗口。

ning84

perfect131 发表于 2023-6-20 10:15
搞得 这么复杂，其实很简单
参考 7 楼，一般文件所有属性 都可以用这个方法 获取
https://club.excelhome ...

谢谢回复.

1. Sub Test1()
   
2.     Dim oShell As Shell
   
3.     Dim oDir, oFileName
   
4.     Dim oFolder, oFile
   
5.    
   
6.         oDir = "F:"
   
7.         oFileName = "2.jpg"
   
8.         Set oShell = New Shell
   
9.         Set oFolder = oShell.Namespace(oDir)
   
10.         Set oFile = oFolder.ParseName(oFileName)
    
11.         For ii = 1 To 500
    
12.             Sheet3.Cells(ii + 3, 3) = oFolder.GetDetailsOf(oFile, ii)
    
13.             Sheet3.Cells(ii + 3, 1) = ii
    
14.         Next ii
    
15.         Stop
    
16.         
    
17. End Sub
    

复制代码

1                2.73 MB
2                JPG 文件
3                2023/6/1 11:20
4                2023/6/21 7:48
5                2023/6/21 7:48
6                A
7               
8               
9                图像
10                Administrators
11                图片
12                ‎2023/‎6/‎1 ‏‎11:20
13               
14               
15               
16               
17               
18               
19                未分级
20                todayCam

1. Private Sub deldeldel()
   
2.    Dim Sht As Worksheet
   
3.    Dim Fso As FileSystemObject
   
4.    Dim oFile As File
   
5.    Dim Rng As Range
   
6.        Set Rng = Selection
   
7.    Dim Img As WIA.ImageFile
   
8.        Set Img = New WIA.ImageFile
   
9.        Img.LoadFile Rng
   
10.        With Img
    
11.             Debug.Print .Width, .Height
    
12.        End With
    
13.        Set Fso = New FileSystemObject
    
14.        Set oFile = Fso.GetFile(Rng)
    
15.        With oFile
    
16.            Debug.Print .DateCreated, .DateLastAccessed, .DateLastModified
    
17.            
    
18.        End With
    
19.       
    
20. End Sub

复制代码

ning84

wanghan519 发表于 2023-6-20 11:04
参考8楼，exif原来可以用shell.application来取

谢谢你的ExtendedProperty("System.Photo.DateTaken")方法

System.Photo.DateTaken - Win32 apps | Microsoft Learn  https://learn.microsoft.com/zh-c ... tem-photo-datetaken

拍摄照片的日期，如从相机读取的文件的可交换图像文件 (EXIF) 标记。

Windows 10，版本 1703、Windows 10、版本 1607、Windows 10、版本 1511、Windows 10、版本 1507、Windows 8.1、Windows 8、Windows 7


propertyDescription
项目
2023/06/13
4 个参与者
本文内容
Windows 7 的语法
Vista 的语法
元素信息
属性
描述单个唯一规范属性。 每个要在系统中可用的此类属性都必须具有相应的 propertyDescription 元素。

ning84

兰色的回忆 发表于 2023-6-20 11:17
如果这个也能获取exif信息，那确实很牛逼

读取JPG图片的Exif属性（一） - Exif信息简介_读取exif_瓦力人工智能的博客-CSDN博客  https://blog.csdn.net/fioletfly/article/details/53605959?spm=1001.2101.3001.6650.2&utm_medium=distribute.pc_relevant.none-task-blog-2%7Edefault%7ECTRLIST%7ERate-2-53605959-blog-117253559.235%5Ev38%5Epc_relevant_anti_t3&depth_1-utm_source=distribute.pc_relevant.none-task-blog-2%7Edefault%7ECTRLIST%7ERate-2-53605959-blog-117253559.235%5Ev38%5Epc_relevant_anti_t3&utm_relevant_index=3





再一次学习Exif,手机里的地点好像用VBA多不出来.

wanghan519

ning84 发表于 2023-6-25 07:40
读取JPG图片的Exif属性（一） - Exif信息简介_读取exif_瓦力人工智能的博客-CSDN博客  https://blog.csdn ...

试了下这个app，其他信息是放在注释里的，base64编码但内容加密了，猜测是用那个验证码解密，但不知道用的什么算法，所以基本很难从exif里读出地址
gps坐标倒是可以读出来，再找api去取地址也许能行
或者手机上termux监视文件夹，拍了新照片自动运行脚本获取gps对应地址，明文写入exif再加水印应该能行，只是好麻烦，相当于自己实现了个今日水印相机

wanghan519

ning84 发表于 2023-6-25 07:40
读取JPG图片的Exif属性（一） - Exif信息简介_读取exif_瓦力人工智能的博客-CSDN博客  https://blog.csdn ...

可以用今日水印相机官方的api，exif用户注释里的数据是加密的...