Textboxtaki dosya yolunu kullanarak Kes Yapıştır Yapma

[Kavinsky]

Herkese merhaba,
Userform1 içinde mevcut olan TextBox6 kutusunun içine yapıştırdığım dosya yoluna ait dosyayı keserek

C:\Evrak

konumuna yapıştırmak istiyorum. Mümkün müdür ?

 

[mesuttasar]

Aşağıdaki şekilde deneyin.

Sub DosyaKopyalaYapistir()
    Dim DosyaYolu As String
    Dim YeniKonum As String
    
    ' TextBox6'daki dosya yolu
    DosyaYolu = UserForm1.TextBox6.Value
    
    ' C:\Evrak konumuyla birleştir
    YeniKonum = "C:\Evrak\" & Dir(DosyaYolu)
    
    ' Dosya varsa kopyalayın
    If Len(DosyaYolu) > 0 And Dir(DosyaYolu) <> "" Then
        Dim fso As Object
        Set fso = CreateObject("Scripting.FileSystemObject")
        fso.CopyFile DosyaYolu, YeniKonum
        MsgBox "Dosya başarıyla kopyalandı!"
    Else
        MsgBox "Dosya bulunamadı veya geçerli bir dosya yoluna sahip değil."
    End If
End Sub

 

[Kavinsky]

Mesut hocam öncelikle ellerinize sağlık istediğim gibi oldu. Lakin bir sorun var mümkün müdür bilmiyorum.
C:\Evrak\ Yolunda kaydediyor ya , yine aynı yolda fakat bu yolun içinde PANEL isimli sayfada B3 hücresinde yazan veriyle aynı olan klasörün içine koyabilir mi bunu ?
Bir de kopyalayarak yapıştırıyor , kes yapıştır olarak yapabiliyor mu ?

PANEL sayfasında B3 hücresinde MESUT yazıyor diyelim

C:\Evrak\MESUT\ içine atsın. Mümkün müdür ?

 

[mesuttasar]

Tam anlayamadım son mesajınızda ama aşağıdaki kodları dener misiniz?

Kesip kopyalama sorunuza cevabende, scripting ile sadece kopyalama işlemi yapılıyor diye biliyorum.

Sub DosyaKopyalaYapistir()
    Dim DosyaYolu As String
    Dim DosyaYolu2 As String
    Dim YeniKonum As String
  
    ' TextBox6'daki dosya yolu
    DosyaYolu = UserForm1.TextBox6.Value
  
    'Panel Sayfasındaki B3 hücresindeki değer
    DosyaYolu2 = Sheets("PANEL").Range("A3")
  
    ' C:\Evrak konumuyla birleştir
    YeniKonum = "C:\Evrak\" & "DosyaYolu2" & "\" & Dir(DosyaYolu)
  
    ' Dosya varsa kopyalayın
    If Len(DosyaYolu) > 0 And Dir(DosyaYolu) <> "" Then
        Dim fso As Object
        Set fso = CreateObject("Scripting.FileSystemObject")
        fso.CopyFile DosyaYolu, YeniKonum
        MsgBox "Dosya başarıyla kopyalandı!"
    Else
        MsgBox "Dosya bulunamadı veya geçerli bir dosya yoluna sahip değil."
    End If
End Sub

 

[Haluk]

....... sadece scripting ile sadece kopyalama işlemi yapılıyor diye biliyorum.

"MoveFile" metodu var....

Move Files with VBA FileSystemObject (MoveFile) - Automate Excel

.

 

[mesuttasar]

Haluk bey teşekkür ederim, yeni bir şey daha öğrendim.
Sayın Kavinsky aşağıdaki kodları dener misiniz?

Sub DosyaKopyalaYapistir()
    Dim DosyaYolu As String
    Dim DosyaYolu2 As String
    Dim YeniKonum As String
 
    ' TextBox6'daki dosya yolu
    DosyaYolu = UserForm1.TextBox6.Value
 
    'Panel Sayfasındaki B3 hücresindeki değer
    DosyaYolu2 = Sheets("PANEL").Range("A3")
 
    ' C:\Evrak konumuyla birleştir
    YeniKonum = "C:\Evrak\" & "DosyaYolu2" & "\" & Dir(DosyaYolu)
 
    ' Dosya varsa kopyalayın
    If Len(DosyaYolu) > 0 And Dir(DosyaYolu) <> "" Then
        Dim fso As Object
        Set fso = CreateObject("Scripting.FileSystemObject")
        fso.MoveFile DosyaYolu, YeniKonum
        MsgBox "Dosya başarıyla kopyalandı!"
    Else
        MsgBox "Dosya bulunamadı veya geçerli bir dosya yoluna sahip değil."
    End If
End Sub

 

[Kavinsky]

Çok teşekkür ederim sayın @mesuttasar & @Haluk hocam.