עזרה באקסס מעבר על כל הקבצים בתיקייה ובתיקיות משנה

[ארי4791]

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

 

[מתמצא]

באיזה צורה אתה מעוניין שזה יחזור?
כסטרינג ארוך? כאוסף? כרשומות בטבלה?

 

[ארי4791]

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

 

[ari rm]

בס"ד

למה לא להשתמש בקוד cmd?

del /S C:\Path\to\directory\*

אתה יכול גם להריץ את זה באקסס

 

[ארי4791]

אבל לא יהיה שגיאה עם הקובץ שפתוח עכשיו (הקובץ שמריץ את הקוד)?

 

[ari rm]

אבל לא יהיה שגיאה עם הקובץ שפתוח עכשיו (הקובץ שמריץ את הקוד)?

מה חשבת לעשות עם קוד vba? איך הוא ימחק את הקובץ(האקסס) הפתוח?
ואם האקסס לא מפריע לך, אז תכניס את הקוד הנ"ל בתוך קוד VBA

Path = "C:\Path\to\directory\*"
Call Shell("del /S " & Path)

 

[ארי4791]

עריכה. טעות.
הוא כותב לי שהנתיב לא נמצא.
אבל כשאני מריץ אץ זה דרך CMD הוא כן עובד.
מה יכול להיות הסיבה?

 

[ari rm]

בס"ד
אם חוץ מזה שיש הודעה הכל עובד בסדר,
אז תנסה להכניס בתחילת הקוד ובסופו,

'משתיק הודעות
DoCmd.SetWarnings False
......
'מפעיל בחזרה
DoCmd.SetWarnings True

 

[ארי4791]

הוא כותב לי שהנתיב לא נמצא.
אבל כשאני מריץ את זה דרך CMD הוא כן עובד.
מה יכול להיות הסיבה?

 

[ari rm]

בס"ד

סליחה הפונקציה הזו היא בשביל להריץ קוד CMD להפעיל קבצים או תוכנות,
תעשה קובץ bat באותה תיקיה, ותכניס את הקוד

rmdir /s /q c:\.......\

ובאקסס בפקודה shell תנווט אל הקובץ bat הנ"ל.
עריכה: שים לב רק לדייק בכתובת בשביל לא למחוק משהו חשוב - זה אל חזור.

 

[ארי4791]

יש איך לכתוב בקוד VBA שגם ייצור את הקובץ bat הזה?

 

[ari rm]

בס"ד

יש איך לכתוב בקוד VBA שגם ייצור את הקובץ bat הזה?

ברור כמו יצירת קובץ txt
תחפור בפורום, אתה יכול אפי' כאן מוישי משתמש בזה, מקווה שתסתדר.

 

[ארי4791]

הצלחתי!
תודה!