مجبور کردن Common Dialog به ذخیره کردن فایل ها در یک درایو خاص

[parsiyan_mohsen]

با سلام و احترام

این آموزش رو امروز فهمیدم گفتم به دوستان عزیز برنامه نویس هم بگم البته تمامی دوستان خودشون استادن.
ابتدا یک فرم خالی درست کنید و یک کنترل Common Dialog روی ان قرار دهید و سپس یک Command Button
کد زیر را در رویداد کلیک کامند باتون قرار دهید


Private Sub Command1_Click()
Call Save_driveA
End Sub

یک TextBox روی فرم قرار دهید
بعد تابع جدیدی به نام Save_DriveA مثل زیر درست کنید


Function Save_DriveA()
Dim x As Integer
Do
commondialog1.Action = 2 ' save file
If UCase(Left(commondialog1.FileName, 1)) <> "A" Then
MsgBox "YOu Must Save File to Drive A only"
Else
Exit Do
End If
DoEvents
Loop
x = FreeFile
Open commondialog1.FileName For Output As #x
Print #x, Text1.Text
Close #x
MsgBox "File has been saved to A"
End Function

[modirmasool]

یه چیزی رو فراموش کردین! برای کنسل کردن، هم باید یه شرط بذارین تا کاربر اگه پشیمون شد، بتونه کنسل بزنه.:چشمک:

[milad-fa]

با سلام،

یک TextBox روی فرم قرار دهید
برای چی؟!

یه چیزی رو فراموش کردین! برای کنسل کردن، هم باید یه شرط بذارین تا کاربر اگه پشیمون شد، بتونه کنسل بزنه.:چشمک:
درسته.