مشكل در فراخواني فايل از سي دي

[hrj1981]

دوستان سلام
من يك برنامه نوشته ام كه روي سي دي است و بايد بعد از اجرا بودن يا نبودن يك فايل را چك نمايد و اگر بود مقدار داخل فايل را در يك تكس باكس بريزد و مابقي ماجرا !
اما سوال : برنامه من از روي هارد درست اجرا مي شود ولي وقتي آن را روي سي دي رايت مي كنم پيغام 72 را نشان مي دهد علت چيست
سورسي كه هنگام لود شدن برنامه اتفاق مي افتد را براي شما مي گذارم

Dim fso As New FileSystemObject
P1.Value = 0
File1.Path = App.Path + "\SP"
Label1.Caption = File1.ListCount
Select Case fso.FileExists("C:\path")
Case Is = True
Dim s As String
Filenum% = FreeFile
Open "c:\path" For Input As Filenum%
Input #Filenum%, s
Text1.Text = s + "\"
Close #Filenum%
P1.Max = Label1.Caption
Case Is = False
Unload Me
Form2.Show
End Select

[hrj1981]

كسي به داد ما نمي رسه !!!

[majjjj]

Select Case fso.FileExists("C:\path")


خوب شما اینجا به برنامه میگی اگه این تو فایل رو از درایو سی چک کن اون رو به درایو سی دی رام تغییر بدید درست میشه فقط مواظب سیستمهایی که دوتا درایو سی دی رام دارن باشین

[hrj1981]

با تشكر از دوست خوبم majjjj
مشكل از توضيح شما نبود من بايد براي دسترسي به فولدرهاي داخل سي دي علامت "\" را از پشت كلمه SP بر مي داشتم چون نمي دانستم دسترسي به فولدرهاي داخل سي دي با هارد باهم فرق مي كند.