有关于文件创建CreateObject等问题，敬请高人不吝赐教

Question

目前已有的VB 6.0代码为
    Private FSO As Object, ObjFolder As Object, TxtFile As Object    Set FSO = CreateObject("Scripting.FileSystemObject")    Set TxtFile = FSO.CreateTextFile(Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日" & "(" & WeekdayName(Weekday(Date), True) & ") " & Hour(time) & "時" & Minute(time) & "分" & ".csv", True)该代码为在当前目录下，创建了一个以当前时间命名的csv文件，但是本人目前想在当前文件夹下，先创建一个Data为文件名的文件夹，之后在这个Data 为文件名的文件夹下创建以当前时间命名的csv文件。不知道该如何修改，差了很多资料，不知道如何直接用GetFolder创建相对路径的文件夹，目前所有资料都是绝对路径的示范。
敬请高手不吝赐教！！！

Answer 1

  Dim FSO As Object, ObjFolder As Object, TxtFile As Object
  Dim sFile As String
  Set FSO = CreateObject("Scripting.FileSystemObject")
  If FSO.FolderExists(App.Path & "\data") = False Then MkDir "data"
  sFile = App.Path & "\data\" & Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日" & "(" & WeekdayName(Weekday(Date), True) & ") " & Hour(Time) & "時" & Minute(Time) & "分" & ".csv"
  Set TxtFile = FSO.CreateTextFile(sFile, True)