Sorgu için arama sonuçları: createfolder

...Set ds = CreateObject("Scripting.FileSystemObject") ThisWorkbook.Save yer = "D:\PDF_YEDEKLERİ" If ds.FolderExists(yer) = False Then ds.CreateFolder yer End If If ThisWorkbook.Path = yer Then Exit Sub If MsgBox("Dosyanın yedeğini almak istiyor musunuz?", vbInformation + vbYesNo, "DURUM") =...

...yol = Sayfa2.Range("A2") '------------ Make folder-------------- kvar = FSO.FolderExists(yol) If kvar <> True Then FSO.CreateFolder yol End If '------------ pro ayarlar-------------- Application.ScreenUpdating = False Application.DisplayAlerts = False DoEvents ' userformun düzgün...

...yol = Sayfa2.Range("A2") '------------ Make folder-------------- kvar = FSO.FolderExists(yol) If kvar <> True Then FSO.CreateFolder yol End If '------------ pro ayarlar-------------- Application.ScreenUpdating = False Application.DisplayAlerts = False DoEvents ' userformun düzgün...

...Set ds = CreateObject("WScript.Shell") gds = ds.SpecialFolders("Desktop") If cs.FolderExists(gds & "\KASA YEDEKLERİ") = False Then cs.CreateFolder gds & "\" & "KASA YEDEKLERİ" If cs.FolderExists(gds & "\KASA YEDEKLERİ\") = False Then cs.CreateFolder gds & "\KASA YEDEKLERİ\" If...

...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("Dosyanın yedeğini almak istiyor musunuz?", vbInformation +...

...ThisWorkbook.Save yer = Environ("USERPROFILE") & "\DESKTOP\YEDEK" If ds.FolderExists(yer) = False Then ds.CreateFolder yer End If If ThisWorkbook.Path = yer Then Exit Sub If MsgBox("Dosyanın yedeğini almak istiyor musunuz?", vbInformation + vbYesNo, "DURUM") = vbNo Then MsgBox "İptal...

...ThisWorkbook.Save yer = Environ("USERPROFILE") & "\DESKTOP\YEDEK" If ds.FolderExists(yer) = False Then ds.CreateFolder yer End If DosyaAdi = ThisWorkbook.FullName uzanti = "." & ds.GetExtensionName(DosyaAdi) yol = yer & "/" & Format(Now, " dd.mm.yyyy hh_nn_ss") & uzanti ds.CopyFile DosyaAdi...

...ThisWorkbook.Save yer = Environ("USERPROFILE") & "\DESKTOP\YEDEK" If ds.FolderExists(yer) = False Then ds.CreateFolder yer End If If ThisWorkbook.Path = yer Then Exit Sub If MsgBox("Dosyanın yedeğini almak istiyor musunuz?", vbInformation + vbYesNo, "DURUM") = vbNo Then MsgBox "İptal...

..." & [J8] dosyaadi = [J8] & " Üretim Raporu " klasorara = nesne.FolderExists(masaustuyolu & "\" & AyAdi) If klasorara = False Then nesne.CreateFolder masaustuyolu & "\" & AyAdi ActiveSheet.Range("$B$3:$AD$81").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ masaustuyolu & "\" &...

...Next Dim ds klasor = [b65536].End(3).Row altklasor = Range("b" & klasor).Value Set ds = CreateObject("Scripting.FileSystemObject") ds.CreateFolder "C:\anaevrakklasoru\" & altklasor MsgBox "kişinin tc nosu ile - anaevrakklasoru - altında bir altklasör oluşturuldu" ThisWorkbook.Save End Sub...

...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("Dosyanın yedeğini almak istiyor musunuz?", vbInformation +...

Merhaba Arkadaşlar, Sub Klasor_Olustur() Dim ds kls = [W8] Set ds = CreateObject("Scripting.FileSystemObject") ds.CreateFolder kls End Sub Bu makro klasör oluşturmaya yarar, güzel yanı W8 hücresinde adı yazılı klasörü oluşturur. Bu klasör varsa işine devam etmesini sağlamak üzere If...

...ds = CreateObject("WScript.Shell") gds = ds.SpecialFolders("Desktop") If cs.FolderExists(gds & "\KASA YEDEKLERİ") = False Then cs.CreateFolder gds & "\" & "KASA YEDEKLERİ" If cs.FolderExists(gds & "\KASA YEDEKLERİ\") = False Then cs.CreateFolder gds & "\KASA YEDEKLERİ\" ChDir gds &...

...ds = CreateObject("WScript.Shell") gds = ds.SpecialFolders("Desktop") If cs.FolderExists(gds & "\KASA YEDEKLERİ") = False Then cs.CreateFolder gds & "\" & "KASA YEDEKLERİ" If cs.FolderExists(gds & "\KASA YEDEKLERİ\PDF FORMATI") = False Then cs.CreateFolder gds & "\KASA YEDEKLERİ\" & "PDF...

..."dd.mm.yyyy") klasorara = nesne.FolderExists(masaustuyolu & "\eğitim katılım formları\" & isim) If klasorara = False Then nesne.CreateFolder masaustuyolu & "\eğitim katılım formları\" & isim nesne.CreateFolder masaustuyolu & "\eğitim katılım formları\" & isim & "\" & klasoradi...

...= ds.FolderExists("C:\" & "\" & "MTSK BANKA") If a = False Then MsgBox "MTSK BANKA ADLI klasör yok MTSK BANKA adıyla oluşturulacak " ds.CreateFolder "C:\" & "\" & "MTSK BANKA" MsgBox "C:\DE MTSK BANKA KLASÖRÜ OLUŞTURULDU" End If If Val(Application.Version) < 12 Then FileExtStr = ".xls"...

...Long Dim dosya, bak Set dosya = CreateObject("Scripting.FileSystemObject") For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row bak = dosya.FolderExists("C:\ÇALIŞMA\" & Range("A" & i)) If bak <> True Then dosya.CreateFolder "C:\ÇALIŞMA\" & Range("A" & i) End If Next i...

..."dd.mm.yyyy") & " " & [AR4] dosyaadi = [AR4] klasorara = nesne.FolderExists(masaustuyolu & "\" & AyAdi) If klasorara = False Then nesne.CreateFolder masaustuyolu & "\" & AyAdi ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ masaustuyolu & "\" & AyAdi & "\" & dosyaadi &...

...'MsgBox ("Dnm1 Mevcut..."), vbOKOnly Else If Dir$("*.exe") = "" Then 'MsgBox " exe dosya yok..!", vbCritical Else ds001.CreateFolder ("Dnm1") ds001.CreateFolder ("Dnm2") ds001.CreateFolder ("Dnm3") ... ... diğer kodlar.. Aktif dizin içinde 1- şart = Dnm1 klasörü yok ise ...

...yol = "C:\Users\asus\Desktop\" & Workbooks(1).Sheets("FATURA").Range("l2") If Not Dosya.FolderExists(yol) Then Dosya.CreateFolder (yol) End If ActiveWorkbook.SaveAs yol & "\" & Workbooks(1).Sheets("FATURA").Range("l1") ActiveWorkbook.Close Application.DisplayAlerts = True End Sub...