如何在一目录下随机取得一文件名，就像随机浏览图片

4me

用代码如何在一目录下随机取得一文件名，就像随机浏览图片。

守柔

方法有很多,以下一种供参考:

'* +++++++++++++++++++++++++++++++++++++++

'* Created By 守柔@ExcelHome 2004-12-05 6:08:18

'仅测试于System: Windows NT Word: 10.0 Language: 2052

'^The Code CopyIn [ThisDocument-ThisDocument]^'

'* --------------------------------------------------------------------------

Sub Example() Dim MyFile As Object, MyFolder As Object, MyFolders As Object Dim i As Integer, RndNumber As Integer, n As Integer Set MyFolders = CreateObject("Scripting.FileSystemObject") '创建系统文件 '获得指定系统文件下的文件夹对象 Set MyFolder = MyFolders.GetFolder("C:\My Documents\AppliOffice\AppliWord") '获得指定文件夹下的文件总数 i = MyFolder.Files.Count VBA.Randomize '初始化随机数生成器 RndNumber = Int(i * Rnd + 1) '取得一个从1到文件总数间的一个随机数 ' MsgBox RndNumber For Each MyFile In MyFolder.Files n = n + 1 '设置循环条件计数 '如果满足要求则返回文件名并退出程序 If n = RndNumber Then MsgBox MyFile.Path: Exit Sub Next End Sub '----------------------

wuduoyun

这么复杂啊？？

向版主大哥学习。

版主大哥，麻烦您帮忙看看，这个问题怎么办？

http://club.excelhome.net/viewthread.php?tid=73096

[此贴子已经被作者于2004-12-5 12:21:27编辑过]

4me

版主 好