fallapps

خیلی از شما ممنونم انشاالله خداوند شما و خانوادتان را سلامت کند.

طاعات و عباداتتون هم قبول باشه به حق حضرت علی(ع)

ممنون و سپاسگزارم از شما.

راستی شما رو به عنوان بهترین پاسخ انتخاب کردم...

ولی متاسفانه بازم فورس کلوز میشه البته روی شبیه ساز نه لیبل را برابر 0mg قرار میده ولی توی خود گوشیم فورس کلوز میده روی گوشی دوستم هم همین الان امتحان کردم برای اونم فورس کلوز میده و برنامه بسته میشه متاسفانه...

به خدا خییلی ناراحتم الان یک هفته هست درگیر یک کد هستم..

دوست عزیز میشه پاسخ بدین؟

میشه اون سورس تستون رو برام پیوست کنین لطفا؟

ممنون فقط این کد شما حجم کل پوشه رو با محتواش نشون میده دیگه؟

چون خودم کدی نوشتم حدود 1 هفته قبل فقط حجم پوشه رو نشون میداد و توی لیبل مینوشت4(کیلوبایت) در حالی که داخل پوشه فایل های دیگه هم بودن که حجمشون چند گیگ بود من میخوام کل حجم رو نشون بده...

خطای فورس کلوز میده...

آقا مهدی میشه خودتون تست کنین بعد سورسش رو برام بفرستین؟

سورس برنامه ام رو برات بفرستم؟

شما برام برام خطایابی کن و سورس رو ویرایش کن برام بفرست!

البته سورس برنامه اصلی ام نیست یک پروژه تستی همین الان ایجاد کردم

همین الان تست کردم متاسفانه بازم خطا داد

از یک هفته قبل تا الان فقط میخوام این تکه کد رو پیدا کنم نمیتونم تورو خدا برادر راهنماییم کن ممنون

روی شبیه ساز بازم فورس کلوز داد

اومدم یک try,catchهم تعریف کردم تا برنامه فورس کلوز نشه

Try
    Dim l As List
    l.Initialize
    l=File.ListFiles(File.DirRootExternal&"download")
    
    Dim size As Int
    
    For i=0 To l.Size-1
        size=size+File.Size(File.DirRootExternal&"download",l.Get(i))
    Next
    
    Msgbox(size,"اندازه کل فایل های پوشه")
    Msgbox(l.Size,"تعداد کل فایل های پوشه")
    Catch
        Msgbox("خطا","")
        End Try

چه توی شبیه ساز چه توی گوشی واقعی خودم تویmsgbox عبارت"خطا"ظاهر میشه

download

ببخش برادر تو دردسر افتادی برات دعا میکنم