Sorgu için arama sonuçları: MkDir

...On Error Resume Next TempFilePath = Environ$("temp") & "\RangePic\" If Len(VBA.Dir(TempFilePath, vbDirectory)) = False Then VBA.MkDir TempFilePath End If Set xAcSheet = Application.ActiveSheet For Each xSheet In Application.Worksheets xSheet.Activate...

...yol = Environ("USERPROFILE") & "\Desktop\OKUL_MUHASEBE_BÜRO_KLASÖRLERİ\KBS_YÜKLEME" If Not fso.FileExists(yol) Then On Error Resume Next MkDir (yol) On Error GoTo 0 End If isim = Format(Date, "mmmm") & " " & Format(Date, "yyyy") & " " & okuladi & " " & " KBS YÜKLEME DOSYASI"...

...& "\Desktop\OKUL-MUHASEBE_BÜRO_KLASÖRLERİ\ÜCRETLİ_ÖĞRETMEN_PUANTAJLARI" If Not fso.FileExists(yol) Then On Error Resume Next MkDir (yol) On Error GoTo 0 End If isim = okuladi Application.DisplayAlerts = False wbkopya.SaveAs yol & "\" & isim & ".xls", FileFormat:=56...

...folderPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Yeni Klasör\" If Dir(folderPath, vbDirectory) = "" Then MkDir folderPath End If Set exportRange = Range("AM1:AZ41") For Each ws In ThisWorkbook.Sheets fileName...

...folderPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Yeni Klasör\" If Dir(folderPath, vbDirectory) = "" Then MkDir folderPath End If For Each ws In ThisWorkbook.Sheets fileName = folderPath & ws.Name & ".pdf"...

...= startPath & Application.PathSeparator & myName1 & " " If Dir(folderPathWithName, vbDirectory) = vbNullString Then MkDir folderPathWithName Else MsgBox "Folder already exists" Exit Sub End If Aktivesheet.SaveAs MkDir ile olusturulan klasörün icine...

...Yol = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") & "\" & klasor If fL.FolderExists(Yol) = False Then MkDir Yol End If Say = fL.getfolder(Yol).Files.Count + 1 ' Kullanıcının tercihini alın Dim tercih As String tercih = UCase(InputBox("PDF...

...= Format(Now, "dd/mm") Yol = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") & "\" & klasor If fL.FolderExists(Yol) = False Then MkDir Yol End If Say = fL.getfolder(Yol).Files.Count + 1 Sheets(Array("Terfi Onay Formu")).Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF...

Hocam Country bir Variant bende. String değil. For döngüsü ile satıra göre sürekli değişiyor. Evet Country değişkeni türkçe karakter içeren bir ülkeye eşit olduğu zaman linkteki dosyayı kopyalamıyor. Yukarıdaki kodlamanızı test ettim. Klasör yolundan bağımsız hata veriyor. Aslında klasör...

...strSavePath = "C:\Users\Kullanıcı Adı\Desktop\Klasör Adı\" & strSender If Dir(strSavePath, vbDirectory) = "" Then MkDir strSavePath End If For Each att In olItem.Attachments If Right(att.FileName, 4) = ".xls" Or...

...= "C:\User\Kaynak\Klasör" & "\Banner\" & "copybanner " & country & " Branda.pdf" If Dir(destPath, vbDirectory) = "" Then MkDir destPath End If destPath = sourcePath On Error Resume Next FileCopy sourcePath, destPath If Err.Number <> 0 Then MsgBox...

...anaKlasor = ThisWorkbook.Path & "\" & firmaAdi ' Ana klasörü oluştur (eğer yoksa) If Dir(anaKlasor, vbDirectory) = "" Then MkDir anaKlasor End If ' Alt klasör yolu oluştur altKlasor = anaKlasor & "\" & faturaTipi ' Alt klasörü oluştur (eğer...

yol dan kaynaklı bir sorun olabilir. Buradaki bilgiyi yol = Environ("USERPROFILE") & "\Desktop" Bu şekilde değiştirip deneyebilir misiniz. yol ="C:\deneme"

...= False yol = Environ("USERPROFILE") & "\Desktop" If Not fso.FileExists(yol) Then On Error Resume Next MkDir (yol) On Error GoTo 0 End If Application.DisplayAlerts = False wbkopya.SaveAs yol & "\" & isim & ".xls", FileFormat:=56...

...folderPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & folderName If Dir(folderPath, vbDirectory) = "" Then MkDir folderPath End If fileName = Range("C2").Value For Each ws In ThisWorkbook.Worksheets Set rng = Nothing If ws.Name = "LİSTE" Then Set rng =...

...& "\" & mainFolderName folderPath = folderPath & "\" & subFolderName If Dir(folderPath, vbDirectory) = "" Then MkDir folderPath End If fileName = "1.OCAK - ŞUBAT" For Each ws In ThisWorkbook.Worksheets Set rng = Nothing If...

...= False yol = Environ("USERPROFILE") & "\Desktop" If Not fso.FileExists(yol) Then On Error Resume Next MkDir (yol) On Error GoTo 0 End If Application.DisplayAlerts = False wbkopya.SaveAs yol & "\" & isim & ".xls", FileFormat:=56...

..." & dosya & Format(Now, " dd_mm_yyyy_hh_nn_ss") & "." & uzanti Kayıt_Yeri = Klasor & "\" & Yedek_Dosya_Adı On Error Resume Next MkDir Klasor On Error GoTo 0 CommandString = "c:\yedekler\yedekal.bat" + " " + """" + ThisWorkbook.FullName + """" + " " + """" + Kayıt_Yeri +...

Merhaba. Diğer bilgisayarda da klasör yolu aynı değilse hata verir. Aşağıdaki klasör yolunu kontrol edin laptop'ta. Klasor = "c:\Yedekler" ds.CreateFolder "E:\MUHASEBE PROĞRAMI"

...& "." & uzanti Kayıt_Yeri = Klasor & "\" & Yedek_Dosya_Adı If CreateObject("Scripting.FileSystemObject").FolderExists(Klasor) = False Then MkDir Klasor End If CreateObject("Scripting.FileSystemObject").CopyFile ThisWorkbook.FullName, Kayıt_Yeri MsgBox "Dosyanız aşağıdaki isimle...