FilemakerTurk, AYS Bilişim ve Beyaz.net tarafından desteklenmektedir.
Filemakerturk.com a Hoş geldiniz. FilemakerTÜRK bir yardımlaşma portalidir. Sorularınızı yazarken teknik anlamda güçlük çekiyorsanız. Telefonda bize anlatın sizin yerinize siteye biz yazalım 0532 231 07 27 Mehmet KAYA.
Filemaker Lisans İhtiyacınız için FilemakerTürk Yönetimi ile iletişime geçin
 
Alakalı Siteler:

AYS Bilişim


Cabitaş



Göksel GÖKÇE


Briandunning
 

Attachment-Create Folder vs.

+1 oy
106 kez görüntülendi

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

3, Mayıs, 2016 Scripts kategorisinde oserguvan (11,850 puan) tarafından soruldu
3, Mayıs, 2016 oserguvan tarafından düzenlendi

2 Cevaplar

+1 oy

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 )  

 

3, Mayıs, 2016 Şemsi Saracoğlu (51,070 puan) tarafından cevaplandı
Ş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..
0 oy

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

3, Mayıs, 2016 Mehmet KAYA (88,660 puan) tarafından cevaplandı
Teşekkürler Mehmet Bey.
...