Skip to main content

AccessTr.neT


Vba Kodu İle Uzak Bilgisayardaki Dosyaları Kopyalama

Vba Kodu İle Uzak Bilgisayardaki Dosyaları Kopyalama

Çözüldü #1
vba kodu ile uzak bilgisayardaki dosyaları kopyalamak istiyorum. Forumdaki örnekleri inceledim. Ama bir türlü yapamadım.

Uzak bilgisayar örnek verecek olursam;

\\192.168.42.175\Koordine\Görevliler\Kaynak\ içerisinde 48 adet klasör var ve klasörler içerisinde o birime ait *.xlsx dosyaları mevcut. ( Ben örnekte Birim (1).........Birim (48) adlandırdım ama isimler farklı) Klasörlerin hepsine ayrı ayrı girip kopyalama zaman almakta ben bu xlsx dosyalarını hedef klasöre nasıl aldırabilirim?

Acaba bir Vba kod hazırlanabilse koda çitf tıklayınca benim bilgisayarımdaki D:\Belgelerim\Haftalık\ içerisine getirmek istiyorum.

Yardımcı olabilecek arkadaşlara teşekkür ederim.
.rar Kaynak.rar (Dosya Boyutu: 274,59 KB | İndirme Sayısı: 1)
yyhy, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 29/04/2021, 01:17, Düzenleyen: yyhy.
Cevapla
#2
Merhaba Sayın @yyhy

Aşağıdaki kodu dener misiniz?

Visual Basic Code
Sub RDPCopyToLocal()
  
  Dim FSO, Fldr, FSOFile, FSOFldr As Object
  Dim SourcePath, TargetPath As String
  
  SourcePath = "\\192.168.42.175\Koordine\Görevliler\Kaynak\"
  TargetPath = "D:\Belgelerim\Haftalık\"
  
  Set FSO = CreateObject("Scripting.FileSystemObject")
  Set Fldr = FSO.GetFolder(SourcePath)
  
  If FSO.FolderExists(Fldr) Then
    For Each FSOFldr In FSO.GetFolder(SourcePath).SubFolders
        For Each FSOFile In FSOFldr.Files
            If Right(FSOFile, 4) = "xlsx" Then
            FSOFile.Copy TargetPath
            End If
        Next
    Next
  End If

End Sub
Cevapla
#3
Sayın atoykan deneyip bilgi vereceğim. Yalnız şuan ağ olmadığı için kaynak ve hedef olarak bilgisayarın D sürücüsü olarak değiştireceğim. İnşallah sorun olmaz.
Kodu denedim kod çalışıyor. Sayın atoykan acaba başlangıçta şu adresten veri aktarımı yapılacak onaylıyor musunuz. İşlem bittikten sonrada şu kadar sürede şu kadar dosya aktarımı yapıldı. Şeklinde mesaj verdirebilir miyiz. Dosya adedi fazla olduğu zaman dosyalardan kaçı gelip gelmediğini bilme açısından daha uygun olacaktır.
yyhy, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 29/04/2021, 05:21, Düzenleyen: yyhy.
Cevapla
#4
Teşekkürler. Gayet güzel bir şekilde çalıştı ancak Sayın atoykan acaba başlangıçta şu adresten veri aktarımı yapılacak onaylıyor musunuz. İşlem bittikten sonrada şu kadar sürede şu kadar dosya aktarımı yapıldı. Şeklinde mesaj verdirebilir miyiz. Dosya adedi fazla olduğu zaman dosyalardan kaçı gelip gelmediğini bilme açısından daha uygun olacaktır.
yyhy, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#5
(30/04/2021 01:27)yyhy Adlı Kullanıcıdan Alıntı: Teşekkürler. Gayet güzel bir şekilde çalıştı ancak Sayın atoykan acaba başlangıçta şu adresten veri aktarımı yapılacak onaylıyor musunuz. İşlem bittikten sonrada şu kadar sürede şu kadar dosya aktarımı yapıldı. Şeklinde mesaj verdirebilir miyiz. Dosya adedi fazla olduğu zaman dosyalardan kaçı gelip gelmediğini bilme açısından daha uygun olacaktır.

Rica ederim. Bahsettiğiniz şekilde denetimler eklenebilir, ancak Site Kurallarımız gereği ve benzer sorulara cevap arayan diğer arkadaşların da etkin fayda sağlamasını teminen bu sorunuzu cevaplanmışlara taşıyıp sonlandırıyorum. Diğer sorunuz için yeni bir başlık açıp iletirseniz yardımcı olmaya çalışırız.

İyi çalışmalar.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da