How to make it password protected? I don't want to users manipulate the csv file. I use the code to make it as read only:
setattr fname, vbreadonly
But it's not secured enough. They could still make changes to it if they want.
Can I make changes to the following code on "fileauthority", now it's set to 1, what other option i have:
a.WriteLine ("[Transfer Item " & fCount & "]")
a.WriteLine ("PCFilename=" & fName & "")
a.WriteLine ("HostFilename=IASTP/IASUAPHST1, IASTP/IASUAPHST2")
a.WriteLine ("Direction=1")
a.WriteLine ("HostName=SACCODA")
a.WriteLine ("HostAction=0")
a.WriteLine ("PCAction=1")
a.WriteLine ("FileAuthority=1")
a.WriteLine ("SourceFile=0")
a.WriteLine ("RecordLength=92")
a.WriteLine ("DDSName=")
a.WriteLine ("PCFileType=3")
a.WriteLine ("UseFDF=0")
a.WriteLine ("FDFName=c:\.FDF")
a.WriteLine ("DoTransfer=1")
a.WriteLine ("IncludeFields=0")
a.WriteLine ("DateAsValue=0")
a.WriteLine ("ExpandTabs=0")
a.WriteLine ("CharsPerTab=8")
a.WriteLine ("TimeFormat=0")
a.WriteLine ("TimeSeparator=0")
a.WriteLine ("DateFormat=1")
a.WriteLine ("DateSeparator=0")
a.WriteLine ("IgnoreDecimalError=0")
a.WriteLine ("DecimalSeparator=2")
a.WriteLine ("MemberText=")
a.WriteLine ("FileText=")
a.WriteLine ("HostCodePage=37")
a.WriteLine ("PCCodePage=1252")
a.WriteLine ("HostCountrycode=ENU")
a.WriteLine ("SQLSelectLength=100")
a.WriteLine ("SQLSelect=SELECT T1.COMPANY, T1.CLASS, SUM(T1.ADJSHRVAL ), SUM(T2.CURRUAP),T1.SHARES,T1.DATE")
a.WriteLine ("SQLFromLength=50")
a.WriteLine ("SQLFrom=FROM IASTP/IASUAPHST1 ")
setattr fname, vbreadonly
But it's not secured enough. They could still make changes to it if they want.
Can I make changes to the following code on "fileauthority", now it's set to 1, what other option i have:
a.WriteLine ("[Transfer Item " & fCount & "]")
a.WriteLine ("PCFilename=" & fName & "")
a.WriteLine ("HostFilename=IASTP/IASUAPHST1, IASTP/IASUAPHST2")
a.WriteLine ("Direction=1")
a.WriteLine ("HostName=SACCODA")
a.WriteLine ("HostAction=0")
a.WriteLine ("PCAction=1")
a.WriteLine ("FileAuthority=1")
a.WriteLine ("SourceFile=0")
a.WriteLine ("RecordLength=92")
a.WriteLine ("DDSName=")
a.WriteLine ("PCFileType=3")
a.WriteLine ("UseFDF=0")
a.WriteLine ("FDFName=c:\.FDF")
a.WriteLine ("DoTransfer=1")
a.WriteLine ("IncludeFields=0")
a.WriteLine ("DateAsValue=0")
a.WriteLine ("ExpandTabs=0")
a.WriteLine ("CharsPerTab=8")
a.WriteLine ("TimeFormat=0")
a.WriteLine ("TimeSeparator=0")
a.WriteLine ("DateFormat=1")
a.WriteLine ("DateSeparator=0")
a.WriteLine ("IgnoreDecimalError=0")
a.WriteLine ("DecimalSeparator=2")
a.WriteLine ("MemberText=")
a.WriteLine ("FileText=")
a.WriteLine ("HostCodePage=37")
a.WriteLine ("PCCodePage=1252")
a.WriteLine ("HostCountrycode=ENU")
a.WriteLine ("SQLSelectLength=100")
a.WriteLine ("SQLSelect=SELECT T1.COMPANY, T1.CLASS, SUM(T1.ADJSHRVAL ), SUM(T2.CURRUAP),T1.SHARES,T1.DATE")
a.WriteLine ("SQLFromLength=50")
a.WriteLine ("SQLFrom=FROM IASTP/IASUAPHST1 ")