Dosya konumunu alma

1 2
29/11/2016, 09:36

tufanbal

Herkese merhaba
Forumda bir kaç konu başlığı altında aradım ama bulamadım. Varsa eğer beni oraya yönlendirirseniz de yeterli olur gibi geliyor. Şimdiden teşekkürler.

Elimdeki örnekte sağdaki textbox a (dosya-konumu alanına) seçilen dosyanın lokal bilgisayardaki konumunu yazacak bir kod arıyorum.
ö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. Fakat me.dosya_konumu=? Eşittirden sonrasını kıvıramadım.  

Not : formu açarken internet bağlantınızı kesmeniz gerekebilir. Kesmezseniz açılışı uzun sürüyor.
29/11/2016, 10:25

ozanakkaya

Kodu aşağıdaki ile değiştirerek deneyiniz. Ayrıca ' ile iptal edilen alanlara işlem yapılmadı.

Sub getFileName()
   ' Displays the Office File Open dialog to choose a file name
   ' for the current employee record.  If the user selects a file
   ' display it in the image control.
   'Me.resim = Null
   Dim fileName As String
   Dim Result As Integer
   With Application.FileDialog(msoFileDialogFilePicker)
       .Title = "Dosya Seç"
       .Filters.Add "Bütün dosya türleri", "*.*"
       .Filters.Add "WORD", "*.docx"
       '.Filters.Add "word_eski", "*.doc"
       '.Filters.Add "text", "*.txt"
       '.Filters.Add "excel_yeni", "*.xlsx"
       '.Filters.Add "excel_eski", "*.xls"
       '.Filters.Add "Gif", "*.gif"
       '.FilterIndex = 1
       '.AllowMultiSelect = False
      .InitialFileName = "c:\"
       Result = .Show
       If (Result <> 0) Then
          fileName = Trim(.SelectedItems.Item(1))
           Me.dosya_konumu.SetFocus
           Me.dosya_konumu = Left(fileName, InStrRev(fileName, "\"))
         ''  Me.dosya_konumu = Dir(fileName)
          ' Me![baski-desen-no].SetFocus
          ' Me![resim].Visible = False
          'Call resim_AfterUpdate
       End If
   End With
End Sub
29/11/2016, 16:56

tufanbal

Ellerinize sağlık hocam, konumunu alıyor da "deneme.docx" kısmı gelmiyor. Yani çalışma sayfasının adının da çıkmasını istiyorum. Nasıl yapabiliriz?
29/11/2016, 17:34

ozanakkaya

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
01/12/2016, 21:09

atoz112

sayın tufanbal,

konu takibiniz açısından,hatırlatma anlamında;
konunuz ile ilgili son gelişme ne durumdadır.

şüphesiz,işlemleriniz tamamlanmış ve sorununuzu çözmüş de olabilirsiniz.site içi aramalarınız neticesinde sitede yer alan konuları ve örnekleri incelemelerinizin sonucu ile bazı gelişimler elde etmiş de olabilirsiniz...bilgilendirmek ister misiniz lütfen.teşekkürler.

bilginize...iyi çalışmalar,saygılar.
01/12/2016, 21:11

tufanbal

Geri dönüşler sayesinde amacıma ulaştım ve çalışır hale getirdim. Emeği geçenlere teşekkür ederim.
1 2