ygqiang

回复 11# ivor


    你的这个py代码。bat批处理也能实现。

echo 搜索某个目录下所有的jpg文件，并复制到目标目录
setlocal enabledelayedexpansion&for /f "delims=" %%a in ('dir /s /b C:\000\*.jpg') do (copy "%%a" "D:\test")
复制代码

ivor

回复 16# ygqiang


    我搜了一下，访问相机好像很麻烦

ygqiang

回复 17# ivor


相机/手机，通过usb数据线连接到win7系统，不显示U盘那种盘符。
    访问/读取这种设备，应该有统一的解决方案吧？

ygqiang

初步解决了。索引文件需要些时间 等待一会的话 文件就全了。

# 
# 获取 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
}
1..3|%{Get-ChildShellItem -Path "$($phone.Path)" -Recurse -Filter '((.jpg)|(.crw)|(.cr2)|(.avi)|(.mov)|(.mp4))$'
sleep 3}
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)
复制代码