نوشته شده توسط
narpco
سلام و یک سئوال اگر بخواهیم بگوییم در مسیر برنامه و زیر پوشه 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
سلام
با فرض اینکه میخواهید همزمان با ایجاد پوشه اصلی زیر پوشه ای با نام member ایجاد کنید کدها رو بصورت زیر تغییر دادم .
Dim strfolder As String
Dim subfolder As String
Private Sub cmdAAA_Click()
strfolder = icode & "-" & iname & " " & fname
subfolder = Application.CurrentProject.Path & "\" & strfolder & "\member"
If Len(Dir(Application.CurrentProject.Path & "\" & strfolder & "", vbDirectory)) = 0 Then
MkDir Application.CurrentProject.Path & "\" & strfolder & ""
End If
If Len(Dir(Application.CurrentProject.Path & "\" & strfolder & "", vbDirectory)) > 0 And Len(Dir(subfolder, vbDirectory)) = 0 Then
MkDir subfolder
End If
End Sub
همانطور که مشاهده می کنید در کدهای جدید پیغام ها را حذف کرده ام و بنظرم لزومی هم برای صدور پیغام وجود ندارد .
در عوض در رویداد Form_Current فرم کد زیر را قرار داده ام تا در صورت ایجاد پوشه اصلی و زیر پوشه کمند باتن غیر فعال شود
Private Sub Form_Current()
strfolder = icode & "-" & iname & " " & fname
subfolder = Application.CurrentProject.Path & "\" & strfolder & "\member"
If Len(Dir(Application.CurrentProject.Path & "\" & strfolder & "", vbDirectory)) > 0 And Len(Dir(subfolder, vbDirectory)) > 0 Then
cmdAAA.Enabled = False
Else
cmdAAA.Enabled = True
End If
End Sub
کدهای رویداد CMDBBB_Click تغییر ندادم چون تغییری برای این مورد نخواسته ای
یا علی