Sorgu için arama sonuçları: createfolder

...öğ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İ"...

...If Not CreateObject("Scripting.FileSystemObject").FolderExists("C:\YEDEK") Then CreateObject("Scripting.FileSystemObject").CreateFolder ("C:\YEDEK") End If Sheets(Array("ekders", "ekders2")).Copy Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="C:\YEDEK\"...

...If Not CreateObject("Scripting.FileSystemObject").FolderExists(Dosya_Yolu) Then CreateObject("Scripting.FileSystemObject").CreateFolder (Dosya_Yolu) End If Veri_Dosyası.Sheets("geçici").Columns("B:B").AdvancedFilter Action:=xlFilterCopy...

Forumda bulamadım...Bu şekilde klasör oluşturamıyormuyuz.... Set ds = CreateObject("Scripting.FileSystemObject") ds.CreateFolder "c:\osman\ahmet\mehmet\ali\veli\deli\sakine" veya If Dir(MyFilePath2, vbDirectory) = Empty Then MkDir "c:\osman\ahmet\mehmet\ali\veli\deli\sakine"

...= CreateObject("Scripting.FileSystemObject") If Not Dosya_Sistemi.FolderExists(Dosya_Yolu) Then Dosya_Sistemi.CreateFolder (Dosya_Yolu) End If Application.ScreenUpdating = False If Dir(Dosya_Yolu & Application.PathSeparator & Dosya_Adı & ".xls"...

...= "" & Format(Worksheets("Sayfa1").Range("A1").Value, "mmmm") & "" klasor = "ARŞİV" If Not evn.FolderExists(yol & klasor) Then evn.CreateFolder yol & klasor ActiveWorkbook.SaveCopyAs Filename:=yol & klasor & "\" & dosya & ".xls" Else ActiveWorkbook.SaveCopyAs Filename:=yol &...

...a = dd.FolderExists("C:\Documents and Settings\sengul.demir\Desktop\" & Date & "-Gelen Siparişler") If a = True Then GoTo 10 ds.createfolder "C:\Documents and Settings\sengul.demir\Desktop\" & Date & "-Gelen Siparişler" 10 ChDir "C:\Documents and Settings\sengul.demir\Desktop\" & Date &...