Sorgu için arama sonuçları: mkdir

...işinizi görürmü? Option Explicit Sub Yedekle() Dim Yol As String, Sayfa As Worksheet Yol = "c:\Yedek" If Dir(Yol, vbDirectory) = "" Then MkDir (Yol) If MsgBox("Dosyanın yedeğini almak istiyor musunuz?", vbInformation + vbYesNo + vbDefaultButton2) = vbNo Then MsgBox "İşlemi iptal ettiniz!"...

Hocam, 1. Alternatifi kullandım, gayet güzel oldu. Teşekkür ederim.

...& "Üretim Vardiya Raporları" & Application.PathSeparator If Dir(Yol, vbDirectory) = "" Then Shell ("cmd /c mkdir """ & Yol & """") End If End Sub 2. Alternatif; Option Explicit #If VBA7 Then Private Declare PtrSafe Function MakeSureDirectoryPathExists Lib...

Merhaba, Kullanıcı adı belirtmek zorunda kalmadan, masa üstüne C:\Desktop\Raporlar\Üretim Vardiya Raporları\ şeklinde olabilir mi?

...şekide istersen kodun sonuna &Application.PathSeparator eklersin. Yol = CreateObject("WScript.Shell").SpecialFolders("Desktop") & _ Application.PathSeparator & "Üretim Vardiya Raporları" If Dir(Yol, vbDirectory) = "" Then MkDir (Yol) On Error Resume Next ....................

...& _ Application.PathSeparator & Year(Date) & " Üretim Vardiya Raporları" If Dir(Yol, vbDirectory) = "" Then MkDir (Yol) Yol = CreateObject("WScript.Shell").SpecialFolders("Desktop") & _ Application.PathSeparator & Year(Date) & " Üretim Vardiya Raporları" &...

...= dosya & Format(Now, " dd_mm_yyyy hh_mm") & uzanti Kayıt_Yeri = yer & Yedek_Dosya_Adı On Error Resume Next If Dir(yer) = "" Then MkDir yer On Error Resume Next DosyaSistemi.CopyFile ThisWorkbook.FullName, Kayıt_Yeri ActiveWorkbook.Password = "" Application.DisplayAlerts = True...

Hocam verdiğiniz yanıt macOS için mi windows için mi?

...Dim i As Integer strFolderName = ThisWorkbook.Path & "\YEDEK\" If Dir(strFolderName, vbDirectory) = "" Then MkDir strFolderName End If strDate = Format(Date, "dd.mm.yyyy") Set wb = ThisWorkbook For i = 5 To wb.Worksheets.Count...

ARŞİV klasörünü sabitleyerek; 8. mesajdaki çözüm olsun

MkDir DosyaYolu & "/" & KlasörAdı hocam bu satırda hata verioyr

...' Yeni bir klasör oluştur YeniKlasor = DosyaYolu & "\AYIR" If Dir(YeniKlasor, vbDirectory) = "" Then MkDir YeniKlasor End If ' Tüm sayfaların listesini göster Dim SayfaListesi As String Dim i As Integer SayfaListesi = "Lütfen kaydedilecek...

...DosyaYolu = ActiveWorkbook.Path YeniKlasor = DosyaYolu & "\AYIR" If Dir(YeniKlasor, vbDirectory) = "" Then MkDir YeniKlasor End If Dim SayfaListesi As String Dim i As Integer SayfaListesi = "Lütfen kaydedilecek sayfaların numaralarını virgülle...

...YedekKlasoru = ThisWorkbook.Path & "\Yedek\" If Len(Dir(YedekKlasoru, vbDirectory)) = 0 Then ' Yedek klasörü yoksa oluştur MkDir YedekKlasoru End If DosyaAdi = Replace(Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1), ".", "_") DosyaAdi = DosyaAdi & " (" &...

...= Range("B1:B100") maxRows = Rng.Rows.Count maxCols = Rng.Columns.Count For c = 1 To maxCols r = 1 Do While r <= maxRows If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, c), vbDirectory)) = 0 Then MkDir (ActiveWorkbook.Path & "\" & Rng(r, c)) On Error Resume Next End If r = r + 1 Loop Next c End Sub

...-1, Date), "yyyy") & "\" & Format(DateAdd("m", -1, Date), "mmmm") & "\" If Dir(My_Folder, vbDirectory) = "" Then Shell ("cmd /c mkdir """ & My_Folder & """") End If ActiveWorkbook.SaveAs My_Folder & Replace(ThisWorkbook.Name, "xlsm", "xlsx"), 51...

...& Format(Date, "yyyy") & "\" & Format(Date, "mmmm") & "\" If Dir(My_Folder, vbDirectory) = "" Then Shell ("cmd /c mkdir """ & My_Folder & """") End If ThisWorkbook.Sheets.Copy ActiveWorkbook.SaveAs My_Folder & Replace(ThisWorkbook.Name, "xlsm", "xlsx"), 51...

...lazimdi. Ilgilendiginiz icin tesekkur ederim. Private Sub SavePDF() strName = Range("M7").Value ChDir ThisWorkbook.Path MkDir strName ActiveWorkbook.SaveAs Filename:=strName & "\" & strName & ".xlsm", _ FileFormat:=xlOpenXMLWorkbookMacroEnabled...

...olacaktır. Altenatif olarak aşağıdaki gibi kullanabilirsiniz. Private Sub Workbook_Open() If Dir("C:\Deneme", vbDirectory) = "" Then MkDir "C:\Deneme" If VBA.Dir("C:\Deneme\Kontrol.txt") = "" Then Set Dosya =...

Korhan hocam arama yaparak sonuca ulaşamadım çünkü kodlar çok karışık. Fakat tahmini olarak MkDir "C:\deneme" Satırının üzerine On Error Resume Next ilave ettim. Oldu sanki. Ama bilmiyorum doğrusu böyle midir.