想添加实现一功能（开心海快进来！！）

Question

Private Sub Timer1_Timer()
    If Text2.Text <> Text1.Text Then
        Label1.Caption = "ng"
    if dir("c:\条码备份",vbdirectory)="" then mkdir "c:\条码备份"
        open "c:\条码备份\" & format(date,"yyyymmdd") & ".csv" for append as #1 '用append的方式打开，如果已存在就追加在尾部
        print #1,text2.text & "," & label1.caption
        close #1
        Text2.Text = ""
    Else
        Label1.Caption = "ok"
         open "c:\条码备份\" & format(date,"yyyymmdd") & ".csv" for append as #1 '用append的方式打开，如果已存在就追加在尾部
        print #1,text2.text & "," & label1.caption
        close #1
        Text2.Text = ""
    End If
End Sub
  上面的功能是将text2里的内容按日期保存到“条码备份”的文件夹里，现在想在“条码备份”文件夹里还有一个文件夹，文件夹里的是按日期为名的子文件夹，打开子文件夹里的是按“机种名”命名的 *csv文件，但机种名是变化的，在cmb里选择的，cmb与text1是一对一的。例如：cmb选择的是“DVD-LX110PP-S”是机种名，它对应的商品号是text1=8887549232456，text2是与text1比较的
 保存的结果是条码备份的大文件夹里有在以日期为名的文件夹里子文件是机种名的子文件（*csv），怎么处理？？（主要是机种名是变化的）