mazy12
پنج شنبه 17 اردیبهشت 1388, 20:39 عصر
سلام دوستان
من میخوام به اندازه یک فایل جای خالی بذارم این کارو براحتی میشه با تابع space انجام داد :
lenn = FileLen(AppPath & App.EXEName & ".exe")
Data = Space(lenn)
اما موضوع اینجاست نمیخوام از توابع وی بی استفاده کنم و اینو نوشتم :
For i = 1 To lenn
Data = Data & " "
Next i
این هم overflow میده بنظرتون چکاری باید انجام بدم؟
من میخوام به اندازه یک فایل جای خالی بذارم این کارو براحتی میشه با تابع space انجام داد :
lenn = FileLen(AppPath & App.EXEName & ".exe")
Data = Space(lenn)
اما موضوع اینجاست نمیخوام از توابع وی بی استفاده کنم و اینو نوشتم :
For i = 1 To lenn
Data = Data & " "
Next i
این هم overflow میده بنظرتون چکاری باید انجام بدم؟