Merhaba,

Bir web uygulamasında bir dosya üzerinde bulunan birkaçyüz tane resmi yolunu ve bunlar için tanımladıkları keyword leri database nasıl yaxdırabileceğim konusunda yardımcı olabilir misiniz. Dosyadaki resimleri otomatik olarak okuyacak veya bir word içinden dosya isimlerini ve keyword lerini alıp yazacak bir kodu yazmak için hangi sınıfları kullanmalıyım, örneğiniz varsa gönderebilir misiniz?

Şimdiden teşekkürler

Merhaba,

Tam da söylediğin gibi bir uygulama yazmıştım kendime  allta veriyorum... datagrid e basıyorum okuanan dosyaları....

Saygılarımla...

<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.IO" %>

Private Sub Veribas()
        Try
            Dim dtDosyalar As New DataTable
            dtDosyalar.Columns.Add(New DataColumn("DosyaAdi", GetType(String)))
            dtDosyalar.Columns.Add(New DataColumn("Boyut", GetType(String)))
            dtDosyalar.Columns.Add(New DataColumn("Download", GetType(String)))
       
              Dim dir_info As New System.IO.DirectoryInfo(Server.MapPath("Dosya"))
                For Each file_info As System.IO.FileInfo In dir_info.GetFiles()
                    Try     
                        Dim drDosya As DataRow = dtDosyalar.NewRow()
                        drDosya("DosyaAdi") = file_info.Name
                        drDosya("Download") = "http://localhost/kisiselwebdev/Dosya/" & file_info.Name
                       
                        Dim boyut As Double = CDbl(file_info.Length)
                       
                        If (boyut > 999999) Then
                            drDosya("Boyut") = String.Format("{0:0.00}", (boyut / 1000000)) & " mb"
                        Else
                            drDosya("Boyut") = String.Format("{0:0.00}", (boyut / 1000)) & " kb"
                        End If
 
                         
                        dtDosyalar.Rows.Add(drDosya)
 
                    Catch ex As Exception
                        Response.Write("Okuma Hatası Oluştu '" & _
                       file_info.Name & "'" & vbCrLf & ex.Message)
                    End Try
                Next
               
                If (dtDosyalar.Rows.Count = 0) Then
                    pnlKayitBulunamadi.Visible = True
                    pnlDosyalar.Visible = False
                Else
                    pnlKayitBulunamadi.Visible = False
                    pnlDosyalar.Visible = True   
                   
                    gvKayitlar.DataSource = dtDosyalar
                    gvKayitlar.DataBind()
                End If
 
        Catch ex As Exception
            Throw ex
        End Try
    End Sub

---

Ufuk Aytaş
Elips Bilişim Yazılım Sorumlusu
YTÜ Bilgisayar ve Öğretim Tek Öğret. 4.Sınıf