新编获取当前目录下所有文件名以及超链接.docVIP

　　如何用ＶＢ程序提取当前文件夹目录下所有文件名以及超链接 首先在窗体上添加一个List控件和Command按钮，具体程序如下： ’调用API函数，实现超链接 Private Declare Function ShellExecute Lib shell32.dll Alias ShellExecuteA (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Sub Command1_Click() 调用 Searchfiles App.Path \, *.* End Sub Private Function Searchfiles(Path As String, Filetype As String) Dim files() As String 文件路径 Dim folder() As String 文件夹路径 Dim a, b, c As Long Dim spath As String spath = Dir(Path Filetype) 查找第一个文件 Do While Len(spath) 循环到没有文件为止 a = a + 1 ReDim Preserve files(1 To a) files(a) = Path spath 将文件目录和文件名组合，并放到数组中 List1.AddItem files(a) 加入到list控件中 spath = Dir 查出下一个文件 DoEvents Loop spath = Dir(Path \, vbDirectory) 查找第一个文件夹 Do While Len(spath) 循环到没有文件夹为止 If Left(spath, 1) . And Left(spath, 2) .. Then 跳过当前的目录及上级目录， If GetAttr(Path \ spath) = vbDirectory Then 确定是否是一个文件夹 b = b + 1 ReDim Preserve folder(1 To b) folder(b) = Path spath \ 将目录和文件夹名称组合形成新的目录,并存放到数组 End If End If spath = Dir 寻找下一个文件夹 DoEvents Loop For c = 1 To b 使用递归方法，遍历所有目录 Searchfiles folder(c), Filetype Next End Function Private Sub List1_Click() ’调用shellexecute函数 ShellExecute 0, open, List1.List(List1.ListIndex), vbNullString, vbNullString, 3 End Sub  电力安全月工作总结 [电力安全月工作总结]电力安全月工作总结 2011年3月1日至3月31日为我公司的安全生产月，**变电站围绕;夯实基储提高素质、树立标杆、争创一流;的主题，开展了丰富多彩、形式多样的具体行动：通过看板形式宣传安全第一、预防为主的方针；通过48+4的学习机会，进行安全生产大讨论；通过安全活动进行查找本站的隐患的活动，电力安全月工作总结。形成了;人人学会安全，层层尽责保证安全;的良好氛围，使我站的安全生产工作又上了一个新的台阶。 本站安全生产月活动具体工作如下： 1.开展安全月活动宣传工作，大家坐在一起讨论活动的主题、学习实施纲要、讨论各个实施阶段的活动安排。深刻反思11.3事故，汲取事故教训，每人写了一份11.3事故反思，并对本站的安全管理、记录报表、规章制度、培训工作、事故隐患每个值班员都谈了自己的看法和建议，对站内管理每个人都倾注了最大的热情，可见11.3对每一个值班员的触动是刻骨铭心的，安全月的必要开展对变电站各项工作的促进，尤其对值班员安全