Skip to main content

AccessTr.neT


Dosya konumunu alma

Dosya konumunu alma

#7
(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.
SÖZ VERİYORUM... USLU DURUCAM...
Cevapla
#8
(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.
Ya bir Yol Buluruz Ya Bir Yol Yaparız.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task