[حل شده] اجرای فایل ها از طریق فرم vba

[سید مسعود قمی]

سلام دوستان لطفا راهنمایی کنید.

فرمی درست کردم که شامل یک عدد تکسباکس و باتن می باشد. و داخل پوشه ای کلی فایل اعم از عکس، پی دی اف، ورد و ... دارم.
میخوام وقتی که نام فایلی از فایل های پوشه مورد نظر را در تکسباکس وارد کردم با زدن دکمه باتن فایل مورد نظر اجرا بشه.

[M_ExceL]

سلام دوستان لطفا راهنمایی کنید.

فرمی درست کردم که شامل یک عدد تکسباکس و باتن می باشد. و داخل پوشه ای کلی فایل اعم از عکس، پی دی اف، ورد و ... دارم.
میخوام وقتی که نام فایلی از فایل های پوشه مورد نظر را در تکسباکس وارد کردم با زدن دکمه باتن فایل مورد نظر اجرا بشه.

سلام،
از کد زیر استفاده کنید :

Private Sub CommandButton1_Click()
Dim pt, fnameF, NFF As String
fname = Me.TextBox1.Text
pt = "C:\Users\test\Desktop\New folder (23)\"
fnameF = Dir(pt & fname & "*.*")
NFF = pt & fnameF
CreateObject("shell.application").Open (NFF)
End Sub

توجه : ابتدا مسیر رو داخل کد اصلاح کنید و مسیر فایل های خودتون رو قرار بدید.
یا حق.

[سید مسعود قمی]

سلام استاد محترم بسیار ممنون از جوابتون خیلی کاربردی بود
برای کامل تر شدن عرض میکنم
میخوام وقتی که فایل رو پیدا نکرد
این پیغام رو بده
"کاربر محترم فایل مورد نظر یافت نشد"

[سید مسعود قمی]

سلام استاد
من کد بالا رو استفاده کردم خیلی خوب جواب داد منتهی وقتی میخوام همین کد رو توی همون یوزرفرم برای باتن دیگه هم استفاده کنم جواب نمیده. چرا؟
ممنون میشم راهنمایی کنید.

[misammisam]

سلام استاد
من کد بالا رو استفاده کردم خیلی خوب جواب داد منتهی وقتی میخوام همین کد رو توی همون یوزرفرم برای باتن دیگه هم استفاده کنم جواب نمیده. چرا؟
ممنون میشم راهنمایی کنید.

شما احتمالا کل کد ها رو کپی میکنید ، برای دکمه دیگه فقط باید قسمت داخل رو درون کد دکمه جدید قزار بدید ، یعنی اینهارو :

Dim pt, fnameF, NFF As String
fname = Me.TextBox1.Text
pt = "C:\Users\test\Desktop\New folder (23)\"
fnameF = Dir(pt & fname & "*.*")
NFF = pt & fnameF
CreateObject("shell.application").Open (NFF) 

[M_ExceL]

سلام استاد محترم بسیار ممنون از جوابتون خیلی کاربردی بود
برای کامل تر شدن عرض میکنم
میخوام وقتی که فایل رو پیدا نکرد
این پیغام رو بده
"کاربر محترم فایل مورد نظر یافت نشد"

سلام، خواهش میکنم
کد زیر رو تست کنید :

Private Sub CommandButton1_Click()
Dim fname, pt, fnameF, NFF, br As String
Dim i, b As Byte
    pt = "C:\Users\test\Desktop\New folder (23)\"
    If Me.TextBox1.Text = Empty Then
        MsgBox Chr(225) & Chr(216) & Chr(221) & Chr(199) & Chr(32) _
        & Chr(228) & Chr(199) & Chr(227) & Chr(32) & Chr(221) & Chr(199) _
        & Chr(237) & Chr(225) & Chr(32) & Chr(209) & Chr(199) & Chr(32) & Chr(230) _
        & Chr(199) & Chr(209) & Chr(207) & Chr(32) & Chr(152) & Chr(228) & Chr(237) _
        & Chr(207)
        Exit Sub
    End If
    fname = Me.TextBox1.Text
    fnameF = Dir(pt & fname & "*.*")
        If fnameF <> Empty Then
            i = 1: b = 1
                Do While br <> "."
                    br = Mid(fnameF, i, 1)
                    i = i + 1
                    b = b + 1
                Loop
        Else
            MsgBox Chr(152) & Chr(199) & Chr(209) & Chr(200) & Chr(209) & Chr _
            (32) & Chr(227) & Chr(205) & Chr(202) & Chr(209) & Chr(227) & Chr(32) & Chr(221) _
            & Chr(199) & Chr(237) & Chr(225) & Chr(32) & Chr(227) & Chr(230) & Chr(209) & Chr(207) _
            & Chr(32) & Chr(228) & Chr(217) & Chr(209) & Chr(32) & Chr(237) & Chr(199) & Chr(221) & _
            Chr(202) & Chr(32) & Chr(228) & Chr(212) & Chr(207)
            Exit Sub
        End If
    If Me.TextBox1.Text <> Left(fnameF, b - 2) Then
        MsgBox Chr(152) & Chr(199) & Chr(209) & Chr(200) & Chr(209) & Chr _
        (32) & Chr(227) & Chr(205) & Chr(202) & Chr(209) & Chr(227) & Chr(32) & Chr(221) _
        & Chr(199) & Chr(237) & Chr(225) & Chr(32) & Chr(227) & Chr(230) & Chr(209) & Chr(207) _
        & Chr(32) & Chr(228) & Chr(217) & Chr(209) & Chr(32) & Chr(237) & Chr(199) & Chr(221) & _
        Chr(202) & Chr(32) & Chr(228) & Chr(212) & Chr(207)
        Exit Sub
    Else
        fnameF = Dir(pt & fname & "*.*")
        NFF = pt & fnameF
        CreateObject("shell.application").Open (NFF)
    End If
End Sub

یا حق.

[سید مسعود قمی]

استاد خیلی خیلی ممنون مشکلم حل شد.