Yazılım Geliştirme Uzmanı & İnşaat Mühendisi
Logo Go/Tiger, Iphone, Desktop, Web, VBA Uygulamaları
Tel : 0 534 797 31 21 , Mail : baranseren@gmail.com
PSC - Database Finder

PSC - Database Finder 4/8/2011 9:23:45 AM

Planet Source Code ` da yayınlanan klasördeki veritabanlarını bulmak için yazdığım Fonksiyon.

`**************************************

` Name: Database Finder
` Description:This code finds out the database files in folders and lists them.
` It is an open source code and can be improved.
` By: Baran SEREN
`
` Inputs:None
` Returns:Database name `Assumes:None
`
`**************************************
`#######################################
`#######################################
`# Bu Script Baran SEREN tarafından webdersleri.com üyelerinin Asp eğitimleri bölümünde Dosya #
`# Sistem Nesnesinin Kullanımını örneklemek için Molly e verilen ödev olan Veritabanını bulan bir #
`# Fonksiyon yazma Ödevinin cevap dosyasıdır. Uygulama da kullanılan tüm kodlar örnek olarak #
`# yazılmıştır. Genel olarak File System i açıklayan bu örnek orjinal haliyle eğitim materyali olarak #
`# Kullanılabilinir. #
`#######################################

Function VeritabanisimleriniGosteren(Klasoryolu)
Set FileSystemObject=Server.CreateObject("Scripting.FileSystemObject")
Set Klasor=FileSystemObject.GetFolder(Server.Mappath(Klasoryolu))
Set KlasordekiDosyalar=Klasor.files
For Each Dosya in KlasordekiDosyalar
If UCase(FileSystemObject.GetExtensionName(Dosya))="MDB" Then
DatabaseName = (Dosya.Name)
Response.Write DatabaseName & "
End iF 
Next 
Set KlasordekiDosyalar=Nothing 
Set Klasor=Nothing 
Set FileSystemObject=Nothing 
End Function



Tags :