Send Event foksiyonunun calculation sekmesine aşağıdaki kodu yazmanız yeterlidir. Subsutitute kullanmamın sebebi yol verirken ters \ kullanma ihtiyacınız olması.
"cmd /c md " & Substitute ( Quote ("c:/resim/arsiv/" & AYS::KayitNo ); "/"; "\")" C nin altına, Kayıt No kaç ise o isimde klasör açar. "ör: Kayıt No 100 ise 100 adında klasör açar."
Kod içerisinde kullanma.
Set Variable [ $kn; Value:AYS::KayitNo ]
Set Variable [ $res2; Value:GetRepetition ( Butonlar::resimsabitleri; 2) ]
Set Variable [ $res; Value:GetRepetition ( Butonlar::resimsabitleri; 4) ]
Send Event [ open document/application ; "cmd /c md " & Substitute ( Quote ("c:/resim/arsiv/" & AYS::KayitNo ); GetRepetition ( Butonlar::AlanAdlari; 33); GetRepetition ( Butonlar::AlanAdlari;
34))
/*"cmd /c md " & Substitute ( Quote ( "C:/Program Files (x86)/FileMaker/FileMaker Pro 11 Advanced/Web/arsiv/" & AYS::KayitNo ); GetRepetition ( Butonlar::AlanAdlari; 33); GetRepetition
( Butonlar::AlanAdlari; 34))*/ ]
[ Bring application to foreground ]
Set Field [ AYS::YolGlobal ; Substitute ( $res2 & AYS::KayitNo; GetRepetition ( Butonlar::AlanAdlari; 33); GetRepetition ( Butonlar::AlanAdlari; 34) ) ]
Copy [ AYS::YolGlobal ]
[ Select ]
Send Event [ open document/application ; File Name: “$res” ]
[ Bring application to foreground ]
If [ Get (LastError)=100 ]
Show Custom Dialog [ Title: "Uyarı"; Message: "Sabitler alanındaki Resim yolunu veya tarayıcı exe yolunu net giriniz."; Default Button: “OK”, Commit: “Yes” ]
End If
/