سلام و یک سئوال اگر بخواهیم بگوییم در مسیر برنامه و زیر پوشه member این عملیات ایجاد و کنترل رو انجام بده این کد چطوری تغییر می کنه ...ممنونم
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, "ÊæÌå"
endif
پاسخ با نقل قول