哎了解。只是处理海量照片时不可能一张张去改。也只能这样了。不知道有那位有更好的方法。

如果不要求用原图，可以写几行代码来成批自动转换。

要用原图。比如我弄一个族谱，包含海量照片，一般的老人看，不大会使用电脑，只能弄成傻瓜式的。罗列出来的照片将是左右倒或180度的，总是要手工去调，关键是调好以后，程序退出来，再进去，就又恢复原样了，显的很LOW

Dim Img 'As ImageFile
Dim IP 'As ImageProcess
Set Img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")
Img.LoadFile "C:\WINDOWS\Web\Wallpaper\Bliss.bmp"
IP.Filters.Add IP.FilterInfos("RotateFlip").FilterID
IP.Filters(1).Properties("RotationAngle") = 90
Set Img = IP.Apply(Img)
Img.SaveFile "C:\WINDOWS\Web\allpaper\Bliss90.bmp"

这一段如何转成VFP程序呢，弄了好一阵都出错。

这个可以

CLEAR ALL
cPath = ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cPath)
sFile = cPath+"IMG_8066.jpg"
dFile = cPath+"IMG_8066_00.jpg"
_screen.AddObject("image1","image")
_screen.image1.stretch = 1
_screen.image1.left=10
_screen.image1.top=10
_screen.image1.width=180
_screen.image1.height=230
_screen.image1.picture = sFile
_screen.image1.visible = .T.

Img = CREATEOBJECT("WIA.ImageFile")
IP = CREATEOBJECT("WIA.ImageProcess")
Img.LoadFile(sFile)
IP.Filters.Add(IP.FilterInfos("RotateFlip").FilterID)
IP.Filters(1).Properties("RotationAngle") = 90
Img = IP.Apply(Img)
IF FILE(dFile)
    DELETE FILE (dFile)
ENDIF
Img.SaveFile(dFile)

_screen.image1.picture = dFile

RETURN

可以解决问题了。多谢，学习了。