'======================================================================
'Nama fungsi: Checkfile
'Fungsi: Periksa apakah ada file
'Parameter: nama file ------- alamat file seperti: /swf/1.swf
'Nilai Pengembalian: Salah --- Benar
'======================================================================
PublicFunctionCheckFile (nama file)
OnerrorresumeNext
DIMFSOOBJ
Setfsoobj = server.createObject ("scripting.filesystemObject")
Ifnotfsoobj.fileexists (server.mappath (fileName)) lalu
Checkfile = false
Fungsi keluar
Endif
Checkfile = true: setFSoObj = tidak ada
Fungsi endfungsi