vb6

bug.frm

Sub CreateAfile()
Call ImageCreate
''FILE 1 START''
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile(App.Path & "\data\animals\" & txtBugName.Text & "\antenna.txt", True)
    a.WriteLine ("N/A")
    a.Close
''FILE 1 END''
''FILE 2 START''
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile(App.Path & "\data\animals\" & txtBugName.Text & "\class.txt", True)
    a.WriteLine ("N/A")
    a.Close
''FILE 2 END''
''FILE 3 START''
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile(App.Path & "\data\animals\" & txtBugName.Text & "\color.txt", True)
    a.WriteLine ("N/A")
    a.Close
''FILE 3 END''
''FILE 4 START''
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile(App.Path & "\data\animals\" & txtBugName.Text & "\common name.txt", True)
    a.WriteLine ("N/A")
    a.Close
''FILE 4 END''
''FILE 5 START''
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile(App.Path & "\data\animals\" & txtBugName.Text & "\legs.txt", True)
    a.WriteLine ("N/A")
    a.Close
''FILE 5 END''
''FILE 6 START''
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile(App.Path & "\data\animals\" & txtBugName.Text & "\name.txt", True)
    a.WriteLine ("N/A")
    a.Close
''FILE 6 END''
''FILE 7 START''
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile(App.Path & "\data\animals\" & txtBugName.Text & "\shape.txt", True)
    a.WriteLine ("N/A")
    a.Close
''FILE 7 END''
''FILE 8 START''
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile(App.Path & "\data\animals\" & txtBugName.Text & "\size.txt", True)
    a.WriteLine ("N/A")
    a.Close
''FILE 8 END''
''FILE 9 START''
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile(App.Path & "\data\animals\" & txtBugName.Text & "\wings.txt", True)
    a.WriteLine ("N/A")
    a.Close
''FILE 9 END''
''FILE 10 START''
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile(App.Path & "\data\animals\" & txtBugName.Text & "\location.txt", True)
    a.WriteLine ("N/A")
    a.Close
''FILE 10 END''
End Sub