有關寫file的問題(編號：2950)

For i = 0 To 40 Step 1
code = Str(i)　　
　　StrFilePath = "C:\UPPER\" + code

Shell ("Command.com /C " + "md " + StrFilePath)

FileName = StrFilePath & "\MYFILE.TXT"

Open FileName For Output As #1
　　　　If rs_S.RowCount ＞ 0 Then
　　　　　　rs_S.MoveFirst
　　　　　　While Not rs_S.EOF
　　　　　　　　Print #1, Trim(rs_S!DATA)
　　　　　　　　rs_S.MoveNext
　　　　　　Wend
　　　　End If
　　Close #1　　
Next i

我想把MYFILE.TXT寫在0至40的Directory下,
以上的program什麼也出不了.
如果把FileName = StrFilePath & "\MYFILE.TXT"
改為　FileName = StrFilePath & "MYFILE.TXT"
沒有了 '/' 這符號,
就可以寫到file,但在C:\UPPER\下,
File名字易改成 0MYFILE.TXT..1MYFILE.TXT...40MYFILE.TXT
我怎樣才可把FILE寫到
C:\UPPER\0\MYFILE.TXT
C:\UPPER\1\MYFILE.TXT
:
C:\UPPER\39\MYFILE.TXT
C:\UPPER\40\MYFILE.TXT
請幫幫我,我真的很迷茫!!　(:_:)
謝謝!