Private Sub btn_see_folder_Click()
Dim str_folder As String
strfolder = member_codeozviat & "-" & member_name & "-" & member_fname
If Len(Dir(Application.CurrentProject.Path & "" & strfolder & "", vbDirectory)) > 0 Then
str_folder = CurrentProject.Path & "" & strfolder ' folder to open
Call shell("explorer.exe " & str_folder, vbNormalFocus)
End If
End Sub
آدرس فایل برنامه ما به شرح زیر است :
E:\Mohasebmirza\incom
نمیدونم نیاز هست یا نه ولی اینم کدی که که بدرستی نام فولدر رو میسازه :
Private Sub btn_make_folder_Click()
strfolder =
member_codeozviat & "-" & member_name & "-" & member_fname
If Len(Dir(Application.CurrentProject.Path & "" & strfolder & "", vbDirectory)) > 0 Then
MsgBox " !قبلاً پوشه اي با نام " & strfolder & " ايجاد شده ", vbInformation, "توجه"
Exit Sub
Else
MkDir Application.CurrentProject.Path & "" & strfolder & ""
MsgBox " ! پوشه اي با نام " & strfolder & " در ميسر برنامه ايجاد شد ", vbInformation, "توجه"
End If
ممنون میشم راهنمایی بفرمایید اشتباه من کجاست 
پاسخ با نقل قول