Date: Sun, 08 Jan 1995 06:02:45 PST To: macgifts@mac.archive.umich.edu From: Peter J Giotta Subject: File sunmission Elementary Applescript application that locks or unlocks all files in a chosen folder. Mainly a learning exercise for beginning scripters. Illustrates use of subroutines and error trapping. Requires scriptable Finder (and Applescript). (This file must be converted with BinHex 4.0) :#Qa[BfYeEQa[BfX!8dP84&0*9#%!N!3E,`#3"'IV8dP8)3!"!!!E,h*-BA8#eJ# 3!aB!A`d!#da[BfX[9@jXEf0V)&4PFh4PC!#3$9pa!*!Drj!%39"36'&`E(3K!+X cpb'V0!ZK!!!dG!#3"KUT!*!%3dm!N!K+1!h!Kkrmm"F!8cE)NcYDfHI%c+pcd-F kl@h8kA8jX8'qHE,c1Y-ipHUbXe0ZPfHGRHlhh-EfXlapAXGZQqLJI30l,a[NfhX TYr2bXM1kcB(ED(KJ!EV10XY0EL((&lD0*S&(%!!*1MD"!!6!JChC%6%4R@N6pFI 25i50M#T%%+d4)52MMil[Pil[-$c@KH(L4GP6+XTK'["2++U+6KSlZDZ6aRRr%h( Lh6&k4lAV'4!eqRlLH'Sd[VkI1lkV"6A),("meqLic!FFh`qeVerBmDh81ITpl2L ZdlkXhcLq96T(GTlMZdV(CFr4VJk&1LjRZK2(MZm+afF)M%XG9qU*+JQH,K(q-l3 r'+DNpA1dYD(hqZlje5-QKi09e4A"D'PC*"JTVLUVM!D,+L[,biU,SQAKLXcJXR" eF(&e*"UFAeB&Uk`L%LdU,`m13il3*#GI&Q#ecrehQq$ec4T9&#QC-Qa5X(p@rac pYd"88KSU`f53!%pANK4m[#L@-FQJ*%3fSf3&`bKhQT[%TK5'3Aj+S9ENRa#+KUU #Sm[#d@J4XZ&,aTp+c48-,qNa-KN'NTV8LGS02R2`@6PCJ`EN&SFA9eC(3P9,3PP `ZIQEilI)Vf"iq4Y)-3cN9p5CdLXA1(Kc3f@4V1+LFR4$0*39+UPf!IMaYk!d"F- $m!m+-!c%"[!RpmmHR(h13$GG'[k@e%V"3$V03b6Ib0pC[Y(prAHGSKAqeY4'`6$ +R1E`d@R89X(`MBfP2#TIbeHQ(+AdV+,3NQJB$9a4A9i12N,dDXV!BrPDdm4AZY( DkXck0C-[j3[jQb9I8[-FDSCD9N9ePLqdm6H0[JhqGT5ZB(J&qPcqbJ+1BrQV6T' 1rh4UVf!i"8T#FhDJMJT'$#C*[A`Q4bbT2`(c-fdFd4AT''rpiG6*3*FDk,3ZZYe L*@iTRe+3!,UD-01c)XXLiC,bm)+Lb#+AiI&dL495'22F`P)hkUjJa2`qN!"I$`8 $4@bZZC0kbLH+HK)[GVQ8H[QT&r@P(RSX#)DVJYA1C"$89$HrV$`8!I%&Li,c`q8 PSDUKZLBXS(a&2BJePB2(j,!TKbR*V!T&JiUkZe"pD)IHmV'LhLj8lHrMTcjd&[A V25*FA9i5M"BY#J(DdP,!$*E0"a1(UK#!Ih&4a6)AI9BI&c)QK@6U5Mij4"R8ei5 CC-k,9N38h-"V)YUL6$QS+*0i(2"UIcq$qL&p&Q8V'%iCNY'M1Al+3FBNAA'AME, apkFc&3`R5`TSp#`r5JA@FLFP0mqCq!I)4`T6KC-(M%X$r643SjPBA4CeXXK(ZQ! (0GDq+0J"'L6l6CK*CXRmmULL3@jZcDU$r66iH1jNfDpKGX&r0TfMB"Lkd9Z"K-k P(bJB4SAM2if'd(N+"[H([c@G*KqDmU(ZLG)b3$c2M@Y&VH8$8cl3[4R4d(rJpU` QTRf@l+1f1G5mXUbiZ$4F9KabA#-FPd(RS!6RbrZ+cUHN'FLA$S)D5VNd61S8(-C jD1Kd%0e`'U&J1,$5kA6CDmRHlf%T'Z(@(Ua*HAl+1pk&#ZJFfZa-hH8pf51l,AR 2JD,lcb%$ec9+Z`cCSeYYYfkABIK(dLJ&`kP,6l$-D"UMB$Kek8Qpj&e,hQfXbaL h,Vh!9Q2p00EYq`3rM-)rMLj3-*`5C9*rH8IHPPf@[%2YFmKb5G-Y8X`C+p2EZNb l0)J,m&p)ia8-Td`$d'6j9+"J1'8D3!2P,8[HDLa6J9ZQJ5#'#AkDm#hYd(Mm%q9 0441*,d5@)@MJ0eMHd!9i8e05RIDmVe1eahm469)`[1(Q,r)kbepdRYGeLNRi*p- 8"F-CEP,"Te0TQS,K$6H[bD[bLL@[0AETUaVc+lUlTm8RR@HTd+"#`*Y1-a3-`e8 +(U@C0%["F0)Nd50dX8%A)meXQU0J1%bB"#"cU8JE+&`cq#fD*cX9cA-(*[MPCGP "aDDm("ZB)Y(jj8APC4&A%kJK24mb8S#HLd(2fkP%AM*K*TQ99BXV&C8N"S@3!*p #Q"N$D,p`4)mUlK3%&YC8rC,ZPCfkY%8*@Rh4NKHGGX!`ifCcA+-FPd&cN!"k2Le 3-*akY3"c[d#PXXf%QCkeZ#a5(#N[MZSDk9S4"ZI`[)@BUNTGjQq"HEQ-&LSBI#E mD4J3RcIPH942pjkLK@iT-)R,FjBmpjp5b$EGj3[`,k*b"F2TVlDJp-98S@!i%d4 E82UcTM`,I*'3!-CAN5Me-jBm3keb+!@Jd&p4ah%K(!CT6JN6QJPULjiH1Q,#ZS5 UC+YX8A#!rR4-N!!LK+%NiN,U5*eNXb@E[i1N+1U1GCfSLp3D8U[EVXUPLZiBXkS 0dMV%%PUUB$LYdKeFILNY8c!F`MS$iqM6mT3mDFR6$XD+X%YAF-6)kLP09NpUD-X )(DSaR'(38J#l6*j3G*R,UhfSVcc1mVK1pS3fYQSLf+,EU4,rjE4F`A$D+3FMj"9 dTB,KN!"+$ZD'ahcbQ)CiCD+6(VAN88V(6&SFVUk)ZP9aI@jKD$P`VD!D"F0Ak)` +09$((U'9LUjbQb!2N!#[0ZKU*,U'IUKJ12b54q2PBET@(M*KaM55NR"a3L-*N!$ Q4NAAZNf6KpRR1PUPB$J&'deMj8&6(N6rPbfY+&'dbZ@&2"SY$jMb3)`A$(P)Prq (q+qAqa9GllCp2SVb)rUah#Ih+ML-mk%@j0-8ZS&qSQ!iL2-aDIb8EP3`('36DC, FBmSp'R'NI*'L'pfiI-`fGjYbYmG%2h%V0)NQbefQh%@TeVa`H%QdUKUa2hDESK# pZpU!$Q63cqMR#SE6PB@Ji9r363U'!k'3!+E,RDEFq5f%Qpcbk(FcV9%`R$,-SYR bCe2ql*9RM4XhR@E*(DEF%@m)qMP!rj*Z86!Fd(0"XEqLY3U'-G2aPp'[k6F+KX- $Q'VN6jEmUC%(&2h'RAU+-!lm9MBTqUhZFYCqf8MVj)mQc(5)HP@KiSTS5%Y$EJ8 $-CPS(I*$QL[#N!"cUra"dDeZNE9r2@e3-*b'Q)HCk(C6ENFaLc&q+0VJeUJ)XpC YPYcf(8@cr%'6)H4QPNfDi0BQ#1lhP[bqLH"Z3EImMRk[B$Lm98l9mMZk66DB-'- 9,3p(%K9eY6e&YlN9,-G8F6ZKSVHl&3c6*E,HP28HErh"EG0b#XZYTYcUmGB'c9Z rarp(@DF)aCZ%,"JM$&QRUhQIVZDpfR-rP(-`EV-FBXM0LPDke4e-CmY[,IRYb8' S"XJf%MTeSe[AUm$&[k%rbDp0Q+IUqLFAhP83bYGDXVCaM[ZeVZ!Qr(I)Va6GiH+ mMKk4@qM2"&UlT8Nir,-V&&k(aVZ,lPB`B[jeG!q"YHq*qpI5I34Q[brZAd-2d)- +4Xar%ce%$bXB-IpU$2#2+KJar`hd'$fZB$MU)'B-HN*qUHJ*YeqerdNr2BPa[PP H3Il)VUlUpd[GDBqlVE!+Jm3D8pCi3Z1MEY`0G+2FE-V0AYc$,X69S2HR"#crP!Y 4qjrfdp03GPY-pT6'L["5D+FDkddDki-ZTT[SC[Q&*EpS)Z2lACaV`1LeJZQLeX@ TrC[pY"QUR!TU*548iNUC,XbIDjMhZM$AJX9rCXV2[0,Gl8*D"m,G)UX9EA%KDIp @2ff&l*F'0GEC@(#C)-X&Y9VV&AG#cEL4RL(-kcGkkZJclYKm1`MP1B1H3lVRjDH +RRH"h3jHfZDREATVS%$V8b#kRfSXc`,,6qJ&HY'%'4FZAh#6hNPhb3dqZB%iQ9j %RKr65r)M%bEbP%8`p,rNjVQAlT2VIA)pmXL20,*IkG,25LM2fp0S1pHPZX1SMYJ ,J3Cf9I+SXJS80d!I(aY%(rpM(AA)VARh5'i04$0b2ENeHhBedr1VSehKpBMCcDR $cIla`dD!aPXkSkd$E+A1dhamdD94#0aR$rbI4BhE&feG2GcG1SQMEecVq,m[qp# QXLH$Sr,c,Y+9L#fLY2aA%M9T@53D@KadH9ch3j*'VcF![%+Gqff1Ff1&DBkZh9J d[p,Y)kh$RS2jXaSMkMU1M4(I2p0C(HN9#Bk)LAMrHUHDT*Q6qrpeJUkm362`lk# A&3aR1RQ-RTC9FTeFDmUUf(3b,a4b0MHdkUArmR$&!TEV0'eFUb'mM(qR30MBkDS jYI5XA#0AbdT,VMQa@h'e0PCUiiFkm46mVp#V#SBRG9iP05aADH)%K4Md+[lAk(8 &`dZa3UjN@D&6A+P6[)lr,r5'JZ'SSAiSEfr5@`U'TiCH)F[PFNZZq$q#m(*GQXX e&Ek98%4h'E3,%0qQGa3-6a&pPhBV'*iLZXHJ28Mc(Ze9-$a&Y)iJe0FP&0&pFTQ LI3P&G*PF5YJ$@0DNL'+U6DB2`1G,k80CBX+-+k)I*K64rAlDrap&G)RZPmYdDGp 2c2l9PP3h+U*lNIS!BDAL3%)4MG*"LCJ`6bQL"a1+k#(#RXQKK#*DC8U9TiKqR&" %,l(NNXC*'JeKd%Ii$a0@C!iR&0&2kBL#i5QLPDC8HMV8N85T`jD%6`S"R`$@Ce5 [B(L+k&rTFkQ3!-8+$Nm4r4YpS@"iLQLj*H8R&G%[%SVS)N0!%BSq6bLLAaVd*6" r49mV'*iLHT6qVQ"iLZK#+C055aDH9%6"GBD8DQKBbI)8dDm"l"Z"L[e03K'Gci* i3aCS!fKC`"N'eH2r"c8S'*iLHSaX"F064%-q#@Q)GU+65L`TD4+-'S",'%R&8d5 CTCJ0aE&Y1LLLl$2B4`BRF62&53P&G"iQdL*6jTe54$(FaK946Z&8a5N*4A5Z+A2 MbK+R*K641DE-mC5P)T5IXF,(c@@fiZDH)XSQ@h+ac&*XHSSSqeNTaJTG6"(P&Tb QZ%9#%CeTbXbij-KT#89dKLNciNc%@#5-+k,66CPqA-jNbe0%1@"`!'9TbDd8BrX ZTSKbDfkMZ(9#%5ddT6!'B6kfr44M)bkQL2*Th&EaD3P&G*STdlcbY%dSSP00Q4T [#-Bq(lIMG-ABU)XTSR`kYeH-pEQB)XSGZ+2L$JP&G)SP8dk*-0c48d5jNda@h#Q KL%lLcR+4+C01+D,Ff90%ZBY-9)c9UjJLbN(ZUMLB8%3RQ$)KVSKbei3L@Q"*`8P &G+)Q`iXd'8i'`A(l"-(P@j*rLZ!BbiAFMEXVlTC34-Ic'A+K+H02+BH-9EqB)XS pZ+GLl1R&&G%,6,R!ibfX!-B9dA'QM20i#i4Z-*EiZ*H-9GcVRiSSCJC$,YE9R+8 pXl8L@Z`TSQ`N&0%aPScjhd%)[@C`EqkMZ(G#%4h0'6,+P0&0GFe)++)M,4RC1-H 0dKLa0mKp*8maG[$LLZJ)cZ4qTS`iTBKbTUH)FKCR+iE%j[VAF3lh9j`6pkrP-rN XKD%cjPr$!hLJiJ&arddmL!FV(K6hVqDcq4c&f1Pcr6I`ZI`$aCLGBiSS$j(KLV( 6&e0%q6`rRrF[4A5ilV6B'Tp@4)HC-L`Z(r)j#88dej4F,fk`TiMbq6*8-DD1Q#, +3rdmp0q+k�G@"#%6hIN[1Eb2JX6a(PA$P2FDkRL2)`2`r6mQ9X[I5%*SVK9i' -2%edL#P$[1*K0c1QLI*`3EpJf6#QLI))2iriAK2p!43*lJFpiec1ij'QR"[A4$R 2dd4jP-(BlH24JXE%YQ"-%q8aIKjcA"-p4f-C#5aRmeJ'@jiGed3C`dCF%ahXNm( 31S(0*i2i!KPSbU#i*XSA*$64!6l"qQLb3'%c"*UMSYhre%30HJF&ZC!!abZ-eTj DGTDF+Ie01DY*,B2mB3Jih@#X!R+qj#M16kKPfC)Pr5c*2U'@BBAGN!"qfXM4irS E5&c!%a3A*+5`61R,NUPEUUr'0J(r4,j)mF4%LJcT``+qCZQM8f#VN!!R-DBa,"& UY5a!VAN+6e8m*D'@pCCHdY15hLH&"m`GK[68[$!eVT*ei@N'6`1d3TkZZ$#q)Ge -HXJCdYf8(Nh0J4X!KR6AeF(')FrJQBTRZ"#5X5AEM@IaaDCdDjS-CVP-""f-C`Y Q`pQH,XCcr$`(-NMhic5D@*rq*cPeMI%iMLXNmm9JLL$2C@J43BqGjVVXK(e,RQI `2"5V@,SS,[BfMVR%cbA(fDQ,aP)%,*dja200kHba8mKE0CC12ZQNf3Q,Kp+4&dJ (8cTkl,6!cD-eX[BqD3mmdN'hbNcmT9bQZ04YP6B3[dkAG'PRbZP0hCDZkp*13bM $[e!J&badHlmpj+V6T)fdYZ5d%e684KZYYG&@*mEH+5rLFSAZphLQPE4NDDAl"fU k`3MMa9bK8$`[48$5@!)k4CT18B%r,#d8CJX[K4)rLp)Tr"SY6M,JCJ'8``#dp"5 aZ*)[i5U1F*5V@5c3&eH#C8aT,UQ5)XQQQ)hR"LaTIVbXPU4q[aeV58U69Qa*mRI Xf))[SC5!0+1fNL3qAX*,a6$K2R8$!EX&KQ"p)X!3D31m&-@($-A(5p95`)8C#d( bD5fi5L1%"'Q,EI1P[-`qCX&p[&pYq!dE0bN#'2rCEV$XKZmhP`1m$-[S[Har8"r l'dF$('MrR3EE4qf[lDrX,bR2rS,'fRqM#5C5Z)1IL83Z*CT)j4+Dcci+Mree)dZ EpPHaEAF6Z0apH![S[Zp"S$l9JbhYBc5LER12I6dqq($rJF9,2MTi#1Fd#Plk*(2 N23AV2iAkDZU@D6'G1Urr,1i06+I!qL))djdST64Y1[P+d9(Shi$p18fcrfVAmf9 mZIfC"IHrkf,BqX5%ADrEkc*+XSrBRpUIf)FYqmMh`SGPIrUGjQ,CRc41lCCp1#l K"2KbD-lElBmTC"qb$pSIf3IXrID(pJIf2[YpZmlHDlp(6pTlX%+eQEEDZfQErDl pM[ff[FYqbhl64&ThBF#d$c8Z'TMf`CJdEpSI03VmTUd[*QK*bV,hIdH$TUd2(L` +&`162R'JK6R6hYFSpjRfqc(jbl6V'X9IdpiE8c00P2`rST5*CSLce@k2VGk0XC9 T[a-EX(cffj4XfVZDH1ZYaS(+XYrmPURYcqLjZPEd8-ElqmVpj008p''rKAjU9T! !F5"cj,d&'aBZ!IHS2Z#LP!+AJ3S@MVb[S"eGX'(Q`82)D5iUaC85C$ZFLEaqRII 6c"$Ndc0#MQY8`Hmf(0+KCQINMHGT8G"@BjPC-&ff&Uah!MkE3i%HqJIIpIJGV&B aEf[mEBVSY%9,LUMYSL*UKcrG6kG2+FK!i[D`qP)(m#+)+Q#r3@rCIl&Ijq9mKIf D"AI6$Sf0-`@'M6-&!9i1ERc9IXAHDEpXfDmfFZ-V*lPaCa-h[TcJaLXFEYa"qqh YpN[fLrB,pMElHIXjqeRl'AZV[FAHc1ICY6b8Kr%)qfNHBcpP2fNrB6pZ2fBrDL* YR"Zh0h(M5aih[YM%M5pih,MY*$IUN`!Z0clRFH1c6GciM-H0@jZiFB[(MCZEZ,( @imDR2@jmbZ2'*ceZI%*ciq00h2KB%cFqHS)EArY["Y`irlmZF'1ejXC(H+VpX2d 3AmNVl!FYqj(r9FcXKc8RBJdr`0KB#r!+DQir`(2XqlR%[Xqqell([YZqbl3ID1` NdllIDp6l[%Dpef[8Hh5MhYhBU*CpeiP@I*!!JVUJ92$q[Jm@,IP`dIk&"h$"bLN b18916D-Lh0k#m+QqHHqp1i&MKVkk%NNF)SS%3dY#9HieS11RL,+#dmT`SNKIm!* GPj8(*diC1cN)R3hL!eE6+V*8[q0[`VM48(b`[H9FTS,JBi,2Y$)@Ie#XX"lP2Re *,%Lh$B88[`N61*Dh)"EP6j@MfEiPP1h,'E,KcMq1kYQPhaJGN60NikhD'mb5SrI @,JKQqi*$LLXVSX115%1h-4[Zl,DUCjGaZI06apdP$3Z-*4c`pFb5,r*RjeIR6m@ UU(rkMGP$mJXQM`ADQSeGHXm*qZHR9[U'dUCYFhYRqcIp2$JjQ2S+e[UljP*kc0F 4[Sj6EXaZ%jbcI[Ej0C-,HPG)3`*4rQ-bH4`Yb0$)LLV,SpP$)X@9dFUZ'c-dZJ@ Y%1I2(U*V@NNE-cCp89L!M0%i"X4ee&Per+L,4Q+C!UpQl)KmL+H1Q1mHR+18B4- Qk18[akdM$!`*5EL'GQN3Cpm#a!BN5L1*NR$5,$@9+G#'DS,G+$Gh'!AVDfS#ee0 ZkV886,U'JNBZ##Y)!50!JD48#U3Q86"J8'k3!+NQelL+DT*@-UAQ!FHB*%SY6+@ N%QKe@i!6+`E1F+,aqf#Ri$$)#Ybj`F%YaP8`(mkATH"ZQMkieJ8d0e5NGS9)(6C bkr%IaGq!hdD-)0C'MJEN1TU#H"rbi$jE,H`Dq)&"ifM!Ij452USRheEJC1"eKU2 i(M,f$dqmHNdJLCIfEB)de!NVFSPNfrFH4j!!4[lYaa28drBGF-B6k($Nma,%`Z- *R(!RhNfJ`irYm4)iiAYF!$U"#-*hehS)l0d0#2Ili`Q1EGq*m&S[3F2fY"d)*cm Zc1N%D95l(H(N*[6[T(Sr(T',%(9%!KhZa#-F+A9iV41[bk`6)(b([MLR`jfU)(a l,0`T'F+ham2T@,d1VrA#pc5F#0qpmhLiVZ$aF&h"[3f*F%UVh9QIYYd,GlHA'lc `@**%H,cV[*I,05eb@`Dl"SDRlNqkCHAUBEPGJpd#HHQVHJ4k"M[PBN@a*Uff5ph 3qK9(`6ZfB-YiU0fPSF[4SI9$kcV91N5Lrc3ANk#RY0HIjS#XVpfTqc,0lhFi3HT h1Q4aE1maKb51THh@T8[6EBBHGIT[4cebBFYq,e)$eBi'RIVB6XG0$6XG0dM)UfQ XPKAZH82Re'(X(+*5rq9J,Y1hrZ+2X9'4h2TkH-c#1[+"jI92@$lS5dQmfm$D+N6 p23Bfd@,6acq[Ae,GZCRY3-c8%Eid29I"Ya)b#YD5kDGk$S+pG[,)`XP)r)G)G*N q2I$8L)+mNI#r1$`r6imdqf,ccj(Br2101re`FPPa1Hj*FUZbiSMfGiDYr4QPmd[ d"[qJ5@0RM)3pI0U%-)3GE0rJ,1B%AD5k84J8R$-!bq'l9-IT1X#h2+P8qrTZKfp 9kqZeVrm%UKXlfBh,c%!F1%'`)C+C"pmeq[aP'mUF#eqPLk-ImSfDkq,V9`RIV&K F0Ab&cKP3kPF$hf6APh80I"0FAmiUq%TL2Pf$dN1e6Jff`$I'29h3IaGmfea-r3r !Gm2r"`!!$UJ!!!: