Sorgu için arama sonuçları: MkDir

...Klasor = CreateObject("Wscript.Shell").SpecialFolders("Desktop") & "\Sipariş Formları\" If Dir(Klasor, vbDirectory) = "" Then MkDir Klasor For X = 2 To Son If S1.Cells(X, 1) <> "" Then S2.Range("A11") = S1.Cells(X, 1)...

...= WshShell.SpecialFolders("MyDocuments") MyFolder = strMyDocuments & "\Resimler" If Dir(MyFolder, vbDirectory) = Empty Then MkDir MyFolder noA = Range("A" & Rows.Count).End(xlUp).Row For i = 2 To noA DoEvents Cells(i, 2).Select...

...Say = 0 Hedef_Klasor = "D:\Belgelerim\Haftalık\" If Dir(Hedef_Klasor, vbDirectory) = "" Then MkDir Hedef_Klasor Call Dosyalari_Kopyala(Yol, True) MsgBox Say & " adet dosya kopyalanamıştır." & vbCr & vbCr & _ "İşlem...

...Say = 0 Hedef_Klasor = "D:\Belgelerim\Haftalık\" If Dir(Hedef_Klasor, vbDirectory) = "" Then MkDir Hedef_Klasor Call Dosyalari_Kopyala(Yol, True) MsgBox Say & " adet dosya kopyalanamıştır." & vbCr & vbCr & _ "İşlem...

...Dosya_Adi = Sheets("LİSTE").Range("H1").Value & ".xlsm" Klasor = "C:\LİSTE_YEDEKLERİ\" If Dir(Klasor, vbDirectory) = "" Then MkDir Klasor Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets(Array("LİSTE", "ÇIKIŞ")).Copy With...

...& Ayirac & S1.Range("C3").Value & Ayirac If Dir(Yol, vbDirectory) = "" Then CreateObject("WScript.Shell").Run "Cmd /C MkDir """ & Yol & """", 0, True Set K2 = Workbooks.Add(1) Set S2 = K2.Sheets(1) Satir = 2 For X = 1 To 30 S1.Range("L11") = X...

...& _ Application.PathSeparator & "MESAİ FİŞLERİ" & Application.PathSeparator If Dir(Yol, vbDirectory) = "" Then MkDir (Yol) Set K2 = Workbooks.Add(1) Set S2 = K2.Sheets(1) Satir = 2 For X = 1 To 30 S1.Range("L11") = X Calculate...

...& _ Application.PathSeparator & "Deneme" & Application.PathSeparator If Dir(Yol, vbDirectory) = "" Then MkDir (Yol) Set K2 = Workbooks.Add(1) Set S2 = K2.Sheets(1) Satir = 2 For X = 1 To 30 S1.Range("L11") = X Calculate...

...& _ "Resim Dosyaları" & Application.PathSeparator If Dir(Yol, vbDirectory) = "" Then MkDir Yol Dosya_Adi = InputBox("Lütfen dosya adını giriniz...", "Dosya Adı") If Dosya_Adi = "" Or Dosya_Adi =...

...& _ Application.PathSeparator & "Deneme" & Application.PathSeparator If Dir(Yol, vbDirectory) = "" Then MkDir (Yol) For X = 1 To 30 Range("L11") = X Calculate If Range("D6").Value <> 0 Then ActiveSheet.Copy Cells.Copy...

Korhan bey üstadım MkDir (Klasor) satırında debug hatası verdi. Mdemir63 üstad sorunsuz çalışıyor. tevfik üstad klasör oluşturalamadı. hepinize teşekkür ederim. sağlıkla kalın. iyi akşamlar dilerim.

...Klasor = Environ("UserProfile") & Ayrac & "Desktop" & Ayrac & "Spacebar" If Dir(Klasor, vbDirectory) <> "" Then MsgBox "Klasör mevcut !", vbExclamation Else MkDir (Klasor) MsgBox "Klasör oluşturulmuştur.", vbInformation End If End Sub

...sTempFolder = oFS.GetSpecialFolder(TemporaryFolder) sTmpFld = sTempFolder & "\OETMP" & Format(Now, "yyyymmddhhmmss") MkDir (sTmpFld) ' in the next few lines, you'll see an entry that ' says FileType = . This line gets the last 4 ' characters of the file name, which we'll...

...attPath = Environ("USERPROFILE") & "\" & "Desktop" & "\" & "Attachments Folder" If Dir(attPath, vbDirectory) = vbNullString Then MkDir (attPath) End If With ws .Cells.Clear .Range("A1").Value = "Email Subject" .Range("B1").Value = "Attachment...

...& ".xls" Kayıt_Yeri = "C:\YEDEK\" & Yedek_Dosya_Adı ThisWorkbook.Save On Error Resume Next If Dir("C:\YEDEK\") = "" Then MkDir "C:\YEDEK\" DosyaSistemi.CopyFile Aktif_Dosya_Adı, Kayıt_Yeri MsgBox "Dosyanız aşağıdaki isimle yedeklenmiştir." & Chr(10) &...

Çok teşekkür ederim Korhan hocam zihnine sağlık sağolasın

...= "C:\Users\mert\Desktop\DENEME\" Set FSO = CreateObject("Scripting.FileSystemObject") If Not FSO.FolderExists(Klasor_3) Then MkDir Klasor_3 Range("A2:A" & Rows.Count).Interior.Color = xlNone For X = 2 To Cells(Rows.Count, "A").End(3).Row Dosya =...

Korhan hocam makroyu denedim next satırında hata verdi sanırım End İf eksikti onu ekledim makro hata vermeden çalıştı. Ancak dosya olduğu halde kopyalama yapmadı, Kopyalanacak dosya bulunamadı uyarısı verdi. İsterseniz örnek dosya paylaşabilirim.

...Klasor_3 = "C:\Test3\" Set FSO = CreateObject("Scripting.FileSystemObject") If Not FSO.FolderExists(Klasor_3) Then MkDir Klasor_3 Range("A2:A" & Rows.Count).Interior.Color = xlNone For X = 2 To Cells(Rows.Count, "A").End(3).Row Dosya = Trim(Cells(X...