下载文档原格式
垃圾百度文库,非说我文档质量低,害我复制这么多,双横线以后是复制品,大家不用看这段代码是我在网上找到的,速度很快,有需要的朋友保存下吧执行前先加个command,一■个listbox'遍历文件夹Private Sub ShowFolderList(folderspec)Dim fs, f, f1, s, sfDim hs, h, h1, hfSet fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder(folderspec)Set sf = f.SubFoldersFor Each f1 In sfList1.AddItem folderspec & "\" & Call ShowFolderList(folderspec & "\" & )NextEnd Sub'遍历某文件夹下的文件Private Sub Showfilelist(folderspec)Dim fs, f, f1, fc, sSet fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder(folderspec)Set fc = f.FilesFor Each f1 In fcList1.AddItem NextEnd Sub'遍历某文件夹及子文件夹中的所有文件Sub SosuoFile(MyPath As String)Dim Myname As StringDim a As StringDim B() As StringDim dir_i() As StringDim i, idir As LongIf Right(MyPath, 1) <> "\" Then MyPath = MyPath + "\"Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)Do While Myname <> ""If Myname <> "." And Myname <> ".." ThenIf (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then '如果找到的是目录idir= idir + 1ReDim Preserve dir_i(idir) As Stringdir_i(idir - 1) = MynameElseList1.AddItem MyPath & Myname '把找到的文件显示到列表框中End IfEnd IfMyname = Dir '搜索下一项LoopFor i = 0 To idir - 1Call SosuoFile(MyPath + dir_i(i))Next iReDim dir_i(0) As StringEnd Sub'附:'在这里可以处理目录中的文件' '得到文件名'Fn.Size '得到文件大小'Fn.Path '得到文件路径'Fn.Type '得到文件类型'Fn.DateLastModified '得到文件最后的修改日期'调用方法'ShowFolderList ("c:\a") 查找目录'Showfilelist ("c:\a") 查找文件'SosuoFile ("c:\a")查找目录+文件'遍历文件夹Private Sub ShowFolderList(folderspec)Dim fs, f, f1, s, sfDim hs, h, h1, hfSet fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder(folderspec)Set sf = f.SubFoldersFor Each f1 In sfList1.AddItem folderspec & "\" & Call ShowFolderList(folderspec & "\" & ) NextEnd Sub'遍历某文件夹下的文件Private Sub Showfilelist(folderspec)Dim fs, f, f1, fc, sSet fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder(folderspec)Set fc = f.FilesFor Each f1 In fcList1.AddItem NextEnd Sub'遍历某文件夹及子文件夹中的所有文件Sub SosuoFile(MyPath As String)Dim Myname As StringDim a As StringDim B() As StringDim dir_i() As StringDim i, idir As LongIf Right(MyPath, 1) <> "\" Then MyPath = MyPath + "\"Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)Do While Myname <> ""If Myname <> "." And Myname <> ".." ThenIf (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then '如果找到的是目录idir = idir + 1ReDim Preserve dir_i(idir) As Stringdir_i(idir - 1) = MynameElseList1.AddItem MyPath & Myname '把找到的文件显示到列表框中End IfEnd IfMyname = Dir '搜索下一项LoopFor i = 0 To idir - 1Call SosuoFile(MyPath + dir_i(i))Next iReDim dir_i(0) As StringEnd Sub'附:'在这里可以处理目录中的文件' '得到文件名'Fn.Size '得到文件大小'Fn.Path '得到文件路径'Fn.Type '得到文件类型'Fn.DateLastModified '得到文件最后的修改日期'调用方法'ShowFolderList ("c:\a") 查找目录'Showfilelist ("c:\a") 查找文件'SosuoFile ("c:\a") 查找目录+文件 '遍历文件夹Private Sub ShowFolderList(folderspec)Dim fs, f, f1, s, sfDim hs, h, h1, hfSet fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder(folderspec)Set sf = f.SubFoldersFor Each f1 In sfList1.AddItem folderspec & "\" & Call ShowFolderList(folderspec & "\" & ) NextEnd Sub'遍历某文件夹下的文件Private Sub Showfilelist(folderspec)Dim fs, f, f1, fc, sSet fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder(folderspec)Set fc = f.FilesFor Each f1 In fcList1.AddItem NextEnd Sub'遍历某文件夹及子文件夹中的所有文件Sub SosuoFile(MyPath As String)Dim Myname As String Dim a As String Dim B() As String Dim dir_i() As String Dim i, idir As LongIf Right(MyPath, 1) <> "\" Then MyPath = MyPath + "\"Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly) Do While Myname <> ""If Myname <> "." And Myname <> ".." ThenIf (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then '如果找到的是目录 idir = idir + 1ReDim Preserve dir_i(idir) As String dir_i(idir - 1) = Myname ElseList1.AddItem MyPath & Myname '把找到的文件显示到列表框中End If End IfMyname = Dir '搜索下一项 LoopFor i = 0 To idir - 1Call SosuoFile(MyPath + dir_i(i)) Next iReDim dir_i(0) As String End Sub'附:'在这里可以处理目录中的文件'得到文件名 '得到文件大小 '得到文件路径 '得到文件类型'调用方法'ShowFolderList ("c:\a") 查找目录 'Showfilelist ("c:\a") 查找文件'SosuoFile ("c:\a") 查找目录+文件 '遍历文件夹 Private Sub ShowFolderList(folderspec)Dim fs, f, f1, s, sf Dim hs, h, h1, hfSet fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(folderspec) Set sf = f.SubFolders For Each f1 In sfList1.AddItem folderspec & "\" & ' 'Fn.Size 'Fn.Path 'Fn.Type'Fn.DateLastModified'得到文件最后的修改日期Call ShowFolderList(folderspec & "\" & )NextEnd Sub'遍历某文件夹下的文件Private Sub Showfilelist(folderspec)Dim fs, f, f1, fc, sSet fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder(folderspec)Set fc = f.FilesFor Each f1 In fcList1.AddItem NextEnd Sub'遍历某文件夹及子文件夹中的所有文件Sub SosuoFile(MyPath As String)Dim Myname As StringDim a As StringDim B() As StringDim dir_i() As StringDim i, idir As LongIf Right(MyPath, 1) <> "\" Then MyPath = MyPath + "\"Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)Do While Myname <> ""If Myname <> "." And Myname <> ".." ThenIf (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then '如果找到的是目录idir = idir + 1ReDim Preserve dir_i(idir) As Stringdir_i(idir - 1) = MynameElseList1.AddItem MyPath & Myname '把找到的文件显示到列表框中End IfEnd IfMyname = Dir '搜索下一项LoopFor i = 0 To idir - 1Call SosuoFile(MyPath + dir_i(i))Next iReDim dir_i(0) As StringEnd Sub'附:'在这里可以处理目录中的文件' '得到文件名'Fn.Size '得到文件大小'Fn.Path '得到文件路径'Fn.Type '得到文件类型'Fn.DateLastModified '得到文件最后的修改日期'调用方法'ShowFolderList ("c:\a") 查找目录'Showfilelist ("c:\a") 查找文件'SosuoFile ("c:\a") 查找目录+文件 '遍历文件夹Private Sub ShowFolderList(folderspec)Dim fs, f, f1, s, sfDim hs, h, h1, hfSet fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder(folderspec)Set sf = f.SubFoldersFor Each f1 In sfList1.AddItem folderspec & "\" & Call ShowFolderList(folderspec & "\" & ) NextEnd Sub'遍历某文件夹下的文件Private Sub Showfilelist(folderspec)Dim fs, f, f1, fc, sSet fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder(folderspec)Set fc = f.FilesFor Each f1 In fcList1.AddItem NextEnd Sub'遍历某文件夹及子文件夹中的所有文件Sub SosuoFile(MyPath As String)Dim Myname As StringDim a As StringDim B() As StringDim dir_i() As StringDim i, idir As LongIf Right(MyPath, 1) <> "\" Then MyPath = MyPath + "\"Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)Do While Myname <> ""If Myname <> "." And Myname <> ".." ThenIf (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then '如果找到的是目录idir = idir + 1ReDim Preserve dir_i(idir) As Stringdir_i(idir - 1) = MynameElseList1.AddItem MyPath & Myname '把找到的文件显示到列表框中End IfEnd IfMyname = Dir '搜索下一项LoopFor i = 0 To idir - 1Call SosuoFile(MyPath + dir_i(i))Next iReDim dir_i(0) As StringEnd Sub'附:'在这里可以处理目录中的文件' '得到文件名'Fn.Size '得到文件大小'Fn.Path '得到文件路径'Fn.Type '得到文件类型'得到文件最后的修改日期'Fn.DateLastModified'调用方法'ShowFolderList ("c:\a") 查找目录'Showfilelist ("c:\a") 查找文件'SosuoFile ("c:\a") 查找目录+文件 '遍历文件夹Private Sub ShowFolderList(folderspec)Dim fs, f, f1, s, sfDim hs, h, h1, hfSet fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder(folderspec)Set sf = f.SubFoldersFor Each f1 In sfList1.AddItem folderspec & "\" & Call ShowFolderList(folderspec & "\" & )NextEnd Sub'遍历某文件夹下的文件Private Sub Showfilelist(folderspec)Dim fs, f, f1, fc, sSet fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder(folderspec)Set fc = f.FilesFor Each f1 In fcList1.AddItem NextEnd Sub'遍历某文件夹及子文件夹中的所有文件Sub SosuoFile(MyPath As String)Dim Myname As StringDim a As StringDim B() As StringDim dir_i() As StringDim i, idir As LongIf Right(MyPath, 1) <> "\" Then MyPath = MyPath + "\"Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)Do While Myname <> ""If Myname <> "." And Myname <> ".." ThenIf (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then '如果找到的是目录idir = idir + 1ReDim Preserve dir_i(idir) As Stringdir_i(idir - 1) = MynameElseList1.AddItem MyPath & Myname '把找到的文件显示到列表框中End IfEnd IfMyname = Dir '搜索下一项LoopFor i = 0 To idir - 1Call SosuoFile(MyPath + dir_i(i))Next iReDim dir_i(0) As StringEnd Sub'附:'在这里可以处理目录中的文件' '得到文件名'Fn.Size '得到文件大小'Fn.Path '得到文件路径'Fn.Type '得到文件类型'Fn.DateLastModified '得到文件最后的修改日期'调用方法'ShowFolderList ("c:\a") 查找目录'Showfilelist ("c:\a") 查找文件'SosuoFile ("c:\a") 查找目录+文件 '遍历文件夹Private Sub ShowFolderList(folderspec)Dim fs, f, f1, s, sfDim hs, h, h1, hfSet fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder(folderspec)Set sf = f.SubFoldersFor Each f1 In sfList1.AddItem folderspec & "\" & Call ShowFolderList(folderspec & "\" & ) Next End Sub'遍历某文件夹下的文件Private Sub Showfilelist(folderspec)Dim fs, f, f1, fc, sSet fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder(folderspec)Set fc = f.FilesFor Each f1 In fcList1.AddItem NextEnd Sub'遍历某文件夹及子文件夹中的所有文件Sub SosuoFile(MyPath As String)Dim Myname As StringDim a As StringDim B() As StringDim dir_i() As StringDim i, idir As LongIf Right(MyPath, 1) <> "\" Then MyPath = MyPath + "\"Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)Do While Myname <> ""If Myname <> "." And Myname <> ".." ThenIf (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then '如果找到的是目录idir = idir + 1ReDim Preserve dir_i(idir) As Stringdir_i(idir - 1) = MynameElseList1.AddItem MyPath & Myname '把找到的文件显示到列表框中End IfEnd IfMyname = Dir '搜索下一项LoopFor i = 0 To idir - 1Call SosuoFile(MyPath + dir_i(i))Next iReDim dir_i(0) As String End Sub'附:'在这里可以处理目录中的文件' '得到文件名'Fn.Size '得到文件大小'Fn.Path '得到文件路径'Fn.Type '得到文件类型'Fn.DateLastModified '得到文件最后的修改日期'调用方法'ShowFolderList ("c:\a") 查找目录'Showfilelist ("c:\a") 查找文件'SosuoFile ("c:\a") 查找目录+文件 '遍历文件夹Private Sub ShowFolderList(folderspec)Dim fs, f, f1, s, sfDim hs, h, h1, hfSet fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder(folderspec)Set sf = f.SubFoldersFor Each f1 In sfList1.AddItem folderspec & "\" & Call ShowFolderList(folderspec & "\" & ) NextEnd Sub'遍历某文件夹下的文件Private Sub Showfilelist(folderspec)Dim fs, f, f1, fc, sSet fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder(folderspec)Set fc = f.FilesFor Each f1 In fcList1.AddItem NextEnd Sub'遍历某文件夹及子文件夹中的所有文件Sub SosuoFile(MyPath As String)Dim Myname As StringDim a As StringDim B() As StringDim dir_i() As StringDim i, idir As LongIf Right(MyPath, 1) <> "\" Then MyPath = MyPath + "\"Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)Do While Myname <> ""If Myname <> "." And Myname <> ".." ThenIf (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then '如果找到的是目录idir = idir + 1ReDim Preserve dir_i(idir) As Stringdir_i(idir - 1) = MynameElseList1.AddItem MyPath & Myname '把找到的文件显示到列表框中End IfEnd IfMyname = Dir '搜索下一项LoopFor i = 0 To idir - 1Call SosuoFile(MyPath + dir_i(i))Next iReDim dir_i(0) As StringEnd Sub'附:'在这里可以处理目录中的文件' '得到文件名'Fn.Size '得到文件大小'Fn.Path '得到文件路径'Fn.Type '得到文件类型'Fn.DateLastModified '得到文件最后的修改日期'调用方法'ShowFolderList ("c:\a") 查找目录'Showfilelist ("c:\a") 查找文件'SosuoFile ("c:\a") 查找目录+文件'遍历文件夹Private Sub ShowFolderList(folderspec)Dim fs, f, f1, s, sfDim hs, h, h1, hfSet fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder(folderspec)Set sf = f.SubFoldersFor Each f1 In sfList1.AddItem folderspec & "\" & Call ShowFolderList(folderspec & "\" & ) Next End Sub'遍历某文件夹下的文件Private Sub Showfilelist(folderspec)Dim fs, f, f1, fc, sSet fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder(folderspec)Set fc = f.FilesFor Each f1 In fcList1.AddItem NextEnd Sub'遍历某文件夹及子文件夹中的所有文件Sub SosuoFile(MyPath As String)Dim Myname As StringDim a As StringDim B() As StringDim dir_i() As StringDim i, idir As LongIf Right(MyPath, 1) <> "\" Then MyPath = MyPath + "\"Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)Do While Myname <> ""If Myname <> "." And Myname <> ".." ThenIf (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then '如果找到的是目录idir = idir + 1ReDim Preserve dir_i(idir) As Stringdir_i(idir - 1) = MynameElseList1.AddItem MyPath & Myname '把找到的文件显示到列表框中End IfEnd IfMyname = Dir '搜索下一项LoopFor i = 0 To idir - 1Call SosuoFile(MyPath + dir_i(i))Next iReDim dir_i(0) As StringEnd Sub'附:'在这里可以处理目录中的文件' '得到文件名'Fn.Size '得到文件大小'Fn.Path '得到文件路径'Fn.Type '得到文件类型'Fn.DateLastModified '得到文件最后的修改日期'调用方法'ShowFolderList ("c:\a") 查找目录'Showfilelist ("c:\a") 查找文件'SosuoFile ("c:\a") 查找目录+文件 '遍历文件夹Private Sub ShowFolderList(folderspec)Dim fs, f, f1, s, sfDim hs, h, h1, hfSet fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder(folderspec)Set sf = f.SubFoldersFor Each f1 In sfList1.AddItem folderspec & "\" & Call ShowFolderList(folderspec & "\" & )NextEnd Sub'遍历某文件夹下的文件Private Sub Showfilelist(folderspec)Dim fs, f, f1, fc, sSet fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder(folderspec)Set fc = f.FilesFor Each f1 In fcList1.AddItem NextEnd Sub'遍历某文件夹及子文件夹中的所有文件Sub SosuoFile(MyPath As String)Dim Myname As StringDim a As StringDim B() As StringDim dir_i() As StringDim i, idir As LongIf Right(MyPath, 1) <> "\" Then MyPath = MyPath + "\"Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)Do While Myname <> ""If Myname <> "." And Myname <> ".." ThenIf (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then '如果找到的是目录idir = idir + 1ReDim Preserve dir_i(idir) As Stringdir_i(idir - 1) = MynameElseList1.AddItem MyPath & Myname '把找到的文件显示到列表框中End IfEnd IfMyname = Dir '搜索下一项LoopFor i = 0 To idir - 1Call SosuoFile(MyPath + dir_i(i))Next iReDim dir_i(0) As StringEnd Sub'附:'在这里可以处理目录中的文件' '得到文件名'Fn.Size '得到文件大小'Fn.Path '得到文件路径'Fn.Type '得到文件类型'Fn.DateLastModified '得到文件最后的修改日期'调用方法'ShowFolderList ("c:\a") 查找目录'Showfilelist ("c:\a") 查找文件'SosuoFile ("c:\a") 查找目录+文件 '遍历文件夹Private Sub ShowFolderList(folderspec)Dim fs, f, f1, s, sfDim hs, h, h1, hfSet fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder(folderspec)Set sf = f.SubFoldersFor Each f1 In sfList1.AddItem folderspec & "\" & Call ShowFolderList(folderspec & "\" & ) Next End Sub'遍历某文件夹下的文件Private Sub Showfilelist(folderspec)Dim fs, f, f1, fc, sSet fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder(folderspec)Set fc = f.FilesFor Each f1 In fcList1.AddItem NextEnd Sub'遍历某文件夹及子文件夹中的所有文件Sub SosuoFile(MyPath As String)Dim Myname As StringDim a As StringDim B() As StringDim dir_i() As StringDim i, idir As LongIf Right(MyPath, 1) <> "\" Then MyPath = MyPath + "\"Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly) Do While Myname <> ""If Myname <> "." And Myname <> ".." ThenIf (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then '如果找到的是目录 idir = idir + 1ReDim Preserve dir_i(idir) As String dir_i(idir - 1) = Myname ElseList1.AddItem MyPath & Myname '把找到的文件显示到列表框中End If End IfMyname = Dir '搜索下一项 LoopFor i = 0 To idir - 1Call SosuoFile(MyPath + dir_i(i)) Next iReDim dir_i(0) As String End Sub'附:'在这里可以处理目录中的文件'得到文件名 '得到文件大小 '得到文件路径 '得到文件类型'调用方法'ShowFolderList ("c:\a") 查找目录 'Showfilelist ("c:\a") 查找文件'SosuoFile ("c:\a") 查找目录+文件 '遍历文件夹Private Sub ShowFolderList(folderspec)Dim fs, f, f1, s, sf Dim hs, h, h1, hfSet fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(folderspec) Set sf = f.SubFolders For Each f1 In sfList1.AddItem folderspec & "\" & Call ShowFolderList(folderspec & "\" & )Next End Sub' 'Fn.Size 'Fn.Path 'Fn.Type'Fn.DateLastModified '得到文件最后的修改日期'遍历某文件夹下的文件Private Sub Showfilelist(folderspec)Dim fs, f, f1, fc, sSet fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder(folderspec)Set fc = f.FilesFor Each f1 In fcList1.AddItem NextEnd Sub'遍历某文件夹及子文件夹中的所有文件Sub SosuoFile(MyPath As String)Dim Myname As StringDim a As StringDim B() As StringDim dir_i() As StringDim i, idir As LongIf Right(MyPath, 1) <> "\" Then MyPath = MyPath + "\"Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)Do While Myname <> ""If Myname <> "." And Myname <> ".." ThenIf (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then '如果找到的是目录idir = idir + 1ReDim Preserve dir_i(idir) As Stringdir_i(idir - 1) = MynameElseList1.AddItem MyPath & Myname '把找到的文件显示到列表框中End IfEnd IfMyname = Dir '搜索下一项LoopFor i = 0 To idir - 1Call SosuoFile(MyPath + dir_i(i))Next iReDim dir_i(0) As StringEnd Sub'附:'在这里可以处理目录中的文件' '得到文件名'Fn.Size '得到文件大小'Fn.Path '得到文件路径'Fn.Type '得到文件类型'Fn.DateLastModified '得到文件最后的修改日期'调用方法'ShowFolderList ("c:\a") 查找目录'Showfilelist ("c:\a") 查找文件'SosuoFile ("c:\a") 查找目录+文件 '遍历文件夹Private Sub ShowFolderList(folderspec)Dim fs, f, f1, s, sfDim hs, h, h1, hfSet fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder(folderspec)Set sf = f.SubFoldersFor Each f1 In sfList1.AddItem folderspec & "\" & Call ShowFolderList(folderspec & "\" & ) Next End Sub'遍历某文件夹下的文件Private Sub Showfilelist(folderspec)Dim fs, f, f1, fc, sSet fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder(folderspec)Set fc = f.FilesFor Each f1 In fcList1.AddItem Next End Sub'遍历某文件夹及子文件夹中的所有文件Sub SosuoFile(MyPath As String) Dim Myname As String Dim a As String Dim B() As String Dim dir_i() As String Dim i, idir As LongIf Right(MyPath, 1) <> "\" Then MyPath = MyPath + "\"Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly) Do While Myname <> ""If Myname <> "." And Myname <> ".." ThenIf (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then '如果找到的是目录 idir = idir + 1ReDim Preserve dir_i(idir) As String dir_i(idir - 1) = Myname ElseList1.AddItem MyPath & Myname '把找到的文件显示到列表框中End If End IfMyname = Dir '搜索下一项 LoopFor i = 0 To idir - 1Call SosuoFile(MyPath + dir_i(i)) Next iReDim dir_i(0) As String End Sub'附:'在这里可以处理目录中的文件'得到文件名 '得到文件大小 '得到文件路径 '得到文件类型'调用方法'ShowFolderList ("c:\a") 查找目录' 'Fn.Size 'Fn.Path 'Fn.Type'Fn.DateLastModified'得到文件最后的修改日期'Showfilelist ("c:\a") 查找文件'SosuoFile ("c:\a") 查找目录+文件 '遍历文件夹Private Sub ShowFolderList(folderspec)Dim fs, f, f1, s, sfDim hs, h, h1, hfSet fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder(folderspec)Set sf = f.SubFoldersFor Each f1 In sfList1.AddItem folderspec & "\" & Call ShowFolderList(folderspec & "\" & )NextEnd Sub'遍历某文件夹下的文件Private Sub Showfilelist(folderspec)Dim fs, f, f1, fc, sSet fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder(folderspec)Set fc = f.FilesFor Each f1 In fcList1.AddItem NextEnd Sub'遍历某文件夹及子文件夹中的所有文件Sub SosuoFile(MyPath As String)Dim Myname As StringDim a As StringDim B() As StringDim dir_i() As StringDim i, idir As LongIf Right(MyPath, 1) <> "\" Then MyPath = MyPath + "\"Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)Do While Myname <> ""If Myname <> "." And Myname <> ".." ThenIf (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then '如果找到的是目录idir = idir + 1ReDim Preserve dir_i(idir) As String dir_i(idir - 1) = MynameElseList1.AddItem MyPath & Myname '把找到的文件显示到列表框中End IfEnd IfMyname = Dir '搜索下一项LoopFor i = 0 To idir - 1Call SosuoFile(MyPath + dir_i(i))Next iReDim dir_i(0) As StringEnd Sub'附:'在这里可以处理目录中的文件' '得到文件名'Fn.Size '得到文件大小'Fn.Path '得到文件路径'Fn.Type '得到文件类型'Fn.DateLastModified '得到文件最后的修改日期'调用方法'ShowFolderList ("c:\a") 查找目录'Showfilelist ("c:\a") 查找文件'SosuoFile ("c:\a") 查找目录+文件 '遍历文件夹Private Sub ShowFolderList(folderspec)Dim fs, f, f1, s, sfDim hs, h, h1, hfSet fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder(folderspec)Set sf = f.SubFoldersFor Each f1 In sfList1.AddItem folderspec & "\" & Call ShowFolderList(folderspec & "\" & ) NextEnd Sub'遍历某文件夹下的文件Private Sub Showfilelist(folderspec)Dim fs, f, f1, fc, sSet fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder(folderspec)Set fc = f.FilesFor Each f1 In fcList1.AddItem NextEnd Sub'遍历某文件夹及子文件夹中的所有文件Sub SosuoFile(MyPath As String)Dim Myname As StringDim a As StringDim B() As StringDim dir_i() As StringDim i, idir As LongIf Right(MyPath, 1) <> "\" Then MyPath = MyPath + "\"Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)Do While Myname <> ""If Myname <> "." And Myname <> ".." ThenIf (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then '如果找到的是目录idir = idir + 1ReDim Preserve dir_i(idir) As Stringdir_i(idir - 1) = MynameElseList1.AddItem MyPath & Myname '把找到的文件显示到列表框中End IfEnd IfMyname = Dir '搜索下一项LoopFor i = 0 To idir - 1Call SosuoFile(MyPath + dir_i(i))Next iReDim dir_i(0) As StringEnd Sub'附:'在这里可以处理目录中的文件' '得到文件名'Fn.Size '得到文件大小'Fn.Path '得到文件路径'Fn.Type '得到文件类型'Fn.DateLastModified '得到文件最后的修改日期'调用方法'ShowFolderList ("c:\a") 查找目录'Showfilelist ("c:\a") 查找文件'SosuoFile ("c:\a") 查找目录+文件 '遍历文件夹Private Sub ShowFolderList(folderspec)Dim fs, f, f1, s, sfDim hs, h, h1, hfSet fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder(folderspec)Set sf = f.SubFoldersFor Each f1 In sfList1.AddItem folderspec & "\" & Call ShowFolderList(folderspec & "\" & ) NextEnd Sub'遍历某文件夹下的文件Private Sub Showfilelist(folderspec)Dim fs, f, f1, fc, sSet fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder(folderspec)Set fc = f.FilesFor Each f1 In fcList1.AddItem NextEnd Sub'遍历某文件夹及子文件夹中的所有文件Sub SosuoFile(MyPath As String)Dim Myname As StringDim a As StringDim B() As StringDim dir_i() As StringDim i, idir As LongIf Right(MyPath, 1) <> "\" Then MyPath = MyPath + "\"Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)Do While Myname <> ""If Myname <> "." And Myname <> ".." ThenIf (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then '如果找到的是目录idir = idir + 1ReDim Preserve dir_i(idir) As Stringdir_i(idir - 1) = MynameElse。
GetOpenFilename方法本专题主要讲述使用VBA操作文件和文件夹的相关知识，尽量不涉及对文件中具体内容的操作。
如何操作文件中具体内容的知识，将在后续内容外部数据操作中作详细介绍。
Excel VBA提供了一些方法和对象，能够调用Excel内置对话框来进行文件操作。
GetOpenFilename方法使用GetOpenFilename方法能够获得有效的文件名，包括该文件的完整路径。
此时，将显示标准的“打开”对话框，但并不真正打开指定的文件，而是返回包含用户所选文件的文件名和路径的字符串。
其语法如下：object.GetOpenFilename(FileFilter,FilterIndex,Title,ButtonText,MultiSelect)所有参数均可选。
其中，参数FileFilter代表指定文件筛选条件的字符串，即确定出现在在“打开”对话框中“文件类型”下拉列表中的内容，由文件筛选字符串和通配符表示的文件筛选规则说明组成，其中每一部分和每一对都用逗号隔开。
如果省略，则该参数的的默认值为："All Files (*.*),*.*"该字符串的第一部分（All Files (*.*)）是显示在“文件类型”下拉列表中的文本，第二部分（*.*）实际上确定要显示哪些文件。
下面的指令将一个字符串赋值给名为Filt的变量，然后可以用作GetOpenFilename方法的参数FileFilter的值。
Filt = "Text Files (*.txt),*.txt," & _"Lotus Files (*.prn),*.prn," & _"Comma Separated Files (*.csv),*.csv," & _"ASCII Files (*.asc),*.asc," & _"All Files (*.*),*.*"此时，“打开”对话框允许用户从5种文件类型中选择。
基于VB和XML的个人资料编辑器的实现在当今信息化时代，我们每个人都需要处理各种各样的个人信息，如姓名、地址、电话号码、电子邮件、社交媒体账号等。
不同的场景，需要我们提供不同的信息，因此，需要一个方便实用的工具来管理这些信息。
本文将介绍一个基于VB和XML的个人资料编辑器。
一、为什么选择VB和XMLVisual Basic（VB）是一种面向对象的编程语言，可用于Windows平台应用程序开发。
VB可以通过可视化开发环境方便快捷地进行开发。
而且，VB的语法易于学习，适合初学者上手。
XML（Extensible Markup Language）是一种标记语言，用于存储和传输数据。
它具有结构化、可扩展和易于处理的特点。
将个人信息存储在XML文件中，方便了数据的整理和管理，可以灵活地增加、删除和修改数据记录。
二、需求分析在设计个人资料编辑器之前，需要先分析用户的需求。
通过与用户进行交流，整理出以下功能需求：1. 能够方便地添加、删除和修改个人信息；2. 支持批量导入和导出；3. 支持搜索功能，查找特定的个人信息；4. 支持多种排序方式，如按姓名、电话号码或地址等排序；5. 能够保存用户的数据到XML文件中，方便备份和恢复；6. 界面简洁、美观，方便用户操作。
三、系统设计在满足用户需求的基础上，我们开始设计个人资料编辑器。
界面采用Windows标准界面，主要分为菜单栏、工具栏、信息列表和状态栏四大部分。
1. 菜单栏包括文件、编辑、视图、帮助四个菜单，分别用于打开、保存、导入、导出、添加、删除、修改、排序、搜索、查看帮助等功能。
2. 工具栏包括常用的添加、删除、修改、保存、导入、导出按钮，方便用户快速访问常用功能。
3. 信息列表采用表格形式展示个人信息，每行对应一条记录，列分别是姓名、地址、电话号码、电子邮件、社交媒体账号等。
4. 状态栏用于显示当前操作的状态，如“打开文件”、“保存成功”、“搜索结果为XX条记录”等。
VBA中DIR函数用法讲解1、dir代码演示先上一段代码，作用是获取某个文件夹下子文件夹和文件的名称没加注释的代码Sub 获取文件夹和文件名()Dim str1 As String, str2 As String, i As IntegerSet a = Application.FileDialog(msoFileDialogFolderPicker)a.Showstr1 = a.SelectedItems(1)str2 = Dir(str1 & IIf(Right(str1, 1) = "\", "", "\"), vbDirectory)Do While Len(str2) <> 0If str2 <> "." And str2 <> ".." Theni = i + 1Cells(i, 1) = str2End ifstr2 = DirLoopEnd Sub加了注释的代码Sub 获取文件夹和文件名()Dim str1 As String, str2 As String, i As IntegerSet a = Application.FileDialog(msoFileDialogFolderPicker) '将文件对话框赋予变量a，目的是让我们选取需要操作的文件夹a.Show '显示文件对话框str1 = a.SelectedItems(1) '将选取的第一个文件夹路径赋予变量str1str2 = Dir(str1 & IIf(Right(str1, 1) = "\", "", "\"), vbDirectory) '在str1所代表的文件夹搜索，将找到的第一个文件或文件夹名称赋予变量str2Do While Len(str2) <> 0 '当str2不为空字符串时进入循环If str2 <> "." And str2 <> ".." Then '如果将dir的第二参数指定为vbdirectory，第一参数指定为文件夹路径加"\",那么返回的第一个值是".",第二个值".."i = i + 1 '每循环一次变量i加1Cells(i, 1) = str2 '将找到的文件或文件夹名赋予单元格End ifstr2 = Dir '如果希望dir 函数返回指定文件夹里面多个文件名，只需要在同一过程里面再次调用dir函数即可，而且后面的调用不需要指定参数LoopEnd Sub指定的文件夹如下图：运行上述代码的效果图，可以看到代码将“封装样本”文件夹下文件和文件夹名称全部取出来了。
vb操作(cāozuò)word详解vb操作(cāozuò)word详解vb操作(cāozuò)word详解Visual Basic支持一个对象集合，该集合中的对象直接对应于Microsoft Word 97中的元素，并且通过用户界面，用户熟悉这些元素中的绝大多数。
例如，Document 对象代表了一个打开的文档，Bookmark对象代表了一个文档中的书签，而Selection对象则代表了在一个文档窗口窗格(chuānɡ ɡé)中的选定内容。
在Word中，每一类元素－文档、表格、段落、书签、域等等－都可以用Visual Basic的对象来表示。
要在Word中自动执行任务，可以使用这些对象的方法和属性。
关于理解和使用Microsoft Office 97对象模型的一般性内容，请参阅本书的第二章“理解对象模型”。
在Microsoft Office 97中的对象模型相当丰富(fēngfù)，其中包含了大约180个对象。
要查看Word对象模型的层次关系图，请参阅“帮助”中的“Microsoft Word 对象”。
要获得对某种特定对象的详细描述，可以在此图中单击该对象的名字，或是在“帮助”的索引中对特定对象进行搜索。
怎样(zěnyàng)显示Word Visual Basic帮助要使用Word Visual Basic帮助，必须在安装过程中选择“自定义”的安装方式，并且为Word选中“Visual Basic在线(zàixiàn)帮助”复选框。
否则，安装程序不会安装Visual Basic帮助。
如果用户已经安装好了Word，那么可以再次运行Setup程序来安装Visual Basic帮助。
要查看Word Visual Basic 帮助，可以在“Visual Basic 编辑器里的“帮助”菜单中点击“目录和索引(suǒyǐn)”一项。
VB教程网/VBjc/Vb.HTM编写趣味撞球小游戏文章来源：沐风经典文章作者：佚名Visual Basic是一个功能强大的工具，它有一大特点就是易学易用，下面我们就通过写一个“趣味撞球”的程序来初步体会一下。
首先启动VB5，新建一个标准的EXE工程。
此时可以看到，工程包括一个Form1框体。
在Form1边框的右下角按住鼠标左键不放，拖动鼠标把Form1的面积改为适当大小，比如6930×4320。
再在属性框中把Form1的ScaleMode 属性改为3－Pixel，表明我们将以像素为我们的坐标计算单位，把Form1的StartUpPosition 属性设为2－CenterScreen，使运行时窗体出现在屏幕正中。
现在，在控件面板上选取CommandButton（命令按钮）控件，为Form1添加Command1和Command2两个按钮控件，把它们的大小设为121×25，再在属性框中把Command1的Caption填为“＆GO”，把Command2的Caption填为“＆QUIT”，并把Command1放到框体的右上角，把Command2放到框体的右下角。
然后，在控件面板上选取Timer（时钟）控件，为Form1添加一个Timer1时钟控件。
再在属性框中把它的Enabled属性改为False，Interval属性改为50，前一个值表示该时钟控件是否激活，后一个值决定该时钟控件产生Timer事件的间隔时间，我们将用它来控制小球的移动频率。
到此为止，我们已经完成了全部的界面设计工作。
接下来要做的全部工作就是填入程序代码了。
Dim BallX As IntegerDim BallY As IntegerDim AddX As IntegerDim AddY As IntegerDim HitX As IntegerDim W As IntegerDim H As IntegerPrivate Sub Command1_Click()BallX=Int(Rnd(1)＊Form1.ScaleWidth/10)＊5＋25BallY=Int((Form1.ScaleHeight)/10)＊5AddX=－5AddY=－5Form_PaintTimer1.Enabled=TrueEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single) X=X－50If X<15 Then X=15If X>W－105 Then X=W－105HitX=XIf Timer1.Enabled=True ThenLine(16,H－5)－(W－6,H),＆HC0C0C0,BF Line(HitX,H)－(HitX＋100,H－5),0,BF End IfEnd SubPrivate Sub Form_Paint()ClsW=Int((ScaleWidth－140)/5)＊5H=Int((ScaleHeight－10)/5)＊5 BackColor=＆HC0C0C0Line(10,10)－(15,H),0,BFLine(W－5,10)－(W,H),0,BFLine(10,10)－(W,15),0,BFEnd SubPrivate Sub Timer1_Timer()Form1.Circle(BallX,BallY),4,＆HC0C0C0 BallX=BallX＋AddXBallY=BallY＋AddYForm1.Circle(BallX,BallY),4,0If BallX<=20 Then AddX=－AddXIf BallY<=20 Then AddY=－AddYIf BallX>=W－10 Then AddX=－AddXIf BallY>=H－10 ThenIf BallXHitX＋100 ThenTimer1.Enabled=FalseForm_PaintEnd IfAddY=－AddYEnd IfEnd Sub一旦程序代码输入完毕，你就可以按F5开始执行它，或是在File菜单里选取Make来生成EXE执行文件了，瞧，小球已经在你的屏幕上蹦来蹦去了。
创建⼀个简单的VisualBasic应⽤程序第1部分PART实验实验1创建⼀个简单的Visual Basic应⽤程序1.1 使⽤集成开发环境实验⽬的（1）熟练掌握Visual Basic的启动⽅法。
（2）熟悉Visual Basic的集成开发环境。
实验内容1．启动Visual Basic在Windows环境下，启动Visual Basic有两种⽅法。
（1）⽅法⼀选择“开始”菜单→“程序”菜单项→“Microsoft Visual Basic 6.0中⽂版”菜单项→“Microsoft Visual Basic 6.0中⽂版”菜单项，单击⿏标左键，启动Visual Basic，如图1-1所⽰。
图1-1 启动Visual Basic2（2）⽅法⼆打开“资源管理器”→找到..\Program Files\Microsoft Visual Studio\Visual Basic 98的Visual Basic 6.exe⽂件→双击该⽂件启动Visual Basic。
2．Visual Basic的集成开发环境Visual Basic的集成开发环境包括：标题栏、菜单栏、⼯具栏、控件箱和窗体。
启动Visual Basic后就会出现Visual Basic的启动界⾯，接着出现“新建⼯程”窗⼝，如图1-2所⽰，选择“标准EXE”图标，单击“打开”按钮，就新建⼀个“标准EXE”⼯程。
则出现了Visual Basic的集成开发环境，如图1-3所⽰，新建了⼀个空⽩的Form1窗体。
图1-2 新建⼯程界⾯图1-3 Visual Basic 的集成开发环境在集成开发环境中默认显⽰窗体设计器窗⼝、⼯程资源管理器窗⼝、属性窗⼝、代码窗⼝和窗体布局窗⼝5个窗⼝，这些窗⼝可以关闭、打开和移动改变位置。
（1）关闭窗⼝通过单击各窗⼝的图标来关闭。
实验1 创建⼀个简单的Visual Basic应⽤程序 3（2）打开窗⼝打开窗⼝有两种⽅法：选择“视图”菜单的各窗⼝名称打开窗⼝。
vb用filesystemobject的savetofile方法概述说明1. 引言1.1 概述引言部分旨在介绍本篇文章的主题及内容。
该文章主要讨论VB中使用FileSystemObject的SaveToFile方法，通过对该方法进行概述和详解，我们将了解它在文件操作和数据保存方面的功能和应用场景。
1.2 文章结构本篇文章共分为五个部分，包括引言、正文、示例与应用场景、注意事项与常见问题解答以及结论。
在引言部分中，我们将简要介绍本篇文章的主题和目录结构。
1.3 目的在引言部分最后，我们需要明确表达本篇文章的目标。
通过深入地研究VB 中FileSystemObject的SaveToFile方法，我们希望读者能够全面理解该方法并掌握其正确使用方式。
同时，通过示例与应用场景的分享和注意事项与常见问题解答的总结，我们将帮助读者更好地应用这一方法，并避免在实际应用过程中可能遇到的问题。
这样撰写后“1. 引言”部分就会变成这样：1. 引言1.1 概述引言部分旨在介绍本篇文章的主题及内容。
该文章主要讨论VB中使用FileSystemObject的SaveToFile方法，通过对该方法进行概述和详解，我们将了解它在文件操作和数据保存方面的功能和应用场景。
1.2 文章结构本篇文章共分为五个部分，包括引言、正文、示例与应用场景、注意事项与常见问题解答以及结论。
在引言部分中，我们将简要介绍本篇文章的主题和目录结构。
1.3 目的在引言部分最后，我们需要明确表达本篇文章的目标。
通过深入地研究VB 中FileSystemObject的SaveToFile方法，我们希望读者能够全面理解该方法并掌握其正确使用方式。
同时，通过示例与应用场景的分享和注意事项与常见问题解答的总结，我们将帮助读者更好地应用这一方法，并避免在实际应用过程中可能遇到的问题。
2. 正文:2.1 VB语言简介:VB（Visual Basic）是一种基于事件驱动的编程语言，它在Microsoft公司开发的集成开发环境(IDE)中得到了广泛应用。
vb读取txt文件1.怎么通过代码创建一个文本文件，并读取，更新内容以上为随即方式打开的文本文件dim gfilenum as integergfilenum = FreeFileOpen "文件路径及文件名" For Random As gfilenum len=3\'以随即方式打开一文件如果文件不存在就新建用get #gfilenum ,记录在文件中位置,要放取得的数据的变量\'读取操作用put #gfilenum ,记录在文件中位置,要放着要写入数据的变量\'写操作close #filenum\'关闭文件以下为顺序方式打开的文件dim gfilenum as integergfilenum = FreeFileOpen "文件路径及文件名" For output As gfilenum \'以写入方式打开文本print #gfilenum,要写入的文本write #filenum,要写入的文本dim gfilenum as integergfilenum = FreeFileOpen "文件路径及文件名" For input As gfilenum \'以读出方式打开文本input #gfilenum ,用来放读取的内容的内存变量名还可用line input#,input()等读取更详细的查msdn2.VB读取文本文件时，调用TextStream 对象中使用OpenTextFile报错了。
如果是Set f = fs.OpenTextFile("E:\\table\\trace.txt", forreading, True, TristateUseDefault)出现错误：Run-time error \'5\':Invalid procedure call or argument如果是Set f = fs.OpenTextFile("E:\\table\\trace.txt)"则不会报错。
用VB制作网址链接器摘要：上网时,在找不到具体网址的情况下，经常会用到网址链接器。
网址链接器是一个包含了很多网址资源的链接器，只要用鼠标点击要去的网址，就可以把你带到该网站。
本文给出了一种利用VB6.0编写简单的网址链接器的方法。
此方案主要包括以下几部分：新建EXE工程，创建窗体form1，引入函数，添加frame 控件，声明变量及编程等。
本设计主要针对具体操作和编程，利用VB6.0编写简单的网址链接器，本文给出了系统的软件设计程序、原理和方法。
关键词：网址链接器函数窗体目录一、用VB6.0编写网址链接器 (1)1．创建搜索引擎 (1)2．引用ShellExecute函数 (1)3．设置option控件 (1)4．添加frame控件 (1)5．在form1窗体声明以下变量 (1)6．编写option1控件子程序代码 (2)7．编写一个link子程序 (3)8．编写form1窗体子程序代码 (3)9．完成 (4)二、功能扩展 (4)三、参考文献： (5)随着Internet的普及，网站数量越来越多，很多情况下我们记不清所要访问网站的具体网址，这时我们可以通过一个网络链接器来方便的找到该网址。
我们可以自己设计一个网址链接器实现此功能。
一、用VB6.0编写网址链接器下面就用VB6.0编写一个简单的网址链接器，步骤如下：1．创建搜索引擎启动VB6.0,新建一个标准EXE工程，系统自动创建一个窗体form1,设置其caption属性为“创新搜索引擎”。
2．引用ShellExecute函数我们需要引用一个API函数ShellExecute，方法是在工程中添加一个模块Module1，打开VB6.0 API 浏览器，在API浏览器的“文件”菜单中选择“加载文本文件”菜单项，此时将弹出一个“选择一个文本API文件”对话框，从中选择“Win32api.txt”，单击“确定”按钮，单击ShellExecute函数，然后单击“复制”按钮。
