Vb Dosya İşlem

[pcman]

Arkadaşlar merhaba,

vb ile bir klasördeki dosyayı başka bir klasöre nasıl taşırız?

 

[Zeki Gürsoy]

FileSystemObject ile olur. En kolayı "Name" fonksiyonu ile olur.

Name "c:\kaynak.xls" As "d:\hedef.xls"

 

[pcman]

Teşşekkür ederim...

Bende Şöyle bir yol buldum

Modul1 in icine yazilacak kod ..

Public Declare Function CopyFile Lib "kernel32" _
Alias "CopyFileA" (ByVal lpExistingFileName As String, _
ByVal lpNewFileName As String, ByVal bFailIfExists As _
Long) As Long

Form1 in icine yazilacak kod ..

Private Sub Command1_Click()
Dim n As Long

' 3. parametre False olarak gönderilerek hedef dizinde
'aynı isimde dosya olsa bile üstüne yazıyor.
' Eğer üstüne yazmak istemiyorsak bu parametresi True
'gönderek bunu sağlarız.
' Parametre True ve o dizinde hedef dosya mevcut ise
'fonksiyon geriye sıfır döndürür.

n = CopyFile("C:\Deneme.txt", "c:\Denedim.txt", False)

If (n = 1) Then
MsgBox "islem basarılı"
Else
MsgBox "islem basarısız"
End If

End Sub


Modul icerisine yazilacak kisim 

Public Declare Function DeleteFile Lib "kernel32" _
Alias "DeleteFileA" (ByVal lpFileName As String) As Long

Form1 icerisine yazilacak kisim ..

Private Sub Command1_Click()
Dim n As Long

n = DeleteFile("c:\Denedim.txt")

If (n = 1) Then
   Text1.Text = "OK."
Else
   Text1.Text = "ERROR."
End If
End Sub