Thursday, May 19, 2011

ASP - Mengecek File

Untuk melakukan pengecekan terhadap sebuah file (gambar) pada ASP (Classic), dapat memanfaatkan library dari Scripting.FileSystemObject
library ini juga bisa di gunakan pada aplikasi desktop (vb6/vb.net)


<%
'ASP

function isFileExist(sfile)
dim fs

'mendefinisikan object File Sytem Object (library)
'yang digunakan sebagai pengakses dari sebuah file / directory

set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.FileExists(server.mappath(sfile))=true then
 isFileExist = true
else
 isFileExist = false
end if
set fs=nothing
end function

dim sFile

sFile = "/img/found.jpg"

if isFileExist(sFile) then

' ada file
else
' tidak ada file

end if

%>