VB Forum / COM / October 2006

Greetings All,

I built a Collection Class named  musicColl using the VB Class Wizard
then manually added the following

Public Sub Dumpout()
   Dim fso As Object
   Set fso = CreateObject("Scripting.FileSystemObject")
   Dim pwd As String
   pwd = CurDir()
   Dim fullfilename As String
   fullfilename = pwd & "\" & "sneeze_dump.txt"             ' <----
here
   Dim txtstream8 As TextStream
   Set txtstream8 = fso.OpenTextFile(fullfilename, ForWriting, True)
   Dim elem As keyarry
   For Each elem In mCol
       fulline = elem.kkey & " = " & Join(elem.arry)
       txtstream8.WriteLine (fulline)
   Next
   txtstream8.Close
End Sub
-----------------------

Then in my main code----------

Dim sneeze As musicColl
Set sneeze = New musicColl
< populate sneeze with stuff >

sneeze.Dumpout
-----------------------------------------

I'll soon have many Collections of class musicColl.
I'd like to have the subroutine Dumpout() "know" the name of it's own
instance
(in this case "sneeze") so it will create output files with appropriate
names ie.

sneeze.Dumpout   =>  sneeze_dump.txt
froth.Dumpout => froth_dump.txt

How should I go about accomplishing this? Some permutation of the "Me"
term?

TIA,

Steve