Hocalarım arkadaşların başlığı bu şekilde yazdım tam tarifini bilmediğim için sizlerden bir konuda yardım ve fikrinizi almak istiyorum
Verileri worde gönderdim sıkıntı yok ama şöyle bir sıkıntı oluyor
Eğer önceden word olarak kaydedilmiş dosya açıksa hata veriyor ben kaydetme den önce bu isimde dosya açıkmı açıksa veya bu isimde dosya varsa windows un yaptığı gibi kaçtane varsa sayıp
Örneğin
Hesap.doc varsa hesap(1).doc varsa hesap(2).doc ...
Nasıl yapabilirim bu şekilde örneğe nasıl ulaşabilirim
Araştırdım ama bulamadım (araştırırken nasıl sorarak araştırabilirim)
aşağıdaki kodlar sadece dosya açıksa açık olduğunu söyler
txtdosya adlı metin kutusu dosya adı ve yolunu eklediğim alan
eğer dosyamız D:\Desktop\AccessDeneme\64bitçalıştırma.doc isemetin kutusuna D:\Desktop\AccessDeneme\64bitçalıştırma.doc yazıyorum
önce aşağıdaki fonksiyonu tanımlıyoruz
Function FileLocked(strFileName As String) As Boolean
On Error Resume Next
' If the file is already opened by another process,
' and the specified type of Access is not allowed,
' the Open operation fails and an error occurs.
Open strFileName For Binary Access Read Lock Read As #1
Close #1
' If an error occurs, the document is currently open.
If Err.Number <> 0 Then
FileLocked = True
Err.Clear
End If
End Function
daha sonrada buton olayına aşağıdaki kodu yazıyoruz
Private Sub btnDosyaAcikmi_Click()
If Not FileLocked(Me.txtdosya) Then
MsgBox (Me.txtdosya & "dosyas kapal?")
Else
MsgBox (Me.txtdosya & "dosyası açık")
End If
End Sub
yalnız önemli bir noktayı belirteyim; bu kodlar word
Excel yada
Access gibi açtığı
dosyaları kilitleyen programlarda çalışır
mesela bir word belgesi eğer wordpad ile açılmışsa kodlar o dosya kapalı der
dilerim işinize yarar
konunuzuz adı "Dosya açık mı kontrolü" olarak değiştirilmiştir
Teşekkürler hocam deneyip bilgilendireceğim bu kod sadece bu dosyanın açık olup olmadığını kontrol etmek için değilmi
Şunu yaptırabiliyormuyuz
Windows bir şey kopyalarken aynı dosya ismi olanların sonuna (1) (2)... Gibi kaçtane ise ismi değiştirmeden sıralı rakamlar ekliyor böyle bir vb komut varmı nasıl bulabilirim
Bu kod sadece word dosyasi WORD programi tarafindan acilmissa calişir
Buyuk ihtimalle vardir ama ben bilmiyorum
Merhaba, ekli uygulamadaki kodlama hesap.docx isimli dosya için yazılmıştır. Siz oluşturacağınız yeni word belgesinin ismine göre kodlamayı değiştirmelisiniz. Formdaki butonu tıkladığınızda hesap.docx var ise filecopy kodu ile hesap(1).docx adında belge oluşturur, siz bu kısma yeni belge oluşturma kodunuzu ekleyeceksiniz. hesap(1).docx daha önceden oluşturulmuş ise hesap(2).docx oluşturulur.