Dosya konumunu alma

1 2
01/12/2016, 21:56

access_delisi

(29/11/2016, 17:34)ozanakkaya yazdı: Merhaba, siz sorunuzda ""C:\belgeler" yazdığınız için ben kodu o şekilde ekledim.


(29/11/2016, 09:36)tufanbal yazdı: örneğin dosya aç tıklanacak açılan kutudan word seçilecek. dosya konumunun içine de

"C:\belgeler" yazacak
İşin çoğunu yaptım.

Kodu aşağıdaki ile değiştirerek deneyiniz.


Dim fileName As String
   Dim Result As Integer
   With Application.FileDialog(msoFileDialogFilePicker)
       .Title = "Dosya Seç"
       .Filters.Clear
       .Filters.Add "Word Belgesi", "*.docx, *.doc"
       .ButtonName = "Word Belgesini Seç"
       .FilterIndex = 1
       .AllowMultiSelect = False
       .InitialFileName = "c:\"
       Result = .Show
       If (Result <> 0) Then
          fileName = Trim(.SelectedItems.Item(1))
           Me.dosya_konumu.SetFocus
           Me.dosya_konumu = fileName
       End If
   End With


Sayin tufan bal, siz ne sorarsaniz bu sitede onun cevabini alirsiniz, koddaki filters olayini kendi uygulamama adapte ettim, vesile oldugunuz icin sizede tesekkur ederim.
02/12/2016, 10:48

tufanbal

(01/12/2016, 21:56)accessdelisi yazdı:
(29/11/2016, 17:34)ozanakkaya yazdı: Merhaba, siz sorunuzda ""C:\belgeler" yazdığınız için ben kodu o şekilde ekledim.


(29/11/2016, 09:36)tufanbal yazdı: örneğin dosya aç tıklanacak açılan kutudan word seçilecek. dosya konumunun içine de

"C:\belgeler" yazacak
İşin çoğunu yaptım.

Kodu aşağıdaki ile değiştirerek deneyiniz.


Dim fileName As String
   Dim Result As Integer
   With Application.FileDialog(msoFileDialogFilePicker)
       .Title = "Dosya Seç"
       .Filters.Clear
       .Filters.Add "Word Belgesi", "*.docx, *.doc"
       .ButtonName = "Word Belgesini Seç"
       .FilterIndex = 1
       .AllowMultiSelect = False
       .InitialFileName = "c:\"
       Result = .Show
       If (Result <> 0) Then
          fileName = Trim(.SelectedItems.Item(1))
           Me.dosya_konumu.SetFocus
           Me.dosya_konumu = fileName
       End If
   End With


Sayin tufan bal, siz ne sorarsaniz bu sitede onun cevabini alirsiniz, koddaki filters olayini kendi uygulamama adapte ettim, vesile oldugunuz icin sizede tesekkur ederim.

Sayın accessdelisi, forumun güzelliği de bu olsa gerek.
1 2