Saving Contents of a Dir to a .txt file

[Sgt D Pilla]

Hey, im only new, so please excuse me if i do something wrong.
But im making a program where all the program does is write EVERY file and EVERY folder name into a .txt file called "KMOD! Log.txt"

The program knows what directory to list, because the user of the program must navigate into the directory then press "Dump To Log File" to dump the contents into the log

Currently the ONLY code i have is::
Private Sub Command1_Click()
Open App.Path & "\log.txt" For Output As #1
Do While Dir1.ListIndex < Dir1.ListCount - 1
MsgBox.Dir1.Dir
Dir1.ListIndex = Dir1.ListIndex + 1
Loop
Close #1
End Sub

[debasisdas]

Hi
Sgt D Pilla
Welcome to TSDN.

You have reached the right place for knowledge shairing.

Here you will find a vast resource of related topics and code.

Feel free to post more doubts/questions in the forum.

But before that give a try from your side and if possible try to post what/how you have approached to solve the problem.

It will help Experts in the forum in solving/underestanding your problem in a better way.

Please follow the posting guidelines in every new post/reply.

please do not expect complete code from the experts of the forum. try from user side ,if u are struck up some where then ask for help.

[mailderemi]

Hey, im only new, so please excuse me if i do something wrong.
But im making a program where all the program does is write EVERY file and EVERY folder name into a .txt file called "KMOD! Log.txt"

The program knows what directory to list, because the user of the program must navigate into the directory then press "Dump To Log File" to dump the contents into the log

Currently the ONLY code i have is::
Private Sub Command1_Click()
Open App.Path & "\log.txt" For Output As #1
Do While Dir1.ListIndex < Dir1.ListCount - 1
MsgBox.Dir1.Dir
Dir1.ListIndex = Dir1.ListIndex + 1
Loop
Close #1
End Sub

In this case you mean make a Search. this way is for begginers.
It's easy to export the objects' names and types ;)
1. Form:

Option Explicit
 
Private Type BrowseInfo
    hWndOwner As Long
    pIDLRoot As Long
    pszDisplayName As String
    lpszTitle As String
    ulflags As Long
    lpfnCallback As Long
    lParam As Long
    iImage As Long
End Type
 
Private Const BIF_RETURNONLYFSDIRS = 1
Private Const MAX_PATH = 260
Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
 
Public Function BrowseForFolder(ByVal hWndOwner As Long, ByVal sPrompt As String) As String
    Dim iNull As Integer
    Dim lpIDList As Long
    Dim lResult As Long
    Dim sPath As String
    Dim udtBI As BrowseInfo
 
    With udtBI
        .hWndOwner = hWndOwner
        .lpszTitle = sPrompt
        .ulflags = BIF_RETURNONLYFSDIRS
    End With
 
    lpIDList = SHBrowseForFolder(udtBI)
    If lpIDList Then
        sPath = String$(MAX_PATH, 0)
        lResult = SHGetPathFromIDList(lpIDList, sPath)
        Call CoTaskMemFree(lpIDList)
        iNull = InStr(sPath, vbNullChar)
        If iNull Then
            sPath = Left$(sPath, iNull - 1)
        End If
    End If
 
    BrowseForFolder = sPath
 
 
End Function
Private Sub cmdBrowse_Click()
Dim sPath As String
 
txtPath.Text = ""
sPath = BrowseForFolder(hWnd, "choose a directory")
txtPath.Text = sPath
End Sub
 
Private Sub cmdDisplay_Click()
 
'declare variables ...
Dim sPath As String
Dim clsDirs As Collection
Dim udcTraverse As cTraverseDirs
Dim lCounter As Long
 
'set user difened class and collections...
Set clsDirs = New Collection
Set udcTraverse = New cTraverseDirs
'get the path
sPath = frmDirs.txtPath.Text
If sPath = "" Then
    MsgBox "You must select a path"
    Exit Sub
End If
sPath = frmDirs.txtPath.Text & "\"
'add it to collection ...
clsDirs.Add sPath
'initialize the counter ...
lCounter = 1
'traverse call ...
Call udcTraverse.TraverseDirectories(clsDirs, lCounter)
End Sub
 

and also it has a Class file:

Public Sub TraverseDirectories(ByVal clsDir As Collection, ByVal vCollectionCounter As Variant)
On Error GoTo td_error:
 
Dim sDirName As String, sTempPath As String, sPathToTraverse As String
 
 
    sPathToTraverse = clsDir.Item(vCollectionCounter)
    sDirName = Dir(sPathToTraverse, vbDirectory)
        Do While sDirName <> ""   ' Start the loop.
            ' Ignore the current directory and the encompassing directory.
            If sDirName <> "." And sDirName <> ".." Then
                ' Use bitwise comparison to make sure sDirName is a directory.
                If (GetAttr(sPathToTraverse & sDirName) And vbDirectory) = vbDirectory Then
                    ' Display entry for directory...
                    sTempPath = sPathToTraverse & sDirName & "\"
                    clsDir.Add sTempPath
                Else
                    'create a collection of all files ...
                    frmDirs.lstDisplay.AddItem (sPathToTraverse)
                    frmDirs.lstDisplay.AddItem (sDirName)
 
                End If
            End If
            'Get next entry...
            sDirName = Dir
        Loop
    vCollectionCounter = vCollectionCounter + 1
    Call TraverseDirectories(clsDir, vCollectionCounter)
    Exit Sub
td_error:
        'break out of the loop
        Exit Sub
 
End Sub
 

[Sgt D Pilla]

What does txtPath mean? and
txtPath.txt ?

is the txtPath a name of a controller ?

[Sgt D Pilla]

Acutally guys, dont worry about it.
I will do something else for my project. Its to difficult to get the program to write the name of every file in every folder in a certain directroy to a log file.