Sorgu için arama sonuçları: createfolder

...As Boolean) Set ds = CreateObject("Scripting.FileSystemObject") ThisWorkbook.Save If ds.FolderExists("D:\YEDEKLER") = False Then ds.CreateFolder "D:\YEDEKLER" End If If ThisWorkbook.Path = "D:\YEDEKLER" Then Exit Sub If MsgBox(" Soruyor ... Dosyanın yedeğini D:\Yedek\ Dizinine almak istiyor...

...Exit Sub Set fl = CreateObject("Scripting.FileSystemObject") yol = ThisWorkbook.Path & "\Resimler\" If Not fl.FolderExists(yol) Then fl.CreateFolder (yol) End If say = fl.getfolder(yol).Files.Count + 1 SavePicture IPic, yol & "\Resim " & say & ".bmp" Set IPic = Nothing OpenClipboard (0&)...

...yol = ThisWorkbook.Path & "\Resimler\" If Not Dosya_Sistemi.FolderExists(yol) Then Dosya_Sistemi.CreateFolder (yol) End If say = CreateObject("Scripting.FileSystemObject").getfolder(yol).Files.Count + 1 SavePicture IPic, yol & "\Resim " & say & ".bmp" Set IPic = Nothing End Sub Sub...

...yol = masaustuyolu & "\" & Format(Date, "yyyy") & " Üretim Raporları" If nesne.FolderExists(yol) = False Then nesne.CreateFolder yol altklas = Format(Date, "dd.mm.yyyy") & " " & " - " & [B11] yol = yol & "\" & altklas If nesne.FolderExists(yol) = False Then nesne.CreateFolder yol...

...yol = masaustuyolu & "\" & Format(Date, "yyyy") & " Üretim Raporları" If nesne.FolderExists(yol) = False Then nesne.CreateFolder yol altklas = Format(Date, "dd.mm.yyyy") & " " & " - " & [B11] yol = yol & "\" & altklas If nesne.FolderExists(yol) = False Then nesne.CreateFolder yol...

...yol = masaustuyolu & "\" & Format(Date, "yyyy") & " Üretim Raporları" If nesne.FolderExists(yol) = False Then nesne.CreateFolder yol altklas = Format(Date, "dd.mm.yyyy") & " " & " - " & [B11] yol = yol & "\" & altklas If nesne.FolderExists(yol) = False Then nesne.CreateFolder yol...

...C:\ebyn\sablon\ Klasörü altına eklenmiştir." End Sub Sub Klasor_Olustur() Dim ds, _ kls As String kls = "sablon" Set ds = CreateObject("Scripting.FileSystemObject") If ds.FolderExists("C:\" & kls) = False Then ds.CreateFolder "C:\" & kls End Sub

...ThisWorkbook.Sheets("Sayfa1").Cells(3, 6).Text klasorara = nesne.FolderExists(Yol & "\" & ayadi) If klasorara = False Then nesne.CreateFolder Yol & "\" & ayadi nesne.CreateFolder Yol & "\" & ayadi & "\" & klasoradi ThisWorkbook.SaveAs Filename:=Yol & "\" & ayadi & "\" &...

...6).Text klasorara = nesne.FolderExists(masaustuyolu & "\" & ayadi) If klasorara = False Then nesne.CreateFolder masaustuyolu & "\" & ayadi nesne.CreateFolder masaustuyolu & "\" & ayadi & "\" & klasoradi ThisWorkbook.SaveAs FileName:=masaustuyolu & "\" & ayadi & "\" & klasoradi & "\" &...

Merhaba Levent Bey, Aynı işlemi desktop yerine ağ içinde bir adres vererek denediğimde olmuyor. Ağ, şirketin kullandığı ortak bir ağ . Ağ adresini yazdığımda Thispc içerisinde C sürücüsüne atıyor. Bu yazdığınız kodu ağda oluşturmak için nasıl kullanabilirim? Teşekkürler

Teşekkür ederim hocam, tam istediğim gibi oldu.

..."dd.mm.yyyy") & " Stok Sayım Raporu" klasorara = nesne.FolderExists(masaustuyolu & "\" & AyAdi) If klasorara = False Then nesne.CreateFolder masaustuyolu & "\" & AyAdi ActiveSheet.Range("$B$3:$AK$65").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ masaustuyolu...

Merhaba, 400 Hatası verdi hocam

..."dd.mm.yyyy") & " Stok Sayım Raporu" klasorara = nesne.FolderExists(masaustuyolu & "\" & AyAdi) If klasorara = False Then nesne.CreateFolder masaustuyolu & "\" & AyAdi ActiveSheet.Range("$B$3:$AK$65").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ masaustuyolu & "\" & dosyaadi &...

..."dd.mm.yyyy") & " Stok Sayım Raporu" klasorara = nesne.FolderExists(masaustuyolu & "\" & AyAdi) If klasorara = False Then nesne.CreateFolder masaustuyolu & "\" & AyAdi ActiveSheet.Range("$B$3:$AK$65").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ masaustuyolu & "\" & dosyaadi &...

Teşekkür Ederim

Teşekkür ederim

...& " Stok Sayım Raporu" klasorara = nesne.FolderExists(masaustuyolu & "\" & AyAdi) If klasorara = False Then nesne.CreateFolder masaustuyolu & "\" & AyAdi ActiveSheet.Range("$B$3:$AK$65").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _...

..."dd.mm.yyyy") & " Stok Sayım Raporu" klasorara = nesne.FolderExists(masaustuyolu & "\" & AyAdi) If klasorara = False Then nesne.CreateFolder masaustuyolu & "\" & AyAdi ActiveSheet.Range("$B$3:$AK$65").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ masaustuyolu...

..."dd.mm.yyyy") & " Stok Sayım Raporu" klasorara = nesne.FolderExists(masaustuyolu & "\" & AyAdi) If klasorara = False Then nesne.CreateFolder masaustuyolu & "\" & AyAdi ActiveSheet.Range("$B$3:$AK$65").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ masaustuyolu & "\" & dosyaadi &...