Full Path filenames of directory and it's subdirectories 3

Kiehlster · Aug 15, 2000

Is there any way with visual basic to get a list of full pathnames of files in a directory and that directory's subdirectories, and have the list sent to a file? The only way I have seen is to call a shell and do a "dir /B /S > myfile.txt" and I have this huge subroutine that it has to go through in order to tell the file is completely done writing to the disk.  Any easier way than that?

Alt255 · Aug 16, 2000

This works very well, thanks to Mike Lacey who pointed me towards the code. 'Module level code Option Explicit Const MAX_PATH = 260 Const INVALID_HANDLE_VALUE = -1 Const FILE_ATTRIBUTE_DIRECTORY = &H10 Type FILETIME    dwLowDateTime As Long    dwHighDateTime As Long End Type Type WIN32_FIND_DATA    dwFileAttributes As Long    ftCreationTime As FILETIME    ftLastAccessTime As FILETIME    ftLastWriteTime As FILETIME    nFileSizeHigh As Long    nFileSizeLow As Long    dwReserved0 As Long    dwReserved1 As Long    cFileName As String * MAX_PATH    cAlternate As String * 14 End Type Type FOLDER_INFO    DirSize As Currency    FilesCount As Long    DirsCount As Long End Type Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long Public sFiles() As String Public Function GetFolderInfo(sFolder As String, Optional sPattern As String = "*.*&quot

As FOLDER_INFO    If Right$(sFolder, 1) <> "\" Then sFolder = sFolder & "\"    Dim lFileNum As Long, lDirNum As Long, sTemp As String    Dim curSize As Currency, FolderQueue As New Collection    FolderQueue.Add sFolder    Call EnumFolder(FolderQueue)    sTemp = FolderQueue.Item(1)    Call EnumFiles(sTemp, lFileNum, curSize, sPattern)    FolderQueue.Remove 1    Do While FolderQueue.Count > 0       lDirNum = lDirNum + 1       Call EnumFolder(FolderQueue)       sTemp = FolderQueue.Item(1)       Call EnumFiles(sTemp, lFileNum, curSize, sPattern)       FolderQueue.Remove 1       DoEvents    Loop    GetFolderInfo.DirSize = curSize    GetFolderInfo.FilesCount = lFileNum    GetFolderInfo.DirsCount = lDirNum End Function Private Sub EnumFolder(FolderQueue As Collection)    Dim sTemp As String, sFolder As String    Dim lRet As Long, WFD As WIN32_FIND_DATA    Dim hFile As Long    sFolder = FolderQueue.Item(1)    hFile = FindFirstFile(sFolder & "*.*", WFD)    If hFile = INVALID_HANDLE_VALUE Then Exit Sub    sTemp = TrimNulls(WFD.cFileName)    Do While sTemp <> ""       If (WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY Then          If sTemp <> "." And sTemp <> ".." Then             If Right$(sTemp, 1) <> "\" Then sTemp = sTemp & "\"             FolderQueue.Add sFolder & sTemp          End If       End If       lRet = FindNextFile(hFile, WFD)       sTemp = ""       If lRet <> 0 Then sTemp = TrimNulls(WFD.cFileName)    Loop    lRet = FindClose(hFile) End Sub Private Sub EnumFiles(sFolder As String, lFileNum As Long, lngSize As Currency, sPattern As String)    Dim sTemp As String    Dim lRet As Long, WFD As WIN32_FIND_DATA    Dim hFile As Long, n As Integer    hFile = FindFirstFile(sFolder & sPattern, WFD)    If hFile = INVALID_HANDLE_VALUE Then Exit Sub    sTemp = TrimNulls(WFD.cFileName)    Do While sTemp <> ""       lngSize = lngSize + WFD.nFileSizeLow       lFileNum = lFileNum + 1       n = UBound(sFiles) + 1       ReDim Preserve sFiles

sFiles

= sFolder & TrimNulls(WFD.cFileName)       lRet = FindNextFile(hFile, WFD)       sTemp = ""       If lRet <> 0 Then sTemp = TrimNulls(WFD.cFileName)    Loop    lRet = FindClose(hFile) End Sub Private Function TrimNulls(sTemp As String) As String    Dim l As Long    l = InStr(1, sTemp, Chr(0))    If l = 1 Then       TrimNulls = ""    ElseIf l > 0 Then       TrimNulls = Left$(sTemp, l - 1)    Else       TrimNulls = sTemp    End If End Function 'Form level code Private Sub Command1_Click()    ReDim sFiles(0)    Dim l As FOLDER_INFO    l = GetFolderInfo("c:\", "*.*&quot

MsgBox "Total  " & l.DirSize & " bytes" & " in " & l.FilesCount & " files at " & l.DirsCount & " Folders" 'sFiles() array contains the full path to all files on C:    For i = 1 To UBound(sFiles)        Debug.Print sFiles(i)    Next i End Sub <a href=mailto: > </a> <a href=

http://www.vorpalcom.com>A

plain black box</a>

WilMead · Aug 16, 2000

Check out M$ Scripting Runtime objects, they should have what you need. If you have it it'll be in the Project Reference dialog list, just click the box. Use the object browser to see the classes and properties it provides there are a small bunch.   As far as linking to the kernal vai the API... It's faster.  I think the Scripting library gives you more than you need... but then again making a list is only the start of something much bigger. Wil Mead <a href=mailto:wmead@optonline.net>wmead@optonline.net</a> <a href= > </a>

Kiehlster · Aug 16, 2000

Thanks Wil.  That should help me out a bit.  Alt225, thanks anyway, but I don't really want to have to add all the code to my already huge length of code.  I think Wil's suggestion will work best.  All the functions are in there to get various file information and whatnot. Thanks, Steve Kiehl Webmaster, Nanovox.com

Alt255 · Aug 16, 2000

That's all right, Kiehlster, I'm here to help. But you might think again about using the scripting library if you just want to avoid adding more code. If you succeed in reproducing "dir /B /S" with less code than I posted above, I hope you will post it here. I love succinct solutions and am eager to add new ones to my toolbox. <a href=mailto: > </a> <a href=

http://www.vorpalcom.com>A

plain black box</a>

Kiehlster · Aug 16, 2000

actually, I did manage to get the "dir /B /S" style of doing it to run with only two main functions! I don't have time now, but I will post it up here sometime...Maybe under the FAQ. The only thing I have to work on with it is to find a way to get the file size. right now I have it loading the file until the last line of the file doesn't change anymore. That seems to work. But I think there could be a couple small problems with it. I think I might just try and see if VB picks up the size of the file before it is finished writing the file, because on a file that ends up to be 18mb.... ick.

Alt255 · Aug 17, 2000

Sorry I misunderstood. From your use of the "/S" switch on the DIR statement I thaought you had intended to perform a recursive sub-directory search.

You can determine the size of an open file with the Lof function.

F1 =FreeFile
Open "C:\WINDOWS\WIN.COM" For Binary as #F1
MsgBox "Win.com is" & Lof(F1) & " bytes long."
Close #F1

For files that haven't been opened by your program use FileLen.

MsgBox "The swap file is" & _
[tab]FileLen("C:\WINDOWS\WIN386.SWP&quot

& " bytes long."

Kiehlster · Aug 17, 2000

Sorry I didn't explain that too clearly. I was talking about the length of the file that the dos prompt outputs when I have it sent to a file. I've posted the solution I came up with in the FAQ, and thanks for the tip on the file length thing. It makes the solution even smaller and easier. You can see the FAQ in here, it's called:

How do get a recursive list of files, and wait for a DOS prompt to finish. (This easy way)

I messed up on the title a little bit and I can't fix it now. argh.

Thanks again, and I hope that the FAQ I posted helps or at least makes you think again on how easy things really can be.

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Full Path filenames of directory and it's subdirectories 3

Kiehlster

MIS

Alt255

Programmer

WilMead

IS-IT--Management

Kiehlster

MIS

Alt255

Programmer

Kiehlster

MIS

Alt255

Programmer

Kiehlster

MIS

Similar threads

Part and Inventory Search

Sponsor