Klasör Kopyalama/Yedekleme

[işsiz123]

Arkadaşlar Hayırlı Akşamlar;
Şimdi bir klasör içinde belirli alt klasör kopyalayıp tek klasöre kaydedebilir miyiz.
Örnek olarak
C:\Users\M.Emin\Desktop\arşiv alt klasörler var textbox aaa yazsak

‪C:\Users\M.Emin\Desktop\arşiv\a1
‪C:\Users\M.Emin\Desktop\arşiv\a2
‪C:\Users\M.Emin\Desktop\arşiv\a3
‪C:\Users\M.Emin\Desktop\arşiv\a4
‪C:\Users\M.Emin\Desktop\arşiv\a5

klasörlerinin içinde aaa klasörlerini kopyalayıp

‪C:\Users\M.Emin\Desktop\arşiv\yedek\a1
‪C:\Users\M.Emin\Desktop\arşiv\yedek\a2
‪C:\Users\M.Emin\Desktop\arşiv\yedek\a3
‪C:\Users\M.Emin\Desktop\arşiv\yedek\a4
‪C:\Users\M.Emin\Desktop\arşiv\yedek\a5

klasörüne kaydedecek. İnşaallah anlatabilmişimdir.

 

[askm]

Örnek dosya eklerseniz çözüm daha kolay olabilir. Deneme imkanı olur.

 

[askm]

Sanırım istediğiniz bu şekilde bir işlem.
Öncelikle Yedek isminde bir klasor oluşturuyor. Yedek klasörüne klasörleri ve içindekileri alıyor. Sonra Yedek klasörünü bu klasörün içerisine alıyor.

Sub ASKM_Klasor_Yedekle()
Dosya1 = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\arşiv"
Yedek1 = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Yedek"
On Error Resume Next
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
If DizinKontrol(CStr(Yedek1)) Then
Else
    MkDir Yedek1
End If
objFSO.copyFolder Dosya1, Yedek1, True
objFSO.MoveFolder Yedek1, Dosya1 & "\"
MsgBox "Yedekleme işlemi tamamlandı...", vbInformation, "ASKM"
End Sub



Public Function DizinKontrol(strFullPath As String) As Boolean

    On Error GoTo EarlyExit
    If Not Dir(strFullPath, vbDirectory) = vbNullString Then DizinKontrol = True
    
EarlyExit:
    On Error GoTo 0
End Function

 

[işsiz123]

Sayın askm TEŞEKKÜRLER
normal bilgisayarda klasörlerde oluyor ancak ben telefondan klasöründen çekmeye çalıştım klasörleri almadı acaba telefon izin vermiyor mu

 

[askm]

Telefonda denemedim.

 

[işsiz123]

.bat dosyasında da denedim olmadı

@echo off

cd C:\Users\M.Emin\Desktop\arşiv\yedek\a1
set folder=%date:~10,4%%date:~4,2%%date:~7,2%
mkdir %folder%
cd C:\Users\M.Emin\Desktop\arşiv\yedek\a1\%folder%

mkdir 638


                                                                    
xcopy /s /e ‪C:\Users\M.Emin\Desktop\arşiv\a1 C:\Users\M.Emin\Desktop\arşiv\yedek\a1\%folder%\638

bu .bat kodu da aynı normal bilgisayarda çalışıyor telefonda çalışmıyor TEKRARDAN TEŞEKKÜRLER

 

[Haluk]

Arkadaşım ..... size önerilen VBA kodları ve yazdığınızı söylediğiniz BAT kodları bilgisayarların Windows platformu içindir.

Bilgisayarda çalışan bir kodun telefonun işletim sisteminde çalışmasını beklemeyin.

.

 

[askm]

Haluk Bey. Ben telefondan bilgisayara veri alma olarak düşmüştüm. O yüzden denemedim yazdım.

 

[işsiz123]

Arkadaşım ..... size önerilen VBA kodları ve yazdığınızı söylediğiniz BAT kodları bilgisayarların Windows platformu içindir.

Bilgisayarda çalışan bir kodun telefonun işletim sisteminde çalışmasını beklemeyin.

.

Haluk bey merhabar
Benim yapmak istediğim telefonu usb ile bilgisayara bağlayıp telefon içindeki belirli klasörleri bilgisayara yedeklemek Saygılar

 

[işsiz123]

Eski tip telefonlarda kopyalama oluyor ancak yeni telefonlarda olmuyor