如何解决查找文件是否在Google相册中
最近,我的GDrive根目录中突然出现了一堆(超过8000个!)文件,所有图片和电影。它们似乎来自g Photos,但有些似乎没有出现在Photos中。因此,我决定写点东西来检查每个文件是否都在G Photos中(请参见代码打击)。
编写代码后,我意识到检查URL是否有效始终返回True,所以我走错了路。照片似乎有一个API。
所以我的问题是:
Sub isFileInPhotos()
Dim files,c As Range
Dim baseUrl As String,baseFolder As String
baseFolder = "\\Synoxyz\photo\900000 Gdrive pics\someFolder\"
baseUrl = "https://photos.google.com/search/"
files = GetFileList(baseFolder & "*.*")
Sheet1.Range("a1:a30") = WorksheetFunction.Transpose(files)
For Each c In Sheet1.Range("a1:a30").Cells
c.Offset(0,1) = baseUrl & WorksheetFunction.EncodeURL(RemoveExt(c.Value2))
c.Offset(0,2) = URLExists(c.Offset(0,1)) 'always True :(
Next c
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。