[حل شده] تشخیص format فایل در یوزر فرم

[younes672]

سلام و عرض ادب محضر دوستان عزیز

در تکست باکس 1 فایل از سیستم بهمراه format فراخوانی می شود لطفا جهت انتقال format به تکست باکس 2 راهنمایی بفرمایید.

[majid_mx4]

سلام

به قسمت آخر دستورات خودتان این دستور را اضافه کنید

TextBox2.Text = Mid(TextBox1.Text, InStr(1, TextBox1.Text, ".") + 1, 20)

که میشود

Private Sub CommandButton1_Click()

Dim cou As Integer
Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
cou = Application.FileDialog(msoFileDialogOpen).Show
If cou <> 0 Then
    strPatch = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
    TextBox1 = strPatch
    
End If
TextBox2.Text = Mid(TextBox1.Text, InStr(1, TextBox1.Text, ".") + 1, 20)


End Sub

موفق باشید میر

[younes672]

سلام

به قسمت آخر دستورات خودتان این دستور را اضافه کنید

TextBox2.Text = Mid(TextBox1.Text, InStr(1, TextBox1.Text, ".") + 1, 20)

که میشود

Private Sub CommandButton1_Click()

Dim cou As Integer
Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
cou = Application.FileDialog(msoFileDialogOpen).Show
If cou <> 0 Then
    strPatch = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
    TextBox1 = strPatch
    
End If
TextBox2.Text = Mid(TextBox1.Text, InStr(1, TextBox1.Text, ".") + 1, 20)


End Sub

موفق باشید میر

سپاسگزارم