Attachment-Create Folder vs.

Question

Merhaba Arkadaşlar;

Herhangi bir kayda oluşturduğum buton yardımı ile klasör oluşturmak (create folder) gibi bir script oluşturmak istiyorum. Yani ilgili bir kayda diyelim ki Word belgesi, resim, video ya da herhangi bir dosyayı tutabileceğim klasör. Bunu global alanla container ile yapmak istemiyorum.

Böyle bir şey mümkün müdür?

Klasörü oluştururken o günün tarihini ve ID numarasını klasöre isim olarak verdirmek istiyorum. Teşekkürler.

DOSYA: http://filemakerturk.com/?qa=blob&qa_blobid=3201464709363649411

Answer 1

Aşağıdaki script ile klasörü masaüstüne kaydedebilirsiniz.kaydın ID numarası ve günün tarihinden oluşan bir klasör adı olacak ... "Bugün" adlı alan Calculation > Get(CurrentDate)

Ancak bu script sadece bir klasör oluşturacak,bir container alan olmadan kayda ait bir dosyadan bahsetmişsiniz o kısmı sanırım anlamadım:))

Send Event ["aevt"; "odoc"; "cmd /c md " & Quote ( Right (Get ( DesktopPath ); Length (Get (DesktopPath))-1) & Tablo::ID & "_" & Tablo::Bugün )  

 

Comments

Şemsi Bey Teşekkürler;
Scripti şu şekilde oluşturdum, ancak çalışmadı. Dosyayı da eklyorum.

"cmd/ c md Quote Right ( Get ( DesktopPath ) ; Length ( Get ( DesktopPath ) )-1 ) & UYGULAMALAR_2::ID & "-" & Date ( month ; day ; year )"

---

İşaretlerde eksiklikler var, yukarıdaki scripti kopyalayın sadece alanları değiştirin, denenmiştir.. Telefonda olduğumdan müdahale edemiyorum..

Answer 2

Dosya 1 MB büyük olduğu için RAR ile ikiye boldum. Kendim yaptığım  çok güzel resim editörü örneğidir. İsteğinize göre düzenleyin. Toplu resim aktarmayı da koydum.

 

Dosya 1 indirmek için tıklayın.

 

Dosya 2 indirmek için tıklayın.

 

Allow User Abort [ On ]
Set Error Capture [ On ]
Loop
Set Variable [ $dno; Value:Resim Editoru::Dosya No ]
If [ $dno = $dno1 ]
Send Event [ open document/application ;
"cmd /c md " & Substitute ( Quote ( "C:/Resim Editoru/" & Resim Editoru::Dosya No ); GetRepetition ( Butonlar::
AlanAdlari; 33); GetRepetition ( Butonlar::AlanAdlari; 34))
/*"cmd /c md " & Substitute ( Quote($res2 & "/" & AYS::KayitNo); GetRepetition ( Butonlar::AlanAdlari; 33);
GetRepetition ( Butonlar::AlanAdlari; 34))*/ ]
Pause/Resume Script [ Duration (seconds): ,01 ]
Set Variable [ $say ; Value:$say1 ]
Set Variable [ $y ; Value:"filewin:/C:/Resim Editoru/" & Resim Editoru::Dosya No & "/" & Resim Editoru::Dosya No & "_" &
$say&".jpg" ]
Export Field Contents [ Resim Editoru::image ; “$y” ]
If [ Get(LastError)=101 ]
End If
Pause/Resume Script [ Duration (seconds): ,01 ]
Go to Record/Request/Page
[ Next; Exit after last ]
Set Variable [ $say1 ; Value:$say+1 ]
Set Variable [ $dno1 ; Value:Resim Editoru::Dosya No ]
End If
If [ $dno ≠ $dno1 ]
Send Event [ open document/application ;
"cmd /c md " & Substitute ( Quote ( "C:/Resim Editoru/" & Resim Editoru::Dosya No ); GetRepetition ( Butonlar::
AlanAdlari; 33); GetRepetition ( Butonlar::AlanAdlari; 34))
/*"cmd /c md " & Substitute ( Quote($res2 & "/" & AYS::KayitNo); GetRepetition ( Butonlar::AlanAdlari; 33);
GetRepetition ( Butonlar::AlanAdlari; 34))*/ ]
Pause/Resume Script [ Duration (seconds): ,01 ]
Set Variable [ $say1 ; Value:0 ]
Set Variable [ $say ; Value:$say1 ]
Set Variable [ $y ; Value:"filewin:/C:/Resim Editoru/" & Resim Editoru::Dosya No & "/" & Resim Editoru::Dosya No & "_" &
$say&".jpg" ]
Export Field Contents [ Resim Editoru::image ; “$y” ]
If [ Get(LastError)=101 ]
End If
Pause/Resume Script [ Duration (seconds): ,01 ]
Go to Record/Request/Page
[ Next; Exit after last ]
Set Variable [ $say1 ; Value:$say+1 ]
Set Variable [ $dno1 ; Value:Resim Editoru::Dosya No ]
End If
End Loop

Comments

Teşekkürler Mehmet Bey.