کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی
کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی

کپی فایل با استفاده از توابع API


در ویندوز ۳۲ بیت : 

Public Declare Function CopyFileA Lib "kernel32" (ByVal AExistingFileName As String,ByVal ANewFileName As String,ByVal AFailIfExists As Boolean) As Boolean


کپی فایل متنی test از درایو C و پوشه Source در همان درایو ولی پوشه CopyLoc


CopyFileA "C:\Source\test.txt", "C:\CopyLoc\test.txt", 0



BOOL CopyFileW(

  [in] LPCWSTR lpExistingFileName,

  [in] LPCWSTR lpNewFileName,

  [in] BOOL    bFailIfExists

);


تابع بالا کاملا مشخصه که دیتا تایپ دو تا آرگومان اولی از نوع Long و آخری Boolean است ( False یا True ) ... اولی فایل موجود دومی فایل جدید و سومی خطا بدهد در صورت موجود بودن در مسیر کپی یا خیر ... جواب تابع هم بصورت Boolean است ( اگر خطا دهد صفر و اگر کپی انجام شود غیر صفر است ) و در فایل هایی که نام آن بصورت Unicode است نه Ascii استفاده میشود.


برای کار دو تابع در ویندوز ۶۴ بیتی قبل فانکشن کلمه PtrSafe را بگذارید  و در CopyFileW غیر از کلمه ذکر شده دیتاتایپ های Long به LongPtr تغییر یابد.


نکته : توابع API به حروف کوچک و بزرگ حساسند لذا از نظر نوشتاری همان را استفاده کنید که گفته شده فرضا  چنانچه تابع CopyFileA را با نوشتاری copyfileA اظهار کنید ، یا خطا میدهد یا عمل نمیکند !!!


تا می تونید زایمان کنید دولت حمایت میکنه :۲۲ دیماه ۱۴۰۱ 

مدیرکل رفاه، تعاون و خدمات اجتماعی شهرداری تهران از ارائه خدمات ویژه به مادران شاغل در شهرداری تهران خبر داد و گفت: به مادران دو قلوهای دو روز دورکار، ماهانه ۲ میلیون و چهارصد هزارتومان کمک هزینه نگهداری از کودک پرداخت می‌شود.... البته مادران عزیز بفکر پوکی شدید استخوان در ۶۰ سالگی هم باشید !!! هزینه ترم دانشگاه هم الان نزدیک به ۲ میلیون تومن هست الان البته به خیلی چیزها فکر کنید..... 


دهه ۷۰ تا ۹۰ شعار ایران ما ...فرزند کمتر زندگی بهتر حتی تامین اجتماعی هم برای فرزند ۵ ببعدجریمه صدور دفترچه می گرفت !!!


طبق اعلام نماینده دادستان دادگاه بر اساس کیفرخواست صادره، مستندات پرونده بدست آمده از فعالیت متهم ( کتایون ریاحی ) در شبکه‌های اجتماعی، اتهامات او شامل اجتماع و تبانی علیه امنیت ملی، تشویش اذهان عمومی و تشویق به فساد بود که از نظر دادگاه و در راستای ماده ۳۴۱ این ماهیت را ترغیب و تشویق مردم به اعمال منافی عفت در فضای مجازی در نظر گرفته شد..... البته در جریان رسیدگی ایشون غش کردند و با اورژانس دلالت شده و ختم جلسه اعلام شد