Dosya kopyalama hk

[murat_fidan]

Textboxta ismi yazan dosyayı C sürücüsünün içindeki belirli bir klasör içinde arayıp bulup daha sonra bu dosyayı masaüstüne kopyalamak mümkün müdür. Dosyalar PDF uzantilidir.

 

[Korhan Ayhan]

Mümkündür..

Dosya yolu belli ise işlem hızlıca yapılabilir. Diğer türlü klasör ve alt klasörler içinde arama yapılacaksa klasör ağaç yapısına göre işlem süresi uzayacaktır.

 

[murat_fidan]

Mümkündür..

Dosya yolu belli ise işlem hızlıca yapılabilir. Diğer türlü klasör ve alt klasörler içinde arama yapılacaksa klasör ağaç yapısına göre işlem süresi uzayacaktır.

Dosya yolu C sürücüsünün içindeki Belgeler klasörü olacak Korhan bey

 

[Korhan Ayhan]

Deneyiniz.

Sadece seçtiğiniz klasör için de arama yapılacağını (alt klasörlerin dahil edilmeyeceğini) ve bu işlemi UserForm üzerinde yaptığınızı varsayıyorum.

Option Explicit

Private Sub CommandButton1_Click()
    Dim My_Path As String, My_File_Name As String, My_File As String
    
    If TextBox <> "" Then
        My_Path = "C:\Belgeler\"
        My_File_Name = TextBox1
        
        My_File = Dir(My_Path & "*" & My_File_Name & "*.pdf")
        
        If My_File <> "" Then
            FileCopy My_Path & My_File, CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & My_File
            MsgBox My_File & " isimli dosya kopyalandı..."
        Else
            MsgBox "Dosya bulunamadı!", vbCritical
        End If
    End If
End Sub

 

[murat_fidan]

Deneyiniz.

Sadece seçtiğiniz klasör için de arama yapılacağını (alt klasörlerin dahil edilmeyeceğini) ve bu işlemi UserForm üzerinde yaptığınızı varsayıyorum.

Option Explicit

Private Sub CommandButton1_Click()
    Dim My_Path As String, My_File_Name As String, My_File As String
   
    If TextBox <> "" Then
        My_Path = "C:\Belgeler\"
        My_File_Name = TextBox1
       
        My_File = Dir(My_Path & "*" & My_File_Name & "*.pdf")
       
        If My_File <> "" Then
            FileCopy My_Path & My_File, CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & My_File
            MsgBox My_File & " isimli dosya kopyalandı..."
        Else
            MsgBox "Dosya bulunamadı!", vbCritical
        End If
    End If
End Sub

Teşekkürler Korhan bey istenilen sonucu verdi