Sorgu için arama sonuçları: createfolder

  1. Biolightant

    klasördeki resim dosyaları gruplama

    ...hedefKlasor = klasorYolu & "\" & dosyaGunGun If Not fso.FolderExists(hedefKlasor) Then fso.CreateFolder hedefKlasor End If ' Çakışmaları önlemek için dosya adını kontrol et yeniDosyaAdi = dosyaAdi sayac = 1...
  2. Biolightant

    klasördeki resim dosyaları gruplama

    ...oluştur hedefKlasor = klasorYolu & "\" & dosyaYili If Not fso.FolderExists(hedefKlasor) Then fso.CreateFolder hedefKlasor End If ' Çakışmaları önlemek için dosya adını kontrol et yeniDosyaAdi = dosyaAdi...
  3. M

    Çözüldü Farklı formatta yedek alma

    ...If Not ds1.FolderExists("\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_ANAYEDEKLERI") Then ds1.CreateFolder "\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_ANAYEDEKLERI" End If If ThisWorkbook.Path = "\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_ANAYEDEKLERI" Then Exit...
  4. K

    Çözüldü Farklı formatta yedek alma

    ...If Not ds.FolderExists("\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_ANAYEDEKLERI") Then ds1.CreateFolder "\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_ANAYEDEKLERI" End If If ThisWorkbook.Path = "\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_ANAYEDEKLERI" Then Exit Sub...
  5. K

    Çözüldü Şarta uyan hücre aralığını silme hk.

    ...If Not ds.FolderExists("\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_YEDEKLERI") Then ds.CreateFolder "\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_YEDEKLERI" End If If ThisWorkbook.Path = "\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_YEDEKLERI" Then Exit Sub End If...
  6. K

    kopyalamayı ve çıkış tuşunu kullanmayı engelleme

    Çok teşekkür ederim 2 nci kod işimi gördü
  7. M

    kopyalamayı ve çıkış tuşunu kullanmayı engelleme

    ...ThisWorkbook.Save If Not ds.FolderExists("\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_YEDEKLERI") Then ds.CreateFolder "\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_YEDEKLERI" End If If ThisWorkbook.Path = "\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_YEDEKLERI" Then...
  8. K

    kopyalamayı ve çıkış tuşunu kullanmayı engelleme

    ...ThisWorkbook.Save If ds.FolderExists("\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_YEDEKLERI") = False Then ds.CreateFolder "\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_YEDEKLERI" End If If ThisWorkbook.Path = "\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_YEDEKLERI" Then Exit Sub If...
  9. ahmed_ummu

    Dosyaları Başka Bir Klasöre Taşıma

    ...& "\ANAOKULLAR" ' Klasörleri kontrol et ve yoksa oluştur If Not FSO.FolderExists(ilkokullarPath) Then FSO.CreateFolder ilkokullarPath End If If Not FSO.FolderExists(anaokullarPath) Then FSO.CreateFolder anaokullarPath End If ' Klasördeki dosyaları...
  10. M

    Yazdırma alanını hücreden belirtme

    ..."dd.mm.yyyy") & " " dosyaadi = "5 - " & [B2] klasorara = nesne.FolderExists(masaustuyolu & "\" & AyAdi) If klasorara = False Then nesne.CreateFolder masaustuyolu & "\" & AyAdi 'With ActiveSheet.PageSetup.PaperSize = 281 'End With ActiveSheet.Range("$B$2:$R$29").ExportAsFixedFormat...
  11. B

    Yedek Alma Problemi

    Merhaba. Diğer bilgisayarda da klasör yolu aynı değilse hata verir. Aşağıdaki klasör yolunu kontrol edin laptop'ta. Klasor = "c:\Yedekler" ds.CreateFolder "E:\MUHASEBE PROĞRAMI"
  12. K

    Yedek Alma Problemi

    ...ThisWorkbook.Save ds.CopyFile ThisWorkbook.FullName, yol If ds.FolderExists("E:\MUHASEBE PROĞRAMI") = False Then ds.CreateFolder "E:\MUHASEBE PROĞRAMI" End If If ThisWorkbook.Path = "E:\MUHASEBE PROĞRAMI" Then Exit Sub If MsgBox("Dosyanın yedeğini almak istiyor musunuz?", vbInformation +...
  13. M

    Sayfayı Outlook Mail Taslaklarına Kaydetme

    ...fs = CreateObject("Scripting.FileSystemObject") ' Dizin yoksa oluştur If Not fs.FolderExists(folderPath) Then fs.CreateFolder folderPath End If ' Taslağı belirli dizine kaydet mailItem.SaveAs folderPath & "\" & "ExcelToPDFDraft.msg" ' Nesneleri...
  14. B

    Makro ile Mail gönderirken mail hesabı seçimi

    ...Error GoTo bb ChDir Environ("UserProfile") & "\Desktop\" Dim Ds Set Ds = CreateObject("Scripting.FileSystemObject") Ds.CreateFolder Environ("UserProfile") & "\Desktop\PDF" bb: Mail = InputBox("Mail Adresini giriniz", "Mail Adresi?") Kontrol = MsgBox("Mail " & Mail & "...
  15. B

    Seçili sekmeleri PDF yapma

    çok teşekkürler oldu bu
  16. A

    Seçili sekmeleri PDF yapma

    ...GoTo hata ChDir Environ("UserProfile") & "\Desktop\" Dim Ds Set Ds = CreateObject("Scripting.FileSystemObject") Ds.CreateFolder Environ("UserProfile") & "\Desktop\PDF" Bas: Yol = Environ("UserProfile") & "\Desktop\PDF\" Dim syf As Worksheet For Each syf In...
  17. B

    Seçili sekmeleri PDF yapma

    ...= Now On Error GoTo hata ChDir Environ("UserProfile") & "\Desktop\" Dim Ds Set Ds = CreateObject("Scripting.FileSystemObject") Ds.CreateFolder Environ("UserProfile") & "\Desktop\PDF" Bas: yol = Environ("UserProfile") & "\Desktop\PDF\" For Each syf In ActiveWindow.SelectedSheets...
  18. C

    makro da farklı kaydetme işlemi ile dosya adı değiştirme

    ...& "\" & MonthName(Month(Sheets("GÜNLÜK DEV.FAAL.").Range("P2"))) If Not Dosya.FolderExists(yol) Then Dosya.CreateFolder (yol) End If If Not Dosya.FolderExists(yılyol) Then Dosya.CreateFolder (yılyol) End If If Not Dosya.FolderExists(ayyol) Then Dosya.CreateFolder...
  19. C

    makro da farklı kaydetme işlemi ile dosya adı değiştirme

    ...& "\" & MonthName(Month(Sheets("GÜNLÜK DEV.FAAL.").Range("P2"))) If Not Dosya.FolderExists(yol) Then Dosya.CreateFolder (yol) End If If Not Dosya.FolderExists(yılyol) Then Dosya.CreateFolder (yılyol) End If If Not Dosya.FolderExists(ayyol) Then Dosya.CreateFolder...
  20. C

    makro da farklı kaydetme işlemi ile dosya adı değiştirme

    ...= CreateObject("Scripting.FileSystemObject") yol = "C:\DEVRİYE TAKİP ÇİZELGELERİ" If Not Dosya.FolderExists(yol) Then Dosya.CreateFolder (yol) End If File_Name = yol & "\" & Sheets("GÜNLÜK DEV.FAAL.").Range("P2") & " TARİHLİ " & Sheets("GÜNLÜK DEV.FAAL.").Range("B5") & " DEVRİYE...
Üst