Files.dir.This never fails

[Robert]

I'm interested!

The coding below contains the Mod & Docu files for two modules: CasketShlwapiDll & CasketShlwapiUtils.

The routine you want, I suspect, is "IF CasketShlwapiUtils.IsDirectory("D:\Fred\Bert\Harry", FALSE) THEN ...".

This returns TRUE if "D:\Fred\Bert\Harry" exists, and it is a directory rather than a non-directory file.

The Docu is more complicated than one would like because it has to cover the possibilities that:
1 - "D:\Fred\Bert\Harry" is a non-directory file.
2 - "D:\BlackBox\BlackBox.exe" IS a directory file !!!.

Code: Select all

StdCoder.Decode ..,1 ..q0....7eCTdENPM5vO3uPlvI9fQhPNZv95OMbvO99RT7FTvMfv9b
 8ONvR19QH9FN9PRtP7vMGIRy0.....geoBhgRiiwhYRA....qorGqLCJom4Y6.......f0.c1.
 ...
 1Ak...ul....58FTuPE,5TWyqlKrqKKrGrtumdGLmGorCquU2hgnRAXDFTvMUn7FTvMf1G2sET
 fPdPMHfP9fQbf9hOO9vR7ONbvMoedhgrRiioedFWUkTeoxhmhgnpZHZijJC7ONbvM0.,.S.Sz3
 E.0k,5TWyql.bnayKmKKqGomC5XzET1.PuP.MHT9N9ntumaU2,CJuyKtQC98P9PP7ONbXmb.2.
 gc9k2kSi.,E.cUGpmWLuOpoKqvCbHZiYpedhA704TeKKw.bHfEWUmL.6..D.Dj0E.CcIhgsNHT
 9N9ntQ8qorG4704D.CbB,708T1U.knX.T.zC02U..Hv.cU.ktAcoZimBhWhiohgnZcZRCY.2.Q
 32U.EDU.U,U.AcmBhVZB,S45.0ES9.I,AU0KyB.,Ub.,UOU.2.AU.Ue64VT.E.0t.UUB.8E,9z
 4U.EU6.EBU.U,E.I3k.E6V.Q,AUjU0Q,AUWU0Y,AUCU1Ikmj,6.YI2.I12U.U,2.I3E.6.t3w,
 M7c.7.1cZc.L.S,8E4UCU1w,AU04.8E0UMV0Q,s5c.7.1s3E4UYV1200k.4H.E0UH.B,1s4E4U
 2U2Ikmj,2U.EQE.EGE.kzF.0kVyqu8roKKt0GbKqvYjyC.3.V22.2pdD.Hwv1E,5zdGLmmoouq
 pCLLmoouqpGomC5C.2.O40E.6H6.AU2VHZiYRchZgnpZD3iZph0Jijxinhgm3ZbQcVRifhgoxZ
 2xhXhijQcj3ithZGBhb3hoxYg2Yb2Z1BgnRBamVyKsa5Ud6,1.76.2Uc0Etv.2.4,0E.606..K
 E,9z4U.kJU.EDU.U,2.Acm,l6w1.0E6,1.BcUZT16.,Ux2.2.G00.A.sE..6.2UE0O0OE.0U.o
 tKL0DSy1E,5DCJu4qq0rtumdcJ..2..6D6.8E,wqWTimL.2hvQ,vu.wqgYknD.YquQ,Ps.hkUG
 KmKKm0Gc4KuWqYCLWaKtKqlGrrAjLd,1.zzIF9PjPMVPO78PNP1P6F9eFHeHH8JHuHR865OMb1
 b8ONvR.,tK3tQF9PELGKqmKFqpRqk4akYqIcyIdGJESpouqU0roin4qUEJeDRc3ZcJJe33YEBg
 odFH9P9PFlPOb9RbvJ,78VPMd9Op76jOOR1R7IdfQjuIdeIHdC,tJH1IcDxdARbBAVEJ8.U4dP
 7vHR9I19RSJEWGnaKqKKR0mf.03kR0Gf4Id0mhuqomqi0GmaKtCLR0mfa4.kI.EV...MG.UU2Z
 kVu.Ec..U0,qkWuIW0mV4qt.U2FLqk4qEc8rrOroGqm2YV3YqhgmBjU2iVJioBhVZhUAhiZiZJ
 iaBgXhgUYij3Yn3hgxCoZYFL6FT96RvPd96ZPNNPS,tPR96d9O9965vPPPP9fP2YVJgjhio3Ym
 hgohimphdphb3YLBhi,deIfOFr7619PjPMnvQ,7R9vQd96d9O9HtKqtKLqGrt0mkSqkaKrCbUw
 ed,OoUmodKILqk4qUGx7.YCBGqg6.uqkqqmeHES3Ec.I5.82qEr4qqKKEqqkaLE8qm0mk0Gs4K
 u2Ycggb3YWYcuYf,BgVxZ0JgWZf1RgXJYUwhm3YWYcu..YfWAZUwhm3YV3YahigZhUogdZB,dP
 1PP2ZZxA..s9V8OT9RTf9VfPDf6Hd9PMGB96d9OHvQ,7Q19Rwhm3YaBhglmWroC5,NOd96Z1Qi
 Uwed,GJd69,tPd9O9fQjPObPN,NOd96..cF...EXoBMMw8Uu.Ec.i1....UdI5.82YecBhndQT
 PRaKrKKE4KuGrmqKsGrt0GuyKEOqouKm0mkuKEummWrm0GnaKqoZBocjJiUggsBgh3ighgg2Yn
 hgo3YaBB0GuyabYhVZiZ3jiggst7,7RTHnUdpgUYhVZiZ,0moCLE4Kv4qomqk8KqKKEyKrAjjh
 im3YnBjnZiZhhigVBAda3YaxhpphYZZUAho32..Y82YVphY3YkhioRiUYichABPR6Q19RFfP11
 HfP,dNHXg2Yj,...U4,6JFPMRvOb96dvP0GVKKtuKo4KtGKEGJtKquGrvKqouKEWGlKKtu42co
 JiZhCELuqmGrI0GnyKt0Gs8rrObYBhixgUYicBB0LtyqlKKmKLtKKLqk4q...H0Z1.ER.6I..E
 VU7pgUYC9Hs44,7Q1199SHXn,.wdGZcU2ZLBhi,BOGNOFzOEd8JZOG3OJdOFz8FHeI9uEduHZO
 KH76FNAhN8N76T1..UL,ME.8kI9k44ouGLoyKt0GR0GE8pr8qm8Lu0GW0mV4qq0LlKKqmq4CJu
 4qq2YUIbU2Y0gV0CyIhACoruKu8rrmKqKKtCLLCJuQcoJigZcZRiX3Ul1.UiQcjpho,YcZRiX3
 .5011Z1cQ...sQR,.G20EtH.,6.636.M00U.2..AU0CyIVGhighgmRiiQ88pum470,Mwd0UnpZ
 GhighA70,cw5.,6.QJw.QI2U.sUgA.bf9bWHNSNPN7ONbH.4D.o3aLq.,cwD.0.E2EhE.0.32.
 oZ,ZioJCMNG259.G.0..676.16.6.6E3PLE.SoA5UTyB4.4.0E.cUZT1E..UYU..1.Cor.UUbl
 ,2.2UEC.6..mEw716HpeLmsVLe0Cy2Vh,RtET1.UG.,..W.0.A,,UcRgn7Crsc0MyfU.az86uB
 9OWPDW74i....
 1Ak...NX,...58FTuPE,5TWyqlKrqKKrGrtumdGLmGorCquU2hgnRAXDFTvMUn7FTvMf1G2sET
 fPdPMHfP9fQbf9hOO9vR7ONbvMoedhgrRiioedFWUkTeoxhmhgnpZHZijJC7ONbvM0.,.S.OJA
 E.QklbcjRAktgdjZgZZh2hgnlsDor.kay4.qorGqmQiig76FUHZijJCbnWmqmqKWKqtcw7.,.7
 x3A,YnLE.0E.cUGpmWLuOpoKqvCbHZiYpedhA704TeKKw.bHfEWUmL.6..D.Bu36.,sUGpmWbB
 xhYhAbndMHT9NY6Mw.sQq2Y6cwB.0.zR3w,wqJE.0E.kEW.86.QC18RdfQHfMf9R9vQ7ONb17.
 ,.L,,6.o16.M.kU8ro4Kq2sNQ.6.th.E4k.8Mtr.2.S02.e,2.AU.Ue64VT.E.0t.UnJ.8E,9z
 4U.ELU.EBU.kzV.I3E,E6,,.V923EAPG,IklTeoZgABhiRhnpZABhiRh2hgnV1.,UZ,,U9,,k.
 C2CJuGqVqKmCLLyIsKKr8ItyqvCrm8LISmV4qtiqmGrLGorCquymdWKqSrk0roGIqmqHmmHWmV
 4qti4HtIF9Pj1kIIUEE.8.0Es.cwR.0.h.0.F.,.k.q0CE,9z4E.0.h,0.p.0.4E.EJ.1.V20E
 2k.W0CE0k.C7GE,9z4U.EHV.EBU.U,2.I3E.6.t32,AUX3.Ck1k.G.C.cLs.H.1c8k1Ul2.CE5
 k.i,Ck1k.OI.6,T.U1Y.AUeU2I,AU4W1.C.Ck,k.q04E.6.,c8fP3d8mBE,5TeEdKLqKKtCLLC
 JuIepZBGomCrl0ks,ktuGdKLqKa2V.IS6.,Uz4.SU.sd6.,k,,UnpZHldGrwmqmGomCb.AS.c9
 Ajg,0EtT.2.U6USV.2.86.c918R..,E0E...F,,M.E.EU8qiU.wcNC.zwPA.A.EUSrBk.q.CE0
 k.m.KE,9z4E.0.ZA.6.Y22.M.,6.QcjhimBhZJiUodZxCtfj1.0E6,p,1c9M,h.1M.M,X.1.Kk
 BU3U12,AUk2.,M,N.161M,F.1c2s.1.16A2U1Q.M8E.6.,c8.8z5E.0.b1D.n00U1KyF.,.60s
 D6.,U0KyH.,..G00k.U.U.JAE.S2.M.6.,U,216.6.J,.E.sb1U5Ut,,k,V.6..F.zW.2U.E,,
 0..Y62U0U.2.26U.w6.1.1.76.,eT9UtjW.2crFUnKSE.I.6..AU8U2Q,AUFV1Y.61s.F.1cIs
 .7.u.GE7k.8.KEq0E.c9E66.K..a,Gk00.1M.M,R.1.w,0U0U2.1cDE5k.G4CE2k.m.C.AUGV1
 .y.Gk6U0U3YBc9E66.K.CE0UNU2A,AU,U3o,A.k5k.8.Gk0k.m1Gk5UxU1.1M0.M1.sGc,3gwP
 .,6.252.Y22.wT2U.Q6..I.,E6,,.FRu1k2zy.Ikmr,2U.EnU.EaE.M.70b0...Uj.Cor0rwqG
 daqnWKuSGK0mHWmV.HtET9Qn1kIoU,U42.2J..0.X.,6.2,2..DcUZT1E.6D6.c5E.k.0.4ItU
 M2y,.,6YU,U3o2gU.E.uQf9V5Dz,cUXzIGqdAgh3inpZH7Nh0.5.0..AH6.3c,utUzyfX.WqRi
 USR.OQ,GzfT.CmRiU0KUHME79N99N,t7VOMd9O98SHvQdvQZt7qp.GncO.aPRiUcb.,ML1sVTO
 ,chpt04J0sXdtWB6,6hpt0Oo,MNly.zN.Mlnt0Ku,yV,ZA..wYUoYUwY1xhkdFH9P9v7Kk.kzD
 Jo.f8RH9PbP1P6F9eFHeHH8JHuHR865OMb1b8ONvR.QbBgV7AdB3eDJeI3YABhWpchZimRivgV
 B6IZuH5OF7OJZOF,tET9Qn10GIaIb0mt8rluokqqmmGEGqtGLb4qqKKR0mU8Jd4og0mbOIECIY
 4IdiHE8quaKqGKc4KuWKK0mkmKqyqvyIvKKtSLtaKuKKR0GVyobmoW4IbaGR0GV.in4aEc83.8
 rm4KuKKWaKtKqlGrrAjU2Z7Fs4KuWKR0mU83.M8p76....2eVZic3YcAdC,e1..rFu8roqKe4q
 omKR0GVy2EEOKR0GaaKl.RdFP9RiHEyoeGJECKrGLR0mYuIeKoXKIdamRqk203.aotGoo8rm.2
 iVZC.....kI.kRq..6I19ROoomqmKIwaqt66F7Q1XCBgh,.....a0.i1..o6.IaU2Z7p7EKohV
 hhZ,.Ud..qkWuIW0mV4qt..ELqk4qEc8rrOroGqmCLECrrqqm0GmaqtCKE8rmmqkGrmGKEKLua
 KqaKuaqmCLK0mtyqqsPB96j9OHvMF96fvQ9963sE1vQL1.7W0oZBgVBQeZpiZJiVZhUIijhioB
 hihgn3YcBgqhgUAgi3Ydphkhio3YkBgmBghhgohgm3YoJid,uGESJoKKr0GuWqoCLEaqt0Ge8p
 eKIK0GuWqm0mouKsK5hPMZPO8KqKKE0rkGbUAhn3YdphohgmphVZhgBjUYimhiiRgVZiZZA19R
 ,7RFXgBgnZiUwYjwYUwhm3YbYfb2YX3hVJiVRgodQr76H9R,NObnkCrtKrqKKm0GuWqkGLEMNC
 ru8qtKqsKrmuKu0GuKKwGLE8rmOqm8rt0GuyKE4KEuqruqKGqo85MSOqomqm0Gr4qqoZBgVB2e
 Gx7cIQcjNSUcUn,Y3.e1MK.Q531UgMM...kI.k4Cor0roKqt0GuWqmogdVnJiX,,7RT967vQd1
 u0BuPZ9699S1PPV9P9fC,d65eCTNE1PMTdE3fMTtE5vMTNERPOPPMNf97vPDf6,NPHvNF9R,dM
 9965vPVPOGKEwhUIY2Jbj2fs3jjAftBjjYcjhhZRioBhXpZkhgoJYigVBAda3YWhid,22Y8.uK
 E4KraLEqqoCrtaKrSKEGqo8rmUdhgn3Yd767vQd10GIaqm0GFGIRUW2YVphY3YWYcu.T,3N8,N
 MZPN,tMZPN1XYpZBgV7lkmKq..,NOb96EE4KrabZ3jdRCHfPD96BPONXYRio,aqtwhqhgm,dPN
 Rf9PM1ZONdPRZfPb96deIMOB96d9O9965vPaLEaqtQipRgXtQbfNf9PRN1PM1.8385Y6.nHIa2
 VHuI5..a0.cQ9PMQiUYCYgdJC.7PNbHtaKlKKm0mouKE0rkc9PcI99R..CruC4b1..Z0UEBAF9
 6F,ER.00Uv6R.e1.r76.kt.r,QA.UBQcmhAQC19PN96d9Oghd,YA.H16RcNf9PN96VPMdHE0rk
 c9qkluKu0GtKqlyKtGqt0GuW4RPRPfM9fQ,tPB967POZ1.5fQ91713MFlPMkt0GnyKt0Gs44,N
 PHvNUugV7YcuYf,BgVZf0JgWx3gV7Ycu..YfBAV2J5s9.ocmhgYpZsBjshVBAgiZgUYC2ijZiZ
 phoBhVZhgBDPPO...1fQ9fCPEFGIRymU4aWgV7I2UjUWgV7I2.s9c6Pc7Hc67eC..TdFZPN718
 m4qkY6RZXEBgo3BHXI,d9O9HnaKtCLu0mmWrkUUIgZRgjhBb969fNBPN59RHfR99Pn9637F.EF
 mGE4KrGaVZhn763dFZPN71pf6,NOb96TPPH9RdPN7f9A7OKEaqtohjpBROGN8619PNHukl8566
 VPMQiUAgm76ZPNVvPZ9R99NRlluKuAhntQ99R,7RTHuW4R1sP2iV,5fQUiM136IZPNPcAVN0VP
 MdHEipMqJEqHESGRSm4qk48Ec8pbC2kY.wBnHI05e1MK..Y8.T0a0.qEdKKsy4b96HfN,7RFXY
 ,MOMO2C2YZ3jdFLqk4a2dfQ.,NObHeEEUkBgmZiUwha3Yo3B6RAgaZiZJiU6OYBs7tu7yKts9D
 loCbj,U33jVhBQC.MP.M1HM0HMJR9RZPOPPP99NH6JZPOP1PM1HM0GIRUQ,5W7YcuY9.qk2ak2
 ..5WQBV2JbQ,.g,HM0.T,U4,2j7Ycu..M1PMEbvQfnouqn0GuWamhgUAhnNM,dNH9Pwhm3YYBB
 UttM19PNPN79637F..8GE4Kr6RZPO0moCb4BcARe33YdZiUIiZZipVugVBA,VOMdHRaEWeHiEi
 .A,..mZ7Yet3iZJbBAVCxhmhhVZhUogdZBHM0BOENuIaEX42qk2Goo85k2aEe8peKo2GJdM1PM
 1P6I.6IGb4V3,b96UCVuMEA6..Y8I5.a0.q..Eo2YY,MOMMR9NOqouqkmKEOag76HfP,,UUggs
 VikYEt.00G3002CZ1.RPMMMB9R.m4.s7.Tno.g6...ghdxA.M0f0gBa.UB.70.k2..P..U1Fia
 ...qU7.s9.o6...k4q..Et.196UjFm.AjU....3,YC22o666km.UE,cCH6Fp,m3U7..EiAVI,.
 .aUIV7oc,VBA,.A,d0G3q...o6g6sQZ76F,EKoB66ME.M8...Eo2YaVU2CdHEiGESGiSWf2YiB
 gh7691oZBMG2iVVVZhmhgVZgt3YZphYRiUAhit7tWjlHkkuKEKKwGLt4KESGiSWdRCRHu0mkGK
 mKKmu0VeQ9P1.QYUwYbgVBg,Hh.PMEf9RFvPZ96p76,dITfM9fQd967865OMP9Q3PNN9PPsIdP
 MPHE0GR0GE8k48ssHpmsETfPdfQT9PNPNZvQRtIQcoJigZcZRiX3UlHw..umVyKrG5EWE.Q6AA
 ICR,85...CLL.U2V.Iy2E.0.GV.2U.U76.0E..k.8MtzU.6.,UV3.SE.0UNV.2.526..F.zV.2
 U.E,,0..YY.E.4E.E.EU8qiU.wcNC.k.k.E.0.3o42.0..Y22.M.kVy4.2wAC.6.VQ.E..YVsH
 4EaeJjYl1jI3Qw70PHrQC5uP..w06..E2E.U76.2hXRClt45B.,AzJE.nT32xa3Blh5l2Ls0..
 .
 1Ak....O....58FTuPE,5TWyqlKrqKKrGrtumdGLmGorCquU2hgnRAXDFTvMUn7FTvMf1G2sET
 fPdPMHfP9fQbf9hOO9vR7ONbvMoedhgrRiioedFWUkTeoxhmhgnpZHZijJC7ONbvM0.,.S.qz0
 U.QklbcjRAktgdjZgZZh2hgnlsDor.kay4.qorGqmQiig76FUHZijJCbnWmqmqKWKqtcw7.,.L
 O,A,Qc3E.0E.cUGpmWLuOpoKqvCbHZiYpedhA704TeKKw.bHfEWUmL.6..D.PD,6.CcIhgsNHT
 9N9ntQ8qorG4704D.CbB,708T1U.kv9.T.Tj.2.,.LO.cU.ktAcoZimBhWhiohgnZcZRCY.2.A
 42U.EGE.U,.5uPffQHPNZ96RONjHyuv.U.2m,.N,1cUZT1E.MDE.676.k.0.C2..4.072UHV,.
 RipZkXbz.IklTeoZgHZiVhhkRiiQ8O3.C.0E.686.M3E.8k.QaLhvRI.YquQ,Th.AU3.R,3cUZ
 T1E..UYU..1.C2..0.,6j3.,s1kaE,y.w3IUEE.0kSkzrobGoemoW0GECokCrpKKuCJomqv4Ks
 aKWmKq0mh8mtWKqUiYggZhWgfvgVBAVcIZU2Y7ZgZBgjQcjZgZ3Yaxhm3YEBgo3h4BhiZgDphE
 Bgo3hU2imxhqBhYhgY3YWBjUIcZJii3hVJiY3YIJiZhioxiZBhiZZUIdVphpBgmBjUIak2atgV
 72YU2YUIUU2YeAZBgVBAdB3eDJeI3YUQeNReIhcBZZUwedphUIbx2YLBhiBckBhvgVBgVEJeDR
 c3ZcJJe33YU2eVZCB0.je8,78BPONPN,dC,tJHfPR7IdfQjuIdeIr76hOEZ86rePH9Pv867POZ
 vQ,dC,tJ.kI0GR00IcDxdARbBgVEJ8..BGqKqWWroCLuCrfeGEWGs4Ku2Yu2YLVE,.EV...kYC
 LWaKtKqlGrrAjLJZU2366.V0.U0,gV3pd23YUQcV,.G2RN1PcUXDJ9X1xhiZimxhgZhZJinpZH
 ZC58RZ9P7ONbvM,Mw..c95uPR9R.7ONbvM,kVkk.Um,..Unp3.6F6.ZD,6.636.M00U.2..AU0
 CyIVGhighgmRiiQ88pum470,Mwd0UnpZGhighA70,cw5.0.L3D.53,6.C6.QiiQ8CZtZhZZcZR
 C,Mw.ELMSN12Umz.6..F.p0,6.IE.EL4Iu.6F6.G.0..676.16.6.665hKE.SoA5UTyB4.4.0E
 .cUZT1E..UO.,.1.eWUbl,.,6Y1.0.UA2Tm.mmBjZ92T,eUXDF.sET1.UF.,..W.0.A,,Uk5nq
 7cpPa0MyfU.az86QtwO0Gzu6G31...
 1Ak...0j,...58FTuPE,5TWyqlKrqKKrGrtumdGLmGorCquU2hgnRAXDFTvMUn7FTvMf1G2sET
 fPdPMHfP9fQbf9hOO9vR7ONbvMoedhgrRiioedFWUkTeoxhmhgnpZHZijJC7ONbvM0.,.S.ynB
 E.0k,5TWyql.bnayKmKKqGomC5XzET1.PuP.MHT9N9ntumaU2,CJuyKtQC98P9PP7ONbXmb.2.
 glOk2k0f,,E.cUGpmWLuOpoKqvCbHZiYpedhA704TeKKw.bHfEWUmL.6..D.Td4E.CcIhgsNHT
 9N9ntQ8qorG4704D.CbB,708T1U.kMW,T.H742U..Nu0cU.ktAcoZimBhWhiohgnZcZRCY.2.A
 a.E.0.7,,.4.QcjhimBhZJiUodZxCtfj1.0E65.o6AU0KyB.,UsU.UYU.UzX.2U1,.U0UE00.W
 uo5U7yx,cUXzId9NNOORvObf9NOORvO7ONb15.0.B1,6.Yd.E.M.70b8R7vEP9Nbf9T8Q9fP3e
 QTvRbPNZ98DtE1vQLPNdv97uP5PRTtET9QnP9ZOOD9Odv7N76D785OMbvOAZ1xhkBD.Hl.4.4E
 .6.F3Umr,6.I26.2,2..aU.E.EbPR7wstD.3QwsIdPMP9Qbf9bWK,.E.stE.MnE.8E2ockJrQi
 7IbwQ,dd.bkb0LuaqruqkmKEKrtKKEyKn0GaaKlQem4nAb7QYvQ,Jf.bkUGKmKKm0mH0pkGLoK
 IwaqtGrt8nHQrkoYN57guuQ,16,odmBvLx6oquQ,h7,gUXJsCz4gquQ,nx.wsCavRp2YquQ,t6
 ,IwsjYBQ.0kWbn3Yn1w118N..s7,d7,t75uPVHXaKqKqHQaYoVTW.wotQ,p6,2U7U.2.gevB.D
 Sy1.7ONhvI99P9vMdvPCLLCpmm46F9vQ51E.s71U9UBA.6.1.5gwL.,6.wOw,wN2U..v3,cUZT
 1E.MDE.676.k.U1,.U.E.0t.U1.,.f0Um502.Q4,k3kAU.c.,U.C.6.2k.6..5.,6.MJ..0.U9
 UN.,E,U,.,U.4.,.wzABhWJUJRC3sUZz06.,..i.2.M.sz,M,6.,.f0.E.kNk3kAU.s.6U1.0.
 ,A.0.k40.0.K3.E.0.4n.s0651.0k.k,,,6.oQw,oP2U..v3,cU.,Ux.,UYU..1.C2..E.07s.
 6.,.f0.E.kNk3kAU.c.6U1.0.,A.0.E7E.0.K3.E.0.U9UN.,E,E.5.2.0M.2.kzn2OoqGLtCL
 EenS0GaaKlOoqG5Nd.5gwL.,6..k3U..1.zD.,U.g8..,.D7.Q,A12U.s.6U1.0.,A.0.kNE,8
 Mtr.2.O30E.676.k.U1,..2UwK.s16.r53c,EiE,e.I86.MJ..,6.c91U9UNA.0U.A.QEE.0.5
 5T.r4,6.kSF.86E.MDE.676.k.U1,..,E.07s.E.ke..2.Q4Q,AX.U.c.,U.C.6.2k.6..T.,6
 .MJ..0.U9UN.,E,U,.,U.4.,.wzAVa3Yu2Y4hhoJCRdFP9RiH,CMtj.0E..U9.,.4.yT.E.K3.
 U.UnU9UNU.2.5.,Q.E.6U,E..0O,E.0.f0.6.,.fO.Q,2c,.,M.sUU.2.ek.s1c.1U.2U.Ux03
 26.g56.Y22.M.kV...0E6,5.,6.MJr1.6.sAs0M4E.IU.E.5.2.0M.2.UqU.2.g8.U.2..L.n.
 0U0U.C.6.2k.6.Uzb7Ad43YUogU2YX2YUod7ZdU2YI3d3pdU2YapZHZimZdi3YcwY1JiZBgohg
 Y3YUwYUQZUQiohiWBZU2Y3pd2JU1KS6.,..i.2.M.sz,.,MJ..0.CM.s0M46.,k,E.5.2.0M.2
 .UaU0Y.2UxB.8k3E.85o.2UIF.8E50.e58E1E.e38k50.qw.E1E.i38E22.,s01E.0U.kekX,6
 .,.5N.Q,oV,.,M.sUZ50E.6qs16o2U..q9IE2.0.v,0.7,,.4.Q6..U.2Gk,E.0.K3.U.UnE.i
 E.M4E.IU.E.5.2.0M.2.U26.,6.ke..0E..Q,A16.8.A.6.2k.6.Uzb7od7ZdgIU1KS6.,..i.
 2.M.sz,.,MJ..0.4H.2U9UNU.2.5.,Q.E.6U,E..CM.c.B.,sOs.3gwP.0.r,,6.I26.M.EYKK
 qOrmGroCqkYjyC.6.V2A.QU.UVag0MO1c.8ssH25uPPPP1fP7PNZvQRtId1.,Mw7ONh1.uGf.2
 Um10..o.6.K,563szPuH7OJNOF,765OMb1b8ONvR19QHPJdPONvQrN0Fd8,761ORd9OTfQ,dC,
 76ZuP3PNZ9R,7F,tE1PPVfM99PN96,76JN8PM0Fd8,F,aO,0GE0GE00IUU2YeA3P68J763MEhv
 PH9N366JN8PkYqIcyIdGJE0G,8EECJom42YugbUQcVRC.6FN9PN76jOORPEVPOrN1PM1VeITuE
 98FfeI986,tEZPN1X2BhmhgXZijNSJ76FNGR86VPMd9O,dC,NEZeI1OK,tHB8658G1eIH76p76
 3uHT8H9OERuCP66,dJ1eIP66,76,tQ9vM,76p76,tJH1umdKoVKJdaIeapj4IeGJdaIVKJeKod
 in40GE8oWSoYuo40GE.RdPNONRvNd9O,76,76.UugbU2YHBdOhcU2ZLBhi,...amRqEE0GEQCY
 hkReZRgpJidZitZcZRCZPOV9RTfQ,76pND2avgVU22UWBdi3hZJid7G1fP79P996,7600e1Spo
 .BOENuI9uCP66cI98JfeIR86,tJ.5eQ9PM.UL3Yc2iVZCN76bPNaGE0mF0WLBBEXUB2YUg60GE
 CIt..QbBg,w7.C26I19RFf8,78H066plU..iHEGLtaqqGpkaKq0GR0GV..00....c.wdJZeUQg
 iZiUIbUAdCZe3xc3JedQbB22h0kpmGEqKE0GR0GEaIbG3QbB22,llWKt0GE0GR0W13d,l4UnZi
 p76,dC,lU8JdEE4HNWHE0mbOIE0mV.I6.,llu4,dCvVk.,lUCpdKIdGJEWGs44ipMqZx2YbIbb
 YZUIakAZvgVUUf3YUIbx.,NP,76pNDgZlQbB22Ie33e3BcIhVU2YU66CKoUxEs4KukpqpRqEEE
 EAd43YUQgcVx2YUwYQxYU2YI37sMERkHymH0GEKIbQbB22,FEA7.q1D,G3MP,76kp0W3,22,lt
 UPRhR3YUI5QgctC,NGRuE,78LP8P66,76KJbGpYmIE0ml66EMWpRqEE22H0dfQH166d0Qio,PP
 L,76EM2YUgcCVB22,lp66p,btCP666HTuHVO1,76,FEI8.66MGRuEkR0mlWKtcCsQd1iaB2YU2
 2,le.WmlWKtgbUwYjwYd2YUwdG3YU2ZX,0HgamRq.22b1EEI524r,22HeF2ZH3hg,R7I19Raot
 Goo8rm.jWnZipN8qHESpou4o6NWd2Ya2Y1JiZV2,EEWmtG52YI37qEE22,,HeHsMR9RHtCP.00
 8UB222290000W7p6C4UU6J66KIgaIe0GEK2.,ltEE.kHM1,76g6qEEg60W1,0pksCPM1PEdy2.
 deQHPPABWGf4Id0Gs44,dC42aZDlVkIi1O3P.iKKUu2YUA7d0UUsM66,FEQ6Q5I6.,lp0WuUkQ
 5cCvVh.0WGh6.,FEQAcC6QG5rWv.0W7VcQAg5DVd..EiSmI0GEGJYUh,QBK2r,22HeH5WfN122
 f0sM66vVk29660rkUh3Yf2YlgfU226A0WU2YB229WU6JZ1sCPM1IeD,kYCLW.c82iVVuMEMK.6
 6.2YucE.H76p,UvU0,66aIX6R.22F0GJt.2ZkBAaGE0mWsC668pWG3sIF9PUEV7RC.w805a05F
 E.o6NWBkW66aot.kR.T0UEBgo3h4Bhghg33jdRCeGEWGsEb4qqKKEeHE42...HXu.kIEV.i182
 .aIX..,,..F,Ud2YUg6i10WGh6..03O2.SJEWGsEb.C0.OYA,EE2eVFX.kRqk4q.T0...8HJ0G
 Ia2EKohVhhZ3242.kI0030.O322eKK0mp0WU2YUcC0mYY8.0WX,,76,VukVkRq.2CdHbUUIbUM
 EMK0GNKHP0GEyIX22.82.42.1XUQfkgfUQYU2aMZZUIak.0We3YUI52avsO,76p,g,cI98I66,
 tMEREsYCIhRRbU2iVZCR0iJpqJE0GRq15Xv.WGpaGE0meu26Q66kS0GMQ522H0F,,t6,t7tu7c
 7,76F,kLS0G36Q1XC,EEe1SGiQbUAdC,MFQ522Z0.22cP11iqiiHE05.e4e1C4r,Uv2Y7p7QB,
 76f0sM2Yx6AUUUI,.6IcF.sJ.R0H,00U4,MF22VOMo6.IavgVBg,ZuH.Qcj3it,J76FNGQimRg
 CBghhgg2YYRiopdVhB,dC00A9TW1,0000..cMfPON9NVOMdHKAggZhjxiDpiZJirJidZiZ3Yu2
 Y0,A3.sCcJEEcPTvET9Q0GEeHEw8U0xdDZdvgVU66CKr22,76e1H0.82u2MGcMfHq.,76B76ur
 YCLWa4kw0GIGqtG5Y3deIfOFHN1,76,FEY8kV85MM687vQ.Ug2Y0IUUQgiZid2YUg6i10W7VVZ
 B..,7JUixB.vVL,o6.,FE...gcARe33YUohj,.j06JZOJ986,NF.Ie3,w8U1xhkBj4VL3YcQim
 RAUY,Ery4AZU2YX66.O2g,K2,lVy4B0rN1PkWuIW001vQ.keUigVBIUU22GomOLWKKlKrnumeu
 KqyqkGq48ssHpmsETfPdfQT9PNPNZvQRtIQcoJigZcZRiX3Ulb8..umVyKrG5EWKqt2.501PO.
 cQ...sQR,.G20EtH.0.G,0.aU.6.,..1cUXDJcIf9P9fQbf9bWGhigFWE.4Te.sQRdIf9PY62U
 mT.,U.kLl1kH1E.0E.0U1CSW5ktumdsIaLqKKWKqt2Ul1.RVtZBE.8z10E.6..F.x00.3Qw.EL
 4IuElU2V.6,6..Uc6.0k.0.0.0nMfJ.E.GT,5UAB94.4.6MT7BcUZ50E..US.,.1E.MEZPO19P
 0S45.2UEC.6..mEw7169rwKiEw3c0Cy2xBq4sET1.UJ.,..W.0.A,,UcRgn7Crsc0MyfU.az86
 uB9OWPDW7Ah,...
 --- end of encoding ---

Edited to replace Pac code by StdCoder - 14-12-2016

[DGDanforth]

Robert,

Please don't use Pac. I can't get your code to unpac.
Much too complicated. Just use Tools->Encode file list.

-Doug

[Josef Templ]

In the case of Locator.This there seems to be an inconsistency between the docu
and the implementation. HostFiles.Locator.This always returns # NIL and sets
the result code in the returned locator, not in the receiver as stated in the docu.
The implementation, if I read it correctly, is perfectly in line with
HostFiles.Directory.This, which is good news. The implementation needs no change
and hence there are no incompatibilities with running code.

I can imagine that there has been a change in the implementation of
HostFiles.Locator.This in the past but the docu has not been updated
accordingly. Consequently, not all invocations have been updated.

If this turns out to be true (please check the sources and the docu)
it would be justified to create an issue for fixing the docu and the checks
after Locator.This and Directory.This.

- Josef

[DGDanforth]

In the case of Locator.This there seems to be an inconsistency between the docu
and the implementation. HostFiles.Locator.This always returns # NIL and sets
the result code in the returned locator, not in the receiver as stated in the docu.
The implementation, if I read it correctly, is perfectly in line with
HostFiles.Directory.This, which is good news. The implementation needs no change
and hence there are no incompatibilities with running code.

I can imagine that there has been a change in the implementation of
HostFiles.Locator.This in the past but the docu has not been updated
accordingly. Consequently, not all invocations have been updated.

If this turns out to be true (please check the sources and the docu)
it would be justified to create an issue for fixing the docu and the checks
after Locator.This and Directory.This.

- Josef

I believe your analysis is correct (good catch on the receiver issue)

I suggest that BB1.8 changes the behavior of Files.dir.This
by adding a res parameter to the call thereby allowing a NIL
return for an invalid path (one that does not exist).
For consistency loc.This should also return NIL when the
relative path does not exist.
-Doug

[Robert]

Robert,

Please don't use Pac. I can't get your code to unpac.
Much too complicated. Just use Tools->Encode file list.

-Doug

Done

[Robert]

I suggest that BB1.8 changes the behavior of Files.dir.This
by adding a res parameter to the call thereby allowing a NIL
return for an invalid path (one that does not exist).
For consistency loc.This should also return NIL when the
relative path does not exist.
-Doug

I don't understand the necessity for this.
I think it is ok if "This" (usually) returns a Locator.
If the location is not found it should then set "loc.res" to 2 in accordance with the documentation.

This would mean no interface changes; the problem is the failure to set res to 2, and fixing this would break nothing.

Actually I think I see two other issues:
1 - Why is the set of result codes different for dir.This & loc.This ?
2 - If I call "Files.dir.This('D:\Fred\Henry')" what happens if 'D:\Fred\Henry' exists, but is an ordinary file, not a directory? The Docu implies no error, but I probably want a "Missing Directory" error.

[Josef Templ]

I don't understand the necessity for this.
I think it is ok if "This" (usually) returns a Locator.
If the location is not found it should then set "loc.res" to 2 in accordance with the documentation.

This would mean no interface changes; the problem is the failure to set res to 2, and fixing this would break nothing.

Attention: I think there is still a fundamental misunderstanding regarding the semantics of This().
This() is not intended to check for the existence of a directory.
It only checks for valid names.
Otherwise it would not be possible to create files in a new directory
without getting an error.

Setting res to 2 for non-existing directories would mean an incompatibility.
This is not in accordance with the docu, in my understanding.
It would also mean a file system operation for every This(), which has been
carefully avoided for relative paths.

The only option I see is to add a new function that tests for the
existence of a directory, if this is required.

- Josef

[Ivan Denisov]

Locator is more general than just a directory on the hard disk, it can be file in RAM or some entry in database. So this is definitely not a bug...

I suggest to write small WinApi function for this
http://stackoverflow.com/questions/8233 ... and-winapi

[Robert]

This() is not intended to check for the existence of a directory.

Ok. But there are two things that encourage this false idea:

1 - The existence of the return code res = 2 meaning "location not found"
2 - Many examples where the calling code appears to use "loc = NIL" to test for the existence of a directory.

So, I suggest, we want three things:

1 - Clarify the Docu regarding This. Explain when res = 2 does, and does not, occur.
2 - Correct the calling code that misuses the loc = NIL test.
3 - Add a function to test for a directories' existence. (The code I posted earlier shows how to do this with a 1 line Windows call.)

Code: Select all

MODULE  CasketShlwapiDll ["shlwapi.dll"];
IMPORT  SYSTEM, Win := WinApi;

PROCEDURE  PathIsDirectoryW* (path : Win.PtrWSTR) : Win.BOOL;
END  CasketShlwapiDll.


MODULE  CasketShlwapiUtils;
IMPORT  Shlwapi := CasketShlwapiDll, WinApi;

PROCEDURE  IsDirectory* (path : ARRAY OF CHAR) : BOOLEAN;
  BEGIN
    RETURN  Shlwapi.PathIsDirectoryW (path)  #  WinApi.FALSE
  END  IsDirectory;
END  CasketShlwapiUtils.

[Josef Templ]

Ok. But there are two things that encourage this false idea:

1 - The existence of the return code res = 2 meaning "location not found"
2 - Many examples where the calling code appears to use "loc = NIL" to test for the existence of a directory.

So, I suggest, we want three things:

1 - Clarify the Docu regarding This. Explain when res = 2 does, and does not, occur.
2 - Correct the calling code that misuses the loc = NIL test.
3 - Add a function to test for a directories' existence. (The code I posted earlier shows how to do this with a 1 line Windows call.)

No question that the situation is confusing.
But note that the error code 2 is not listed as a result of This().
There is a global list of error codes for the purpose of
mapping error codes to error messages, for example.
This does not mean that all error codes can occur at all places
where error codes are set.
The docu already lists the error codes that can result from
a particular operation, with maybe a few inaccuracies, I don't know.

- Josef