inserting bullets in a word document using vb code

[poojathakur_13]

i have a code that lists files in the folder and its subfolders. but it needs to be bulleted the code works fine , puts proper bullets in the first looping but when it moves to the second folder the indent is gone. heres the code:

listfiles is a function that displays the files in a folder.

Sub listfiles(folder2 As String)
    
    With wrdobj.FileSearch
        .LookIn = folder2
        .FileType = msoFileTypeAllFiles
        .Execute
        totalfiles = .FoundFiles.Count
        If totalfiles > 0 Then
        Dim i As Integer
        i = 1
        
        While totalfiles > 0
            
            wrdobj.Selection.TypeText Text:=Right(.FoundFiles.item(i), Len(.FoundFiles.item(i)) - InStrRev(.FoundFiles.item(i), "\")) & vbCrLf
            totalfiles = totalfiles - 1
            i = i + 1
        Wend
            wrdobj.Selection.Range.ListFormat.ListOutdent
            wrdobj.Selection.Range.ListFormat.RemoveNumbers wdBulletGallery
        Else
            wrdobj.Selection.Range.ListFormat.RemoveNumbers wdBulletGallery
            wrdobj.Selection.Range.ListFormat.ListOutdent
            
        End If
    End With
    
End Sub
 
 
Dim filobj As New FileSystemObject
                Dim subfolder As Folder
                Dim mainfolder As Folder
                Dim nestedfolder As Folder
                Set mainfolder = filobj.GetFolder(selectedfolder)
                total = total + mainfolder.Files.Count
 
                    
                    
                    wrdobj.Selection.TypeText mainfolder.Name & vbCrLf
                    If mainfolder.SubFolders.Count > 0 Then
                        
                        For Each subfolder In mainfolder.SubFolders
                        
                            wrdobj.Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=wrdobj.ListGalleries(wdBulletGallery).ListTemplates(2)
                            wrdobj.Selection.Range.ListFormat.ListIndent
                            wrdobj.Selection.TypeText subfolder & vbCrLf
                            wrdobj.Selection.Range.ListFormat.RemoveNumbers wdBulletGallery
                            
                            If subfolder.SubFolders.Count > 0 Then
                                For Each nestedfolder In subfolder.SubFolders
                                    
                                    wrdobj.Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=wrdobj.ListGalleries(wdBulletGallery).ListTemplates(3)
                                    wrdobj.Selection.Range.ListFormat.ListIndent
                                    wrdobj.Selection.Range.ListFormat.ListIndent
                                    wrdobj.Selection.TypeText nestedfolder & vbCrLf
                                    wrdobj.Selection.Range.ListFormat.RemoveNumbers wdBulletGallery
                                    
                                    wrdobj.Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=wrdobj.ListGalleries(wdBulletGallery).ListTemplates(1)
                                    wrdobj.Selection.Range.ListFormat.ListIndent
                                    wrdobj.Selection.Range.ListFormat.ListIndent
                                    wrdobj.Selection.Range.ListFormat.ListIndent
                                    listfiles (nestedfolder)
                                Next
                                    wrdobj.Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=wrdobj.ListGalleries(wdBulletGallery).ListTemplates(3)
                                    wrdobj.Selection.Range.ListFormat.ListIndent
                                    wrdobj.Selection.Range.ListFormat.ListIndent
                                    listfiles (subfolder)
                            Else
                                    wrdobj.Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=wrdobj.ListGalleries(wdBulletGallery).ListTemplates(3)
                                    wrdobj.Selection.Range.ListFormat.ListIndent
                                    wrdobj.Selection.Range.ListFormat.ListIndent
                                    listfiles (subfolder)
                            End If
                            
                       Next
                        wrdobj.Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=wrdobj.ListGalleries(wdBulletGallery).ListTemplates(2)
                        wrdobj.Selection.Range.ListFormat.ListIndent
                          
                        listfiles (mainfolder)
                        wrdobj.Selection.Range.ListFormat.RemoveNumbers wdBulletGallery
                    Else
                        wrdobj.Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=wrdobj.ListGalleries(wdBulletGallery).ListTemplates(2)
                        listfiles (mainfolder)
                    End If
                MsgBox "The files in the folder " & """" & folder1 & """" & " and its subfolders have been listed in the Word document " & """" & "Folder Listing - " & folder1 & ".doc" & """" & " in the " & """" & folder1 & """" & " folder."
                wrddoc.SaveAs (selectedfolder & "\Folder Listing - " & folder1 & ".doc")
                wrddoc.Close
                Set wrddoc = Nothing
                wrdobj.Quit
                Set wrdobj = Nothing