با سلام و احترام
لطفا اساتید محترم راهنمائی فرمایند با چه دستوری می توان یک فایل را در یک درایو کامپیوتر از درون برنامه اکسس پاک کرد. ممنون
با سلام و احترام
لطفا اساتید محترم راهنمائی فرمایند با چه دستوری می توان یک فایل را در یک درایو کامپیوتر از درون برنامه اکسس پاک کرد. ممنون
اساتید محترم لطفاً راهنمایی فرمایید
واقعا این موضوع راهی ندارد لطفاً راهنمایی فرمایید
از دستور kill استفاده کن
بعد آدرس فایل رو جلوش بنویس
ممنون از شما استاد گرامی که به سوال من پاسخ دادید
امکان داره نحوه پاک کردن یک فولدر را هم آموزش دهید . ممنون
آخرین ویرایش به وسیله محمد رضا بهبودی : یک شنبه 26 خرداد 1398 در 11:33 صبح
سرچ کنی هست خودم تا به حال در اکسس به این شکل کار نکرده بودم
کد زیر رو استفاده کن
CreateObject("Scripting.FileSystemObject").DeleteF older "c:\myFolder"
با سلام و احترام
ممنون از پاسخ شما استاد گرامی . درصورت امکان کد کپی کردن یک پوشه را هم بفرمائید ممنون
آخرین ویرایش به وسیله محمد رضا بهبودی : دوشنبه 27 خرداد 1398 در 09:48 صبح
سلام
برنامه زیر رو دانلود کن
در قسمت sample جستجو کن هر نمونه ا ی که بخواهی داره. ضمنا هر اسکریپتی خواستی میتونی در این برنامه بنویسی و حتی از اون فایل exe هم درست کنی
https://drive.google.com/file/d/1D3e...ew?usp=sharing
با سلام و احترام
ممنون از شما استاد بزرگوار برای پاسخگوئی
ولی من آدرس فوق را که می زنم تصویر پیوست باز می شود و هیچ اتفاقی رخ نمی دهد لطفا راهنمائی فرمایید ممنون
گوشه بالای سمت راست همان صفحه مشکی علامت دانلود ( فلش به سمت پایین ) را کلیک کنید
نکته: با توجه به محدودیت انتقال فایل شما هم می تونید فایلها تون رو در one drive یا google drive قرار دهید و اون رو به همین شکل share کنید و آدرس را به دوستانتون بدید. ( خداحافظی با ضمیمه فایل در ایمیل)
با سلام و احترام
استاد عزیز اگر اسکریپتی نوشتم چگونه باید از ان در برنامه خودم استفاده کنم ؟ ممنون
در رویداد دکمه کد زیر را کپی کن.
فایل تکست با نام a در درایو E حذف میشودPrivate Sub Command0_Click()
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile ("E:\a.txt")
MsgBox "was deleted"
End Sub
با سلام و احترام
دوست و استاد عزیز
از راهنمائی جنابعالی سپاسگزارم ،در صورت امکان کد کپی کردن یک فولدر را هم اعلام فرمائید . ممنون
سلام این نمونه رو ببین
https://barnamenevis.org/showthread.p...%D8%B1-textbox
با سلام
ممنون از پاسخگوئی شما ولی دوست عزیز لینکی که شما معرفی کردید تماما در خصوص کار با فایل است ولی سوال من در خصوص کپی کردن یک فولدر و پیست آن در جای دیگر می باشد. لطفا در صورت امکان اساتید راهنمائی فرمایند .
لطفا اساتید راهنمائی بفرمایند ممنون
اساتید محترم لطفا راهنمائی بفرمایید
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.copyFolder "c:\FolderName", "e:\\" ' true
باسلام و احترام
استاد گرامی از پاسخ جنابعالی کما تشکر را دارم . موضوع کاملا حل شد . ممنون
برنامه ای که خدمتتان معرفی کردم به قدری قدرتمند است که حتی می توانید با آن فایل نصب و بروزرسانی برنامه هم بسازید
ممنون از لطف جنابعالی
ولی متاسفانه روش استفاده از آن را بلد نیستم . اگر فایل آموزشی و یا pdfدارد ممنون می شوم برای من ارسال بفرمائید .
بنابر کاری که می خواهید انجام بدهید از نمونه کدها استفاده کنید. قطعا این کدها نمونه است و شما باید در آن تغییرات لازم را بدهید
مثلا در کد زیر لیست درایوهای رایانه نشان داده میشه اما برای استفاده از اون باید ببیند دنبال چه هستید؟
' List All Disk Drives
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives
For Each objDrive In colDrives
Wscript.Echo "Drive letter: " & objDrive.DriveLetter
MsgBox objDrive.DriveLetter
Next
با سلام و احترام
استاد گرامی لطفا درصورت امکان کد فشرده سازی یک فولدر را هم آموزش دهید . ممنون ( با winrar )
Shell ("C:\Program Files\WinRAR\WinRAR.exe a -ep1 D:\test.zip D:\TEST\*")