hrj1981
یک شنبه 16 تیر 1387, 17:52 عصر
دوستان سلام
من يك برنامه نوشته ام كه روي سي دي است و بايد بعد از اجرا بودن يا نبودن يك فايل را چك نمايد و اگر بود مقدار داخل فايل را در يك تكس باكس بريزد و مابقي ماجرا !
اما سوال : برنامه من از روي هارد درست اجرا مي شود ولي وقتي آن را روي سي دي رايت مي كنم پيغام 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
من يك برنامه نوشته ام كه روي سي دي است و بايد بعد از اجرا بودن يا نبودن يك فايل را چك نمايد و اگر بود مقدار داخل فايل را در يك تكس باكس بريزد و مابقي ماجرا !
اما سوال : برنامه من از روي هارد درست اجرا مي شود ولي وقتي آن را روي سي دي رايت مي كنم پيغام 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