תעזרו לי בבקשה

andrei

New member
תעזרו לי בבקשה

איך פותחים קובץ כל שהוא שלא בסיומת TXT לקריאה ואחר כך שומרים כTXT את התוכן שלו אני עובד בVB6 תודה מראש
 

Shadow15

New member
אני חושב...

אם הקובץ הוא file.abc והוא נמצא בספריית התוכנה ואתה רוצה להעביר אותו לתוך file.txt צריך לשים reference ל microsoft scripting runtime ולהוסיף את הקוד הבא: Dim FSO As New FileSystemObject Open ``file.abc`` For Random As #1 Len = FSO.GetFile(App.Path & ``/file.abc``).Size Dim FileText As String Dim I As Integer Dim Character As String For I = 1 To FSO.GetFile(App.Path & ``/file.abc``).Size Get #1, I, Character FileText = FileText & Character Next I Open ``file.txt`` For Output As #2 Print #2, FileText Close #1 Close #2 זה אמור לעבוד בבקשה אייל
 

noam172

New member
מה דעתך על זה?

תעתיק את הקובץ לקובץ TXT, ואז תפתח את קובץ ה-TXT.
 
למעלה