ايجاد يك فولدر

[yaghot]

با سلام خدمت دوستان
برنامه اي دارم كه توي اون مي بايست قبل از خروج از برنامه ؛ از برخي جداول يك كپي تهيه شده و در فولدري ذخيره گردد . مشكل اينجاست كه از طريق برنامه و كد نويسي چطور ميتونم يك فولدر در مسير خود برنامه بسازم . به طوريكه اسم اون فولدر از يك متغير خود برنامه باشه . :ناراحت:

[smderfan]

سلام
می تونید از یکی از کدهای زیر استفاده کنید :

Sub CreateFolder()
' This routine creates a new folder

Dim strFolderName As String

strFolderName = "Path to folder\" & me!txtNewfolderName
MkDir (strFolderName)

End Sub

و یا


Public Sub CreateFolder()
Dim strFileFolderName As String
On Error GoTo err_handler
strFileFolderName = Forms!Form1.txtText3.Value
If FileSystem.GetAttr(strFileFolderName) = vbDirectory Then
End If
Exit Sub
err_handler:
FileSystem.MkDir (strFileFolderName)
End Sub

[yaghot]

با سلام .
اين كد ها بايد كجا و به چه صورتي كپي شوند؟:خجالت:

[yaghot]

حل شد . ممنون:بوس: