سلام من میخواستم در آخرین رکورد یک فایل تصادفی بنویسیم !!! آخرین رکوردش و چی بزارم که بقیه رو پاک نکنه !!! Open "C:\Documents and Settings\Sepehr\Desktop\a.txt" For Random As #n Len = Len(rec) For i = 1 To 2 rec.a = v Put #n, i, rec Next...