מחק קובץ VBA | כיצד למחוק קבצים בתיקיה באמצעות קוד VBA?

ב- VBA אנו יכולים למחוק כל קובץ הקיים במחשב באמצעות קודי VBA והקוד המשמש למחיקת כל קובץ מכונה פקודת Kill, השיטה למחיקת כל קובץ היא ראשית, אנו מספקים את הנתיב של הקובץ שמשמעותו איפה הקובץ ממוקם במחשב ואז אנו משתמשים בפקודה Kill כדי למחוק את הקובץ.

כיצד למחוק קבצים באמצעות קוד VBA?

VBA הוא הדבר הקשה בהתחלה, אך ככל שתבלה יותר זמן עם VBA תתחיל לאהוב את זה בדיוק כמוני. אנו יכולים לפתוח קבצים מתיקיה אחרת במחשב, נוכל לעבוד איתם, וכעת אנו יכולים למחוק קבצים גם באמצעות קידוד VBA. במאמר זה נראה לכם כיצד תוכלו למחוק קבצים באמצעות קוד VBA בתיקיה הספציפית.

כשאנחנו עובדים עם פרויקטים גדולים אנו בדרך כלל יוצרים הרבה קבצי ביניים כדי לתמוך בתהליך שלנו. אחרי שכל העבודה נעשית עלינו למחוק את הקבצים האלה כדי למנוע כל סוג של בלבול בעתיד.

ותרחיש אחד הוא כשאנחנו בדרך כלל מקבלים דוא"ל אנו שומרים קבצים מצורפים לעבודה הרגילה שלנו או שאנחנו רק רוצים לראות את הדו"ח באותה נקודת זמן ובהמשך נצטרך למחוק את הקבצים האלה.

מחיקת קבצים אלה באופן ידני תיקח זמן או שנשכח לשמור וזה יתפוס את המקום במחשב שלנו. אנו נראה לך כיצד למחוק קבצים אלה עם קודי VBA פשוטים.

שיטת הריגה למחיקת קבצים בתיקיה באמצעות קוד VBA

פונקציית KILL פשוטה תמחק את התיקיה, את הקובץ הספציפי, את כל קבצי ה- Excel וכו '. בדוק את התחביר של שיטת KILL ב- VBA. שיטת Kill לא יכולה למחוק קבצים לקריאה בלבד.

שם נתיב: שם הנתיב אינו אלא נתיב התיקיה במחשב למחיקת הקבצים.

הערה: שם הנתיב יכול לכלול גם תווים כלליים. אנו יכולים להשתמש בכוכבית (*) ובסימני שאלה (?) כתווים כלליים ב- Excel.

כוכבית (*) שימושית להתאמה לכל מחרוזת בכל אורך שאפילו נחשב לאפס.

סימן שאלה (?) שימושי כדי להתאים לדמות אחת בלבד.

מחק את שם הקובץ המסוים

לדוגמא, יש לי תיקיה כמו למטה.

בתיקיה זו, אני רוצה למחוק את הקובץ בשם "קובץ 5". התחל את הקוד עם פונקציית KILL.

קוד:

 מחיקת משנה_קבצים () הרגה (שם שם) סוף משנה 

העתק והדבק את נתיב התיקיה.

והדבק במרכאות כפולות.

הרגו את "E: \ Excel Files"

כעת שים קו נטוי נוסף לאחור (\) והזן את שם הקובץ עם סיומת.

להרוג את "E: \ Excel Files \ File5.xlsx"

כאשר אתה מריץ קוד זה, הוא ימחק את הקובץ בשם "File 5.xlsx" בנתיב התיקיה שהוזכר.

מחק את כל קבצי Excel

כדי למחוק את כל קבצי ה- Excel בתיקיה באמצעות VBA עלינו להשתמש בתווים כלליים עם פונקציית KILL. לאחר שהזכרנו את נתיב התיקיה עלינו להזכיר את הקובץ כ- "*. Xl *"

קוד:

להרוג את "E: \ Excel Files \ *. Xl *"

כאשר אתה מריץ קוד זה, פעולה זו תמחק את כל קבצי ה- Excel שבתיקיה.

ראינו כיצד ניתן למחוק קובץ Excel יחיד ואת כל קבצי ה- Excel. אבל אם אנחנו רוצים למחוק את כל הקבצים בתיקיה איך נוכל למחוק אותה. מכיוון שאנו משתמשים ב- Excel VBA, האם הוא יכול למחוק קבצים אחרים?

התשובה היא כן!!! השתמש בקוד שלמטה כדי למחוק את כל הקבצים בתיקיה.

קוד:

הרגו את "E: \ Excel Files \ *. *"

מחק את התיקיה השלמה בלבד

האם ניתן למחוק את כל התיקיה עצמה?

כן זה אפשרי.

לשם כך, הדבר הראשון שעלינו לעשות הוא שעלינו למחוק את כל הקבצים בתיקיה באמצעות פונקציית KILL, ואז כדי למחוק את התיקיה עלינו להשתמש בפונקציה אחת נוספת הנקראת RmDir .

קוד:

RmDir "E: \ Excel Files \"

כאן RmDir ימחק רק את התיקיה הריקה, אם תיקיית משנה כלשהי נמצאת בה היא לא יכולה למחוק אותה.

מחק את כל קבצי הטקסט בתיקיה

כדי למחוק את כל קבצי הטקסט בתיקיה השתמש בקוד שלהלן.

קוד:

הרוג "E: \ Excel Files \ *. Txt"

מחק קבצים לקריאה בלבד

כפי שאמרתי פונקציית KILL לא יכולה למחוק קבצי "קריאה בלבד" בתיקיה. במקרה כזה אנו צריכים להשתמש בשתי הפונקציות האחרות "Dir $" ו- "SetAttr". להלן הקוד לדוגמא למחיקת הקבצים לקריאה בלבד גם כן.

קוד:

 Sub Delete_Files1() Dim DeleteFile As String DeleteFile = " E:\Excel Files\" If Len(Dir$(DeleteFile)) > 0 Then SetAttr DeleteFile, vbNormal Kill DeleteFile End If End Sub 

You can download this VBA Delete File Excel Template from here – VBA Delete File Excel Template