旋轉、設定桌布 (win8)- $Pic = "C:\new\img0.jpg"
- $FolderPath = Split-Path $Pic
- $FileName = Split-Path $pic -Leaf
-
-
- $Shell = new-object -com "shell.application"
- $File = $Shell.NameSpace($FolderPath).ParseName($FileName)
-
-
- #向右旋轉(Win8)
- $File.InvokeVerb("rotate90")
-
- #向左旋轉(Win8)
- $File.InvokeVerb("rotate270")
-
- #設定桌布 (win8)
- #WallpaperStyle
- #並排 0 TileWallpaper只有並排要設 1
- #置中 0
- #延展 2
- #全螢幕 6
- #填滿 10
- Set-ItemProperty 'HKCU:\Control Panel\Desktop' -Name "WallpaperStyle" -Value "0"
- Set-ItemProperty 'HKCU:\Control Panel\Desktop' -Name "TileWallpaper" -Value "0"
-
-
- $File.verbs() | ?{ $_.name -like "*(&B)" } | %{ $_.doit() }
-
- # For 英文版 Windows
- #$File.verbs() | ?{ $_.name -like "Set as desktop &background" } | %{ $_.doit() }
-
- sleep 2
复制代码 設定檢視、排序、分組- $Pic = "C:\new\img0.jpg"
- $FolderPath = Split-Path $Pic
- $FolderPath = $FolderPath -replace '\\' , '/'
-
-
- $Shell = new-object -com "shell.application"
- $Shell.Open($FolderPath)
- $Win = $Shell.Windows() | ? {$_.LocationURL -like "*$FolderPath" } | select -First 1
-
- # 1 中圖示
- # 2 中圖示
- # 3 清單
- # 4 詳細資料
- # 5 中圖示 (xp:縮圖)
- # 6 並排
- # 7 中圖示 (xp:影片)
- # 8 內容
- $Win.Document.CurrentViewMode = 7
-
-
- #小圖示(16)、中圖示(48)、大圖示(96)、超大圖示(256)
- #當CurrentViewMode的值是中圖示,設定IconSize才有效 (win8)
- $Win.Document.IconSize = 256
-
-
- #====================================================================
-
- #排序方式 → 名稱 → 遞增(win8) 二選一
- $win.Document.SortColumns = "prop:name"
- $win.Document.SortColumns = "prop:System.ItemNameDisplay"
-
- #排序方式 → 名稱 → 遞減(win8) 二選一
- $win.Document.SortColumns = "prop:-name"
- $win.Document.SortColumns = "prop:-System.ItemNameDisplay"
-
- #排序方式 → 修改日期 → 遞減(win8) 二選一
- $win.Document.SortColumns = "prop:-write"
- $win.Document.SortColumns = "prop:-System.DateModified"
-
- #排序方式 → 修改日期 → 遞增 (沒反應)
- $win.Document.SortColumns = "prop:write"
- $win.Document.SortColumns = "prop:System.DateModified"
-
- #=======================================================================
-
- #分組方式 → 名稱(win8)
- $win.Document.GroupBy = "System.ItemNameDisplay"
-
- #分組方式 → 類型(win8)
- $win.Document.GroupBy = "System.ItemTypeText"
-
- #不分組(win8)
- $win.Document.GroupBy = "System.Null"
复制代码 取得圖片屬性(GetDetailsOf)- #如果要取得英文版本
- #chcp 437
-
- $Pic = "C:\new\img0.jpg"
- $FolderPath = Split-Path $Pic
- $FileName = Split-Path $pic -Leaf
-
-
- $Shell = new-object -com "shell.application"
- $Folder = $Shell.NameSpace($FolderPath)
- $File = $Folder.ParseName($FileName)
-
- -1..300 | %{
- "$_ `t" + $Folder.GetDetailsOf( "" ,$_) + "`t`t" + $Folder.GetDetailsOf($File,$_)
- } > File-GetDetailsOf.txt
-
- Invoke-Item File-GetDetailsOf.txt
复制代码 結果
-1 項目類型: JPG 檔案
評等: 未評等
尺寸: 1920 x 1200
大小: 424 KB
0 名稱 img0
1 大小 424 KB
2 項目類型 JPG 檔案
3 修改日期 2012/7/7 上午 10:00
略
取得圖片屬性(ExtendedProperty)- $Pic = "C:\new\img0.jpg"
- $FolderPath = Split-Path $Pic
- $FileName = Split-Path $pic -Leaf
-
-
- $Shell = new-object -com "shell.application"
- $File = $Shell.NameSpace($FolderPath).ParseName($FileName)
-
- #取得尺寸 W x H
- $File.ExtendedProperty("Dimensions")
-
- #取得尺寸 W x H (win8)
- $File.ExtendedProperty("System.Image.Dimensions")
-
- #取得拍攝日期
- $File.ExtendedProperty("WhenTaken")
-
- #取得拍攝日期 (win8)
- $File.ExtendedProperty("System.Photo.DateTaken")
复制代码
复制代码 |