[问题求助] [已解决]PowerShell搜索佳能EOS M2微单相机文件并复制到本地硬盘

ygqiang

佳能EOS M2微单相机，usb数据线连接win7系统。powershell代码问题请教。

powershell代码功能是：搜索相机里面的照片、视频文件，并复制到本地d盘下的日期文件夹下（比如2016-03）。
佳能微单相机，用usb数据线连上win7 64系统，运行powershell代码，发现的规律是：
1、如果先通过鼠标手动点开相机的照片目录。
第1次运行代码，代码就能复制相机里的全部照片/视频到本地硬盘了。
2、如果不通过鼠标手动点开相机的照片目录。要反复运行2-4次代码，代码才能复制全部照片/视频到本地硬盘。


遇到的问题是：相机与win7 64系统usb数据线连接，
1、第1次运行代码，只复制了10张照片。
手动删除图片目录d:\2016-03（代码在d盘新建的）
2、第2次运行代码，只复制了15张照片。
手动删除图片目录d:\2016-03
3、第3次运行代码，才复制了全部照片21张。

然后断开usb连接，重新连接usb数据线。如果用鼠标手动点击开相机里的照片/视频目录。
1、第1次运行代码，复制了全部照片21张。
手动删除图片目录d:\2016-03
2、第2次运行代码，复制了全部照片21张。

ygqiang

相机usb数据线连接win7系统，截图。。

ygqiang

powershell代码如下。如何修改呢？多谢

# 
# 获取 Shell.Application 代理 
#  
function Get-ShellProxy
{ 
  if( -not $global:ShellProxy) {  
  $global:ShellProxy = new-object -com Shell.Application 
  }
  $global:ShellProxy
} 
# 
# 查看 Shell 项 
#  
function Get-ShellItem
{ 
 param($Path=17) 
 $shell=Get-ShellProxy
 # 默认的 NameSpace()方法只支持目录，不支持文件 
 # 为了增强兼容性和保持一致性，如果传入一个文件路径，可以尝试通过文件路径获取目录，然后再从目录的子项中获取Shell项 
 trap [System.Management.Automation.MethodInvocationException]
 { 
  $Path = $Path.ToString() 
  $dir = $Path.Substring( 0 ,$Path.LastIndexOf('\') ) 
  return $shell.NameSpace($dir).items()  |  
   where { (-not $_.IsFolder ) -and  $_.path -eq $Path} |
   select -First 1
  continue
 } 
 $shell.NameSpace($Path).self 
} 
# 
# 查看 Shell 子项,支持递归和过滤
#  
function Get-ChildShellItem
{ 
 param(
  $Path=17,
  [switch]$Recurse,
  $Filter=$null) 
 #内部过滤器
 Filter myFilter
 {
   if($Filter){ 
   $_ | where { $_.Name -match $Filter } 
   }
   else{
   $_
   }
 }
 $shellItem = Get-ShellItem $Path
 $shellItem | myFilter
 # 如果是目录 
 if( $shellItem.IsFolder ){  
  # 如果指定递归 
  if($Recurse) { 
   $shellItem | myFilter
   $stack=New-Object System.Collections.Stack
   # 当前目录压入堆栈 
   $stack.Push($shellItem)
   while($stack.Count -gt 0)
   {
     # 访问栈顶元素
     $top = $stack.Pop()
     $top | myFilter
     # 访问栈顶元素的子元素
     $top.GetFolder.items() | foreach {
       if( $_.IsFolder )
       { $stack.Push($_) }
       else { $_ | myFilter }
     }
   }
  } 
  else{ 
  $shellItem.GetFolder.items() | myFilter }
  } 
} 
# 
# 复制Shell项
# 
function Copy-ShellItem
{
 param($Path,$Destination)
 $shell=Get-ShellProxy
 $shell.NameSpace($Destination).Copyhere($Path,4)
}
# 
# 删除Shell项
# 
function Remove-ShellItem
{
 param($Path)
 $ShellItem = Get-ShellItem $Path
 $ShellItem.InvokeVerb('delete')
}
# 
# 移动Shell项
# 
function Move-ShellItem
{
 param($Path,$Destination)
 $shell=Get-ShellProxy
 $shell.NameSpace($Destination).MoveHere($Path,16)
}
# 文件存放的地址
$des = 'd:\'
# 匹配相机的关键字，比如：canon，nokia，Windows Phone，meizu，Smartisan，ZUK Z1
$keywords = 'canon','meizu','Windows Phone','nokia','Smartisan','ZUK Z1'
foreach ($keyword in $keywords)
{
$phones = Get-ChildShellItem | where { $_.name -like "*$keyword*" }
foreach ($phone in $phones)
{
if($phone -eq $null)
{
break
}
Get-ChildShellItem -Path "$($phone.Path)" -Recurse -Filter '((.jpg)|(.crw)|(.cr2)|(.avi)|(.mov)|(.mp4))$' | foreach {
#获取照片创建日期
$datestr = $_.Parent.GetDetailsOf($_,3)
$datestr=(get-date).tostring("yyyy-MM")
#新建日期文件夹
$dir = Join-Path $des $datestr
if( -not (Test-Path $dir) ) {
mkdir $dir
}
# 如果文件存在，先删掉
$file="{0}\{1}" -f $dir,$_.name
if( test-path $file) {  remove-item $file }
# 复制文件
Copy-ShellItem -Path $_ -Destination $dir
# 移动文件
# move-ShellItem -Path $_ -Destination $dir
}
}
}
exit
$des =  [environment]::GetFolderPath([System.Environment+SpecialFolder]::MyPictures)
复制代码

523066680

这……  你有LOFTER账号吗，交流

ivor

回复 3# ygqiang


    应该不是代码的问题，可能是系统读取相机图片错误

ygqiang

回复 5# ivor


    应该不是。
为啥多运行几次，就会全部复制出来呢？

有人说：
先将相机里面的照片/视频列表出来，先ls一下相机卡目录，
再拷贝，就可以了。

ivor

回复 6# ygqiang


    先调试能否获取到完整的全部文件列表

ygqiang

回复 7# ivor


    对powershell代码不懂啊。能否帮忙修改下。谢谢了

ivor

回复 1# ygqiang


    我用Python写的，放在相机最顶层

# coding:utf-8
# python 3.5.1
import os, shutil, time

# 需要复制的文件名后缀数组
end_filter = ('.jpg','.crw', '.cr2', '.avi','.mov', '.mp4')
# 目标文件夹
dest_dir = 'd:\\%s-%s'% (time.localtime().tm_year,time.localtime().tm_mon)
# 如果目标文件不存在则创建
if os.path.exists(dest_dir) == False:
    os.mkdir(dest_dir)
# 遍历查找需要复制的文件
for parent, dirnames, files in os.walk('.'):
    for i in files:
        if i.endswith(end_filter):
            shutil.copy(('%s\\%s'% (parent, i)),dest_dir)
            print('copying %s\\%s'% (parent, i))
os.system('pause')

            
复制代码

ygqiang

回复 9# ivor


    用Python写的，放在相机最顶层???

具体如何使用呢？
台式机win7系统环境下，都需要装什么软件？多谢

ivor

回复 10# ygqiang


    https://www.python.org/ftp/python/3.5.1/python-3.5.1.exe  

代码保存为xx.py，后缀是.py，放在相机里面运行就会复制当前目录下面所有的照片和视频到指定目录

ygqiang

回复 11# ivor


    多谢。一会测试下啊。
请问下，
# 遍历查找需要复制的文件
这个下面的代码，哪里体现出搜索佳能微单EOS M2目录下的图片/视频文件了呢？


还有，能否修改成：根据当前的年和月份，如果检测到d盘下面没有这种目录，就自动建立目录。
比如2016-03、2016-10、2017-01等等，

ygqiang

回复 11# ivor


    文件复制不到相机任何一个目录下。

ygqiang

回复 11# ivor


    xx.py最好放在d盘根目录下，运行1次，就自动搜索相机目录并复制所有照片/视频，到d盘的某个时间/日期目录下。

ygqiang

回复 9# ivor


    你的py代码测试了。
如果py文件放在普通的目录下，目录下有01.jpg，02.jpg，IMG_0296.JPG，IMG_0298.JPG等等照片
运行py代码，只能复制01和02照片，IMG_xxxx.jpg的照片，无法复制。

搞定了。竟然也分辨大小写的扩展名。

end_filter = ('.jpg','.JPG','.crw', '.cr2', '.avi','.mov', '.mp4')