Sorgu için arama sonuçları: mkdir

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

@Haluk merhaba, Yukarıdaki kodu kullanıyorum. Yaratılacak dosya sayısı fazla olduğunda, belli bir dosyayı oluşturduktan sonra aşağıdaki hatayı alıyorum. Bu hatayı nasıl geçebilirim?

...Set wbkopya = ActiveWorkbook yol = Environ("USERPROFILE") & "\Desktop\SATINALMA" If Not fso.FileExists(yol) Then On Error Resume Next MkDir (yol) On Error GoTo 0 End If isim = Sheets("MKTT").Range("b5").Value & " " & Sheets("MKTT").Range("b6").Value & " " &...

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

Çok teşekkürler Haluk Hocam iyi çalışmalar

...False WHTTP.Send FileData = WHTTP.ResponseBody Set WHTTP = Nothing If Dir("C:\TestFolder", vbDirectory) = Empty Then MkDir "C:\TestFolder" FileNum = FreeFile Open "C:\TestFolder\" & fileName For Binary Access Write As #FileNum Put #FileNum, 1...

...As String folderPath = ThisWorkbook.Path & "\Sorgulanacaklar" If Dir(folderPath, vbDirectory) = vbNullString Then MkDir folderPath End If Dim fileName As String fileName = Dir(folderPath & "\*.txt") While fileName <> "" Kill folderPath & "\" &...

...& "\Foto" ' Fist check to see if a unique folder for the open record exists, create if not If Len(Dir(Foldername, vbDirectory)) = 0 Then MkDir Foldername End If On Error GoTo reportErr FileRoot = Foldername & "\" & "Resim_" & sipNo & "_" & item 'Creates a BMP and JPG version of...

...Set wbkopya = ActiveWorkbook yol = Environ("USERPROFILE") & "\Desktop\SATINALMA" If Not fso.FileExists(yol) Then On Error Resume Next MkDir (yol) On Error GoTo 0 End If isim = Sheets("MKTT").Range("b5").Value & " " & Sheets("MKTT").Range("b6").Value & " " &...

Çok teşekkürler sayın Asri elinize sağlık, iyi akşamlar.