Sorgu için arama sonuçları: createfolder

...strFolderTest = strDesktop & "\Backup" If objFSO.FolderExists(strFolderTest) = False Then On Error Resume Next objFSO.CreateFolder(strFolderTest) If Err.Number <> 0 Then If Err.Number = 53 Then Err.Clear WScript.quit(1) End If End If...

muygun hocam ilgilendiğiniz için çok teşekkür ederim. verdiğiniz kodlar sorunsuz çalıştı. Fakat aynı işlemi C sürüsündeki ÖRNEK adlı klasör için yapmayı denedim olmadı. Sub gizle() Application.ScreenUpdating = False 'On Error Resume Next yol = "C:\ÖRNEK" SetAttr yol & "\ÖRNEK", vbHidden +...

...klasor = "ÖRNEK" klasorara = nesne.FolderExists(yol & "\" & klasor) If klasorara = False Then nesne.CreateFolder yol & "\" & klasor Call gizle Application.ScreenUpdating = True End Sub Sub gizle() Application.ScreenUpdating = False On Error Resume Next yoll =...

...olacak hocalarıma şimdiden teşekkür ederim. Set nesne = CreateObject("Scripting.FileSystemObject") yol = CreateObject("Wscript.Shell").SpecialFolders("Desktop") klasor = "ÖRNEK" klasorara = nesne.FolderExists(yol & "\" & klasor) If klasorara = False Then nesne.CreateFolder yol & "\" & klasor

...Then BilgiMesajı = MsgBox("2022_Masraflar" & vbNewLine & "Adlı Klasör Mevcut", vbInformation, "Bilgi Mesajı") Else Klasör.createfolder Klasöryolu BilgiMesajı = MsgBox("2022_Masraflar" & "Klasörü Açılmıştır", vbInformation, "Bilgi Mesajı") End If On Error Resume Next...

çok teşekkür ederim işimi gördü elinize sağlık

...Dim c On Error Resume Next Set c = CreateObject("Scripting.FileSystemObject") For f = 2 To 11 'B-L kolonlari arasi c.CreateFolder "C:\" & Cells(2, f) '2. satırda yazan ana klasorleri C: nin altina acar son = Cells(65000, f).End(3).Row For t = 3 To son...

...= Cells(3, 6).Value & ".xlsm" klasorara = nesne.FolderExists(masaustuyolu & "\" & "Siparişler") If klasorara = False Then nesne.CreateFolder masaustuyolu & "\" & "Siparişler" Else End If Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=masaustuyolu & "\" & "Siparişler" &...

Çok teşekkür ederim

...CreateObject("Scripting.FileSystemObject") ds = "C:\İşletme Programı\" kontrol = fso.FolderExists(ds) If kontrol = False Then fso.CreateFolder "C:\İşletme Programı" End If dn = Format(Sheets("ANASAYFA").Range("F2").Text, "mmmm yyyy") & " Faaliyet Raporu.xlsx" ReDim dizi(15) a = 0 For...

Merhaba, İnceleyiniz. https://www.excel.web.tr/search/265253/?q=mkdir&o=date https://www.excel.web.tr/search/265254/?q=createfolder&o=date

...& " - " & Format(Now, "yyyy-mm-dd") Application.Dialogs(xlDialogPrint).Show kontrol = ds.FolderExists(yol) If kontrol <> True Then ds.CreateFolder yol End If ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol _ & "\" & isim & ".pdf", Quality:=xlQualityStandard, _...

...Set KLS = CreateObject("Scripting.FileSystemObject") Set S1 = Sheets("Bordro") MASAÜSTÜ = MASA.SpecialFolders.Item("Desktop") KLS.createfolder MASAÜSTÜ & "\" & S1.Range("AA11").Text For SY = 1 To 65 S1.Range("B5") = SY S1.ExportAsFixedFormat xlTypePDF, MASAÜSTÜ & "\" & S1.Range("AA11").Text &...

...Set KLS = CreateObject("Scripting.FileSystemObject") Set S1 = Sheets("Bordro") MASAÜSTÜ = MASA.SpecialFolders.Item("Desktop") KLS.createfolder MASAÜSTÜ & "\" & S1.Range("AA11").Text For SY = 1 To 65 S1.Range("B5") = SY S1.ExportAsFixedFormat xlTypePDF, MASAÜSTÜ & "\" & S1.Range("AA11").Text &...

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

...2).Text klasorara = nesne.FolderExists(Yol & "\" & klasoradi) If klasorara = False Then nesne.CreateFolder Yol & "\" & klasoradi ActiveSheet.Copy With ActiveWorkbook ActiveWorkbook.SaveAs Filename:=Yol & "\" & klasoradi & "\" & dosyaadi & ".xlsx", FileFormat:=xlOpenXMLWorkbook...

...ds = CreateObject("Scripting.FileSystemObject") yol = ThisWorkbook.Path & "\" If ds.FolderExists(yol & "ARAÇ KAYITLARI") = False Then ds.CreateFolder yol & "ARAÇ KAYITLARI" If ds.FileExists(ThisWorkbook.Path & "\ARAÇ KAYITLARI\" & ad & ".xlsx") = True Then MsgBox ad & " Dosyası var sayfa...

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

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

...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 Hata sayfası