管理硬盘中海量JPG文件很容易。

ning84

管理硬盘中海量JPG文件很容易。
方法有两种，Form形式和单元格形式。
本人认为单元格方法更简单方便实用。

1. Sub del()
   
2.   Dim FileName, Str, Cc As Integer
   
3.       Cc = 3
   
4.   Dim Sht As Worksheet
   
5.      Set Sht = Sheet3
   
6.      Sht.Activate
   
7.      FileName = Dir(ThisWorkbook.Path & "\*.JPG")
   
8.      Do While FileName <> "" '
   
9.           Str = ThisWorkbook.Path & "" & FileName
   
10.           Debug.Print Str
    
11.           Set Rng = Sht.Cells(3, Cc)
    
12.           Sht.Pictures.Insert (Str)
    
13.           Cc = Cc + 1
    
14.           FileName = Dir
    
15.          
    
16.      Loop
    
17. End Sub
    

复制代码

aman1516

所谓的“管理”是指什么呢？
1）建立目录链接？
2）快速查找？
3）按某项属性进行归类整理？
4）批量改名？
5）修改尺寸？
6）预览？
......
没有具体的要求无从说起如何管理“海量”的图片
WIN系统的搜索及批处理等功能就已足够快速强大的了