Sorgu için arama sonuçları: createfolder

..."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...

Merhaba Arkadaşlar, Sub Klasor_Olustur() Dim ds kls = "Yedek" Set ds = CreateObject("Scripting.FileSystemObject") ds.CreateFolder "C:\Users\user\Desktop\BASKI\" & kls End Sub Yukarıdaki makro BASKI klasörünün içine Yedek adlı klasör oluşturuyor. Oluşturulan bu klasörü nasıl görünmez, gizli ve...

...ds = CreateObject("Scripting.FileSystemObject") ThisWorkbook.Save If ds.FolderExists("YEDEKLER") = False Then ds.CreateFolder "YEDEKLER" End If If ThisWorkbook.Path = "YEDEKLER" Then Exit Sub yol = "YEDEKLER\" & Replace(Now, ":", "_") & "-"...

...Time Set ds = CreateObject("Scripting.FileSystemObject") ThisWorkbook.Save If ds.FolderExists("G:\Hikmet\Proje YEDEK\") = False Then ds.CreateFolder "G:\Hikmet\Proje YEDEK\" End If If ThisWorkbook.Path = "G:\Hikmet\Proje YEDEK" Then Exit Sub If zaman1 = zaman2 Then tarih =...

...öğreneceğime inanıyorum. Sub Klasor_Olustur() Dim ds kls = Range("B12").Value Set ds = CreateObject("Scripting.FileSystemObject") ds.CreateFolder "D:\" & kls End Sub Yukarıdaki kod B12 hücresinde yazılı olan isimli kodu köke açıyor. Sorunum şu, kökte aynı isimli klasör varsa hata vermesin...

...= "D:\GÖNDERİLEN RAPORLAR\" & Year(Range("O1")) & "\" & MonthName(Month(Range("O1"))) 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...

..."Klasör Oluşturma Onayı") If cevap = vbYes Then Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.CreateFolder("C:\Teklif") End If End If dosyaismi = teklifId & "-" & FirmaUnvan Dim bukitap As Worksheet, okitap As Workbook Set bukitap =...

...& Cells(i, "a") a = kls.FolderExists(yol) If a = True Then MsgBox yol & " ayni klasor daha once olusturulmus", 256, "UYARI" Else kls.CreateFolder yol End If Next i MsgBox "Folder has been created" Set ds = Nothing End Sub Sorum şudur Bu oluşturduğum klasör örneğin SA0001 klasörü içerisine...

...yol, a Set kls = CreateObject("Scripting.FileSystemObject") For i = 2 To [a65536].End(3).Row yol = "C:\" & Cells(i, "C") a = kls.FolderExists(yol) If a = True Then Else kls.CreateFolder yol End If Next i MsgBox "Klasörler Oluşturuldu" Set ds = Nothing End Sub Yardımcı olursanız çok sevinirim :)

...'Next i '............... a = FSO.FolderExists("C:\deneme") If a = True Then yol = CurDir Klasor_Adi = (FSO.GetBaseName(yol)) FSO.createfolder "C:\deneme\" & Klasor_Adi FSO.copyfolder CurDir, "C:\deneme\" & Klasor_Adi MsgBox "deneme klasörüne Dosyalar kopyalandı.", vbInformation Else...

...bu klasörü açmayı denesin fakat klasör var ise hata mesajı vermeden diğer makrolar çalışmaya devam etsin istiyorum. Umarım anlatabilmişimdir. Yardımlara şimdiden teşekkürler. Sub Klasör_Oluştur() Dim ds Set ds = CreateObject("Scripting.FileSystemObject") ds.CreateFolder "C:\DENEME" 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 +...

...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 +...

...araştırma yapım klasör oluşturma ile ilgili aşağıdaki kodları gördüm heryerde Set ds = CreateObject("Scripting.FileSystemObject") ds.CreateFolder alıp kullanınca çalışıyor, sorun yok ama tam anlamıyla ne işe yaradığını idrak edemedim bu kodların. ne diyor bu kod, bilen bir arkadaş kelime...

...As Boolean) Set ds = CreateObject("Scripting.FileSystemObject") ThisWorkbook.Save If ds.FolderExists("D:\YEDEK DEFTER") = False Then ds.CreateFolder "D:\YEDEK DEFTER" End If Set s1 = Sheets("Sayfa2") ActiveWorkbook.SaveAs Filename:="D:\YEDEK DEFTER\" & s1.[a8] & " - " & ActiveWorkbook.Name &...

...Set ds = CreateObject("Scripting.FileSystemObject") x = Dosya_Yolu & "\" & Dosya_Adı a = ds.FolderExists(x) If a <> True Then ds.CreateFolder x End If If Len(Dosya_Yolu) <= 3 Then Dosya_Yolu = Replace(Dosya_Yolu, "\", "") Sheets(Array("Sap")).Copy ActiveWorkbook.SaveAs Filename:="" & x & "\"...

...Set ds = CreateObject("Scripting.FileSystemObject") X = Dosya_Yolu & "\" & Dosya_Adı a = ds.FolderExists(X) If a <> True Then ds.CreateFolder X End If If Len(Dosya_Yolu) <= 3 Then Dosya_Yolu = Replace(Dosya_Yolu, "\", "") Sheets(Array("PRO", "Kredi Değ.", "ÖZKAYNAK", "TRM.KRD"...

...If Not CreateObject("Scripting.FileSystemObject").FolderExists(kaynak) Then CreateObject("Scripting.FileSystemObject").CreateFolder (kaynak) End If If Worksheets("Sipariş").Range("B6") = "" Then MsgBox "Kayıt Yapılacak Veri Bulunamadı.", vbInformation, " BİLGİ"...