目前已有的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创建相对路径的文件夹，目前所有资料都是绝对路径的示范。
敬请高手不吝赐教！！！

CreateFolder

请问具体上如何CreateFolder之后，再在该文件夹下建立文件。请详细说明好吗？

Set TxtFile = FSO.CreateTextFile(这里加入路径Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日" & "(" & WeekdayName(Weekday(Date), True) & ") " & Hour(time) & "時" & Minute(time) & "分" & ".csv", True)