باز کردن گروهی فایل [بایگانی]

saed2006

چهارشنبه 16 مرداد 1387, 12:55 عصر

با سلام ایا میدونید چطوری میتونم با گرفتن ادرس یه فولدر تمام فایل های محتوی زیر فولدر های اون رو که از نوع متنی هستند باز کنم ممنون

xxxxx_xxxxx

چهارشنبه 16 مرداد 1387, 13:04 عصر

از fso كمك بگيريد و اول تمام فايل هاي متني رو پيدا كرده ( نام و تعدادشون). بعد نام فايل ها را يكي يكي به يك آرايه منتقل كنيد.

سپس در يك حلقه از يك تا تعداد فايل ها اونها رو باز كنيد.

جايي كه هستم VB نصب نيست وگرنه نمونه كد مي ذاشتم.

اگه اين تاپيك بدون پاسخ موند فردا برنامشو مي زارم.

saed2006

چهارشنبه 16 مرداد 1387, 13:13 عصر

چطوری میتونم تمام فایل های داخل پوشه رو پیدا کنم

مهران رسا

چهارشنبه 16 مرداد 1387, 16:05 عصر

چطوری میتونم تمام فایل های داخل پوشه رو پیدا کنم

http://gksoft.persiangig.com/PICMSH.JPG

http://barnamenevis.org/forum/showpost.php?p=518348&postcount=218

saed2006

چهارشنبه 16 مرداد 1387, 19:02 عصر

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

xxxxx_xxxxx

پنج شنبه 17 مرداد 1387, 08:25 صبح

با اين دستورات:
يك textbox و يك CommandButton رو فرم قرار بديد. توي textbox آدرس فولدر موردنظر بنويسيد و بعد رو command كليك كنيد.

Private Sub Command1_Click()
OpenFiles (Text1.Text)
End Sub

Private Function OpenFiles(P As String)
Set fso = CreateObject("scripting.filesystemobject")
Set folder = fso.getfolder(P)
Set Files = folder.Files
For Each file In Files
DoEvents
If Right(UCase(file.path), 3) = "TXT" Then
Open file.path For Append As #1
Print #1, vbCrLf & "XXXXX_XXXXX"
MsgBox file.path
Close #1
End If
Next
Set subfolders = folder.subfolders
For Each subfolder In subfolders
'OpenFiles subfolder.path
Next
End Function

توضيحات:
اگر فقط مي خواي فايل هاي متني همون فولدر باز بشن خطا آخر به همين صورت (remark) شده باشه اما اگه مي خواي زير فولدر هاي فولدر مورد نظر هم جستجو بشن بايد خط آخر اجرا بشه.
تو خط آخر اينگونه هست كه تابع به صورت بازگشتي عمل مي كنه و آدرس زير فولدر رو به عنوان پارامتر به تابع ارسال مي كنه.

قبلا گفته بودم كه يك متغير براي شمارش تعداد فايل ها استفاده كن اما نيازي نيست چون ما يك حلقه داريم كه توش مي تونيم هر بلايي كه مي خوايم سر فايل در بياريم. البته به شرطي كه همه بلايا يكسان باشن. مثلا من اينجا يك خط به انتهاي فايل اضافه مي كنم (xxxxx_xxxxx) بعد هم آدرس فايل رو به كاربر نمايش ميديم.

موفق باشيد