Dosya Kullanım Kontrolü

[Recep İpek]

Aşağıdaki kodlar ile DBASE formatındaki bir dosyayı excel formatına kopyalayıp kullanabiliyorum.

Fakat DBASE programı kullanıldığı anda kopyalama yaptığımda bilgi kaybına yol açmaktadır.

DBASE dosyasının (veya herhangi bir dosya) kullanımda olup olmadığını nasıl kontrol ettirebiliriz?

Sub Deneme()
kaynakdosya = "C:\PERSONEL.DBF"
aradosya = "C:\PERSONEL.XLS"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(kaynakdosya) = False Then
MsgBox kaynakdosya & " " & " Dosyası Bulunamadı."
Exit Sub
ElseIf fso.FileExists(aradosya) = False Then
MsgBox aradosya & " " & " Dosyası Bulunamadı."
Exit Sub
Else
fso.CopyFile kaynakdosya, aradosya
MsgBox "Dosya Başarıyla Kopyalandı."
End If
End Sub

 

[alpi]

Kopyala APİ'si konusunu inceleyin.

 

[Recep İpek]

En kısa zamanda deneyeceğim.