[安卓4 0屏保默认图片在哪个文件夹能在里面加图片吗我的手机屏保只]我试过3.6的系统不知道一不一样你可以参考一下，必须软件--re管理器，最好用汉化版 第一：打开R.E管理器--进入system文件夹打开app文件夹选择TwWallpaperChooser.apk~点住~选择弹...+阅读

特意为你写的代码，完全能满足你的要求

Dim Fso As Object

Dim F, d, F1, F2, F3, F4

Private Sub Command1_Click()

Folder (Text1.Text)

End Sub

Private Sub Form_Load()

Set Fso = CreateObject(＂Scripting.FileSystemObject＂)

End Sub

Private Function Folder(Sp As String)

Set F = Fso.getfolder(Sp)

Set d = F.subfolders

For Each F1 In d

File (F1.Path)

Folder (F1.Path)

Next

End Function

Private Function File(Fl As String)

On Error Resume Next

Set F2 = Fso.getfolder(Fl)

Set F3 = F2.Files

For Each F4 In F3

ext = Fso.GetExtensionName(F4.Path)

If ext = ＂jpg＂ Or ext = ＂bmp＂ Or ext = ＂ico＂ Then

Fso.CopyFile F4.Path, Text2.Text

End If

Next

End Function

以下为关联文档：

EXCEL VBA遍历控件按钮并逐个添加背景图片答：Sheet12.Shapes（＂大师＂ & num） 返回shape对象，shape对象没有Picture属性。 而“Sheet12.大师131”返回与此 OLE 对象相联系的 OLE 自动化对象，比如：CommandButton。该对象有pictu...

VB遍历文件夹中的图片添加文件列表控件，filelist Dim Shunxu As Integer, zongshu As Integer, strfilename As String Private Sub Form_Load() File1.Path = ＂d:\＂ ' ＂d:\123\图片文件夹＂ '文件夹路...