باز کردن فایل به شرطی که سایز آن بیشتر از 1کیلو بایت باشد

Collapse
این تاپیک قفل است.
X
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • khorasan66

    • 2012/06/12
    • 111
    #1

    [حل شده] باز کردن فایل به شرطی که سایز آن بیشتر از 1کیلو بایت باشد

    سلام
    در یک شبکه اینترانت فایل های اکسلی ارسال می شود .
    گاهی اوقات این فایل ها به صورت ناقص و با حجم صفر ارسال می شود . که باعث اختلال می شود
    یک فایل اکسل موظف به باز کردن تک تک این فایل ها و برداشت اطلاعات ارسالی می باشد .
    لذا دستوری را نیاز دارم که ابتدا بررسی نماید این فایل به صورت کامل ارسال شده سپس اقدام به باز نمودن فایل نماید .
    مثلا اگر سایز فایل بیشتر از 0 بود اقدام به باز کردن کن
    لازم به توضیح است فایل به شکل فیزیکی با حجم صفر رویت می شود . لذا استفاده از دستور زیر نتیجه بخش نیست
    If Dir("\\192.168.10.6\002\06\BAK06.xlsm") <> "" Then
    لطفا راهنمائی نمائید
    برچسب ها: هیچ‌کدام
    • mrhartsclube

      • 2017/11/15
      • 130
      • 81.00
      #2
      سلام دوست عزیز

      FileLen(“آدرس فایل مورد نظر شما”)

      این دستور یه مقدار Long بر میگردونه که حجم فایلتون به بایت هست.


      Sent from my iPhone using Tapatalk
      [CENTER][COLOR=#696969][FONT=lucida console]... [B]Programming [/B]C# - VB.Net - VC++ - ASP.Net - HTML - CSS - JS - AS2 - AutoIt - Pascal - Delphi - PHP - Python - VBA - Etc
      [/FONT][/COLOR][SIZE=2][FONT=lucida console][COLOR=#808080]... 2D & 3D [B]Graphic Designer[/B][/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] 2D & 3D [B]Animator [/B][/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] [B]Game [/B]Designer & [B]Hacker [/B][/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] Data [B]Forensic [/B]Expert [/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] [B]Ethical [/B]Hacker [/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] [B]Pen[/B] Tester

      [/COLOR][/FONT][/SIZE][COLOR=#ff0000][FONT=courier new][SIZE=4][B].: Expert in doing what nobody else can :.[/B][/SIZE][/FONT][/COLOR][/CENTER]

        کامنت

        قبلی template بعدی
        چند لحظه..