ks_cls/Kesion.CommonCls.asp
- Function GetUpFilesDir()
- Dim DateFolder
- Dim UserFolder:UserFolder=ChkClng(C("UserID"))
- Select Case ChkClng(Setting(96))
- case 1 DateFolder=Setting(3) & Setting(91) & Year(Now)
- case 2 DateFolder=Setting(3) & Setting(91) & Year(Now)
- case 3 DateFolder=Setting(3) & Setting(91) & Year(Now)
- case Else DateFolder=Setting(3) & Setting(91) & UserFolder
- End Select
- CreateListFolder(DateFolder)
- GetUpFilesDir=DateFolder
- End Function