Soru Şarta göre kopyalama

[ozuberk]

Merhaba,

“C:\Users\kullanıcı\Desktop\A” klasöründe isim uzunluğu “001234, 001249” altı karakter olan pdf dosyalarını “C:\Users\kullanıcı\Desktop\B” klasörüne kopyalamak istiyorum.
Not: İsminde “001290 Deneme” yazanları almayacak.

Teşekkürler, kolay gelsin.

 

[Necdet]

Merhaba,
Soruyu ChatGPT'ye sordum yanıtı :

Sub KopyalaPDFDosyalari()
    Dim KaynakKlasor As String
    Dim HedefKlasor As String
    Dim DosyaAdi As String
    Dim DosyaUzunlugu As Integer
    Dim Dosya As String
    
    ' Kaynak ve Hedef Klasör Yollarını Ayarlayın
    KaynakKlasor = "C:\Users\kullanıcı\Desktop\A\"
    HedefKlasor = "C:\Users\kullanıcı\Desktop\B\"
    
    ' Kaynak klasördeki dosyaları döngüye alın
    Dosya = Dir(KaynakKlasor & "*.pdf")
    
    ' Dosyaları döngüye alın
    Do While Dosya <> ""
        ' Dosya adının uzunluğunu hesaplayın
        DosyaAdi = Left(Dosya, Len(Dosya) - 4) ' ".pdf" uzantısını kaldırın
        DosyaUzunlugu = Len(DosyaAdi)
        
        ' Uzunluğu 6 karakter olan dosyaları kopyala
        If DosyaUzunlugu = 6 Then
            FileCopy KaynakKlasor & Dosya, HedefKlasor & Dosya
        End If
        
        ' Bir sonraki dosyaya geçin
        Dosya = Dir
    Loop
    
    MsgBox "PDF dosyaları başarıyla kopyalandı.", vbInformation
End Sub

 

[ozuberk]

Merhaba Necdet hocam emeğinize sağlık kod doğru çalışıyor.

 

[Necdet]

Merhaba Necdet hocam emeğinize sağlık kod doğru çalışıyor.

Ben bir şey yapmadım, sadece yapay zekaya sordum

 

[Erdogan3434]

Merhaba,
Soruyu ChatGPT'ye sordum yanıtı :

Sub KopyalaPDFDosyalari()
    Dim KaynakKlasor As String
    Dim HedefKlasor As String
    Dim DosyaAdi As String
    Dim DosyaUzunlugu As Integer
    Dim Dosya As String
   
    ' Kaynak ve Hedef Klasör Yollarını Ayarlayın
    KaynakKlasor = "C:\Users\kullanıcı\Desktop\A\"
    HedefKlasor = "C:\Users\kullanıcı\Desktop\B\"
   
    ' Kaynak klasördeki dosyaları döngüye alın
    Dosya = Dir(KaynakKlasor & "*.pdf")
   
    ' Dosyaları döngüye alın
    Do While Dosya <> ""
        ' Dosya adının uzunluğunu hesaplayın
        DosyaAdi = Left(Dosya, Len(Dosya) - 4) ' ".pdf" uzantısını kaldırın
        DosyaUzunlugu = Len(DosyaAdi)
       
        ' Uzunluğu 6 karakter olan dosyaları kopyala
        If DosyaUzunlugu = 6 Then
            FileCopy KaynakKlasor & Dosya, HedefKlasor & Dosya
        End If
       
        ' Bir sonraki dosyaya geçin
        Dosya = Dir
    Loop
   
    MsgBox "PDF dosyaları başarıyla kopyalandı.", vbInformation
End Sub

Hocam Kaynak ve Hedef klasörlere kullanıcı adı yazmadan herhangi bir bilgisayarın masaüstünde çalışması için nasıl düzenleyebiliriz?

 

[Necdet]

Hocam Kaynak ve Hedef klasörlere kullanıcı adı yazmadan herhangi bir bilgisayarın masaüstünde çalışması için nasıl düzenleyebiliriz?

Network ortamından söz ediyorsunuz sanırım.
bilgisayarın adresi ve kullanıcı adı vs gerekli diye biliyorum.

 

[Erdogan3434]

Tam olarak network ortamı değil hocam. Bir çalışma içerisinde bir parça olarak kullanacağım. Bu çalışmayı farklı lokal bilgisayarlarda kullanacak. Her bilgisayar için ayrı ayrı kullanıcı profili yazmama gerek olmadan kullanabilir miyim diye sordum?

 

[Necdet]

Anladım yol olarak belirtebilirsiniz.7

Linki inceleyiniz. Masaüstünün yolunu anlamanın yolu.

 

[DoğanD]

Merhaba,

Alternatif olarak; A ve B klasörlerinin tüm kullanıcılarda Masaüstünde olacağını varsayarak, aşağıdaki gibi de deneyebilirsiniz

KaynakKlasor = "C:\Users\" & environ("Username") & "\Desktop\A\"
HedefKlasor = "C:\Users\" & environ("Username") & "\Desktop\B\"

 

[Erdogan3434]

Merhaba,

Alternatif olarak; A ve B klasörlerinin tüm kullanıcılarda Masaüstünde olacağını varsayarak, aşağıdaki gibi de deneyebilirsiniz

KaynakKlasor = "C:\Users\" & environ("Username") & "\Desktop\A\"
HedefKlasor = "C:\Users\" & environ("Username") & "\Desktop\B\"

Tam istediğim gibi oldu çok teşekkürler.