راهنمائی برای حذف فایل از درون برنامه اکسس [بایگانی]

محمد رضا بهبودی

پنج شنبه 23 خرداد 1398, 11:24 صبح

با سلام و احترام
لطفا اساتید محترم راهنمائی فرمایند با چه دستوری می توان یک فایل را در یک درایو کامپیوتر از درون برنامه اکسس پاک کرد. ممنون

محمد رضا بهبودی

جمعه 24 خرداد 1398, 21:50 عصر

اساتید محترم لطفاً راهنمایی فرمایید

محمد رضا بهبودی

شنبه 25 خرداد 1398, 20:05 عصر

واقعا این موضوع راهی ندارد لطفاً راهنمایی فرمایید

Ali_Fallah

شنبه 25 خرداد 1398, 21:01 عصر

از دستور kill استفاده کن
بعد آدرس فایل رو جلوش بنویس

محمد رضا بهبودی

یک شنبه 26 خرداد 1398, 10:47 صبح

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

Ali_Fallah

یک شنبه 26 خرداد 1398, 21:14 عصر

سرچ کنی هست خودم تا به حال در اکسس به این شکل کار نکرده بودم
کد زیر رو استفاده کن

CreateObject("Scripting.FileSystemObject").DeleteFolder "c:\myFolder"

محمد رضا بهبودی

دوشنبه 27 خرداد 1398, 08:24 صبح

با سلام و احترام
ممنون از پاسخ شما استاد گرامی . درصورت امکان کد کپی کردن یک پوشه را هم بفرمائید ممنون

mohammadsaleh

دوشنبه 27 خرداد 1398, 12:12 عصر

سلام
برنامه زیر رو دانلود کن
در قسمت sample جستجو کن هر نمونه ا ی که بخواهی داره. ضمنا هر اسکریپتی خواستی میتونی در این برنامه بنویسی و حتی از اون فایل exe هم درست کنی
https://drive.google.com/file/d/1D3eeUJnDxPPDQIIxdB8rAKs5EZb3anjO/view?usp=sharing

محمد رضا بهبودی

دوشنبه 27 خرداد 1398, 14:28 عصر

با سلام و احترام
ممنون از شما استاد بزرگوار برای پاسخگوئی
ولی من آدرس فوق را که می زنم تصویر پیوست باز می شود و هیچ اتفاقی رخ نمی دهد لطفا راهنمائی فرمایید ممنون

mohammadsaleh

سه شنبه 28 خرداد 1398, 17:39 عصر

گوشه بالای سمت راست همان صفحه مشکی علامت دانلود ( فلش به سمت پایین ) را کلیک کنید

نکته: با توجه به محدودیت انتقال فایل شما هم می تونید فایلها تون رو در one drive یا google drive قرار دهید و اون رو به همین شکل share کنید و آدرس را به دوستانتون بدید. ( خداحافظی با ضمیمه فایل در ایمیل)

محمد رضا بهبودی

چهارشنبه 29 خرداد 1398, 08:53 صبح

با سلام و احترام
استاد عزیز اگر اسکریپتی نوشتم چگونه باید از ان در برنامه خودم استفاده کنم ؟ ممنون

mohammadsaleh

چهارشنبه 29 خرداد 1398, 11:37 صبح

در رویداد دکمه کد زیر را کپی کن.
فایل تکست با نام a در درایو E حذف میشود

Private Sub Command0_Click()
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile ("E:\a.txt")
MsgBox "was deleted"
End Sub

محمد رضا بهبودی

پنج شنبه 30 خرداد 1398, 10:20 صبح

با سلام و احترام
دوست و استاد عزیز
از راهنمائی جنابعالی سپاسگزارم ،در صورت امکان کد کپی کردن یک فولدر را هم اعلام فرمائید . ممنون

ariayekta

شنبه 01 تیر 1398, 05:54 صبح

سلام این نمونه رو ببین

http://barnamenevis.org/showthread.php?555236-%D8%A7%D8%AC%D8%B1%D8%A7%DB%8C-%D9%81%D8%A7%DB%8C%D9%84-%D8%A7%D8%B2-%D8%A7%D8%AF%D8%B1%D8%B3-%D8%AF%D9%87%DB%8C-%D8%AF%D8%B1-textbox

محمد رضا بهبودی

شنبه 01 تیر 1398, 14:20 عصر

با سلام
ممنون از پاسخگوئی شما ولی دوست عزیز لینکی که شما معرفی کردید تماما در خصوص کار با فایل است ولی سوال من در خصوص کپی کردن یک فولدر و پیست آن در جای دیگر می باشد. لطفا در صورت امکان اساتید راهنمائی فرمایند .

محمد رضا بهبودی

یک شنبه 02 تیر 1398, 07:55 صبح

لطفا اساتید راهنمائی بفرمایند ممنون

محمد رضا بهبودی

سه شنبه 04 تیر 1398, 08:03 صبح

اساتید محترم لطفا راهنمائی بفرمایید

Ali_Fallah

سه شنبه 04 تیر 1398, 20:46 عصر

Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.copyFolder "c:\FolderName", "e:\\" ' true

محمد رضا بهبودی

چهارشنبه 05 تیر 1398, 10:20 صبح

باسلام و احترام
استاد گرامی از پاسخ جنابعالی کما تشکر را دارم . موضوع کاملا حل شد . ممنون

mohammadsaleh

چهارشنبه 05 تیر 1398, 18:27 عصر

برنامه ای که خدمتتان معرفی کردم به قدری قدرتمند است که حتی می توانید با آن فایل نصب و بروزرسانی برنامه هم بسازید

محمد رضا بهبودی

پنج شنبه 06 تیر 1398, 13:39 عصر

ممنون از لطف جنابعالی
ولی متاسفانه روش استفاده از آن را بلد نیستم . اگر فایل آموزشی و یا pdfدارد ممنون می شوم برای من ارسال بفرمائید .

mohammadsaleh

پنج شنبه 06 تیر 1398, 14:58 عصر

بنابر کاری که می خواهید انجام بدهید از نمونه کدها استفاده کنید. قطعا این کدها نمونه است و شما باید در آن تغییرات لازم را بدهید
مثلا در کد زیر لیست درایوهای رایانه نشان داده میشه اما برای استفاده از اون باید ببیند دنبال چه هستید؟

' 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

محمد رضا بهبودی

پنج شنبه 13 تیر 1398, 06:55 صبح

با سلام و احترام
استاد گرامی لطفا درصورت امکان کد فشرده سازی یک فولدر را هم آموزش دهید . ممنون ( با winrar )