create folder datewise and copy file in it.

[raviroyalnew]

Hello,

Please suggest, where I am wrong.

Sub folder()


Dim sFolderName As String, set_Path As String, name As String, datpath As String
Dim FromPath As String
Dim FSO As Object
Set fs = CreateObject("Scripting.FileSystemObject")


FromPath = "C:\Users\sharr12\Desktop\Suivi\2132_sheet_suivi.xlsx"  '<< Change


set_Path = "C:\Users\sharr12\Desktop\Suivi\Fact Bakup\Suivi Fact_Backup_"
sFolderName = Format(Now(), "mm-dd-yy")


[name] = (set_Path & sFolderName)
datpath = [name]


If Error <> 0 Then
'MsgBox " Folder exists", vbInformation, "EOD Report Filter" 'Resume Next if folder exists
End If
On Error Resume Next
fs.CreateFolder [name]


'FileCopy "C:\Users\sharr12\Desktop\Suivi\2132_sheet_suivi.xlsx" & [name]
'FSO.CopyFile Source:=FromPath & FileExt, Destination:=[name]


Dim SourceFile, DestinationFile
    Dim sourcepath
    Dim destinationpath
    
SourceFile = "C:\Users\sharr12\Desktop\Suivi\2132_sheet_suivi.xlsx"
destinationpath = datpath
    
SourceFile = "2132_sheet_suivi.xlsx" ' Define source file name.
DestinationFile = "2132_sheet_suivi.xlsx" ' Define target file name.




FileCopy SourceFile, datpath ' Copy source to target.






End Sub

 

[raviroyalnew]

please guys, help me. I am new in VBA.

I want to create new folder dateiwse and put certain file in it.

 

[Fluff]

Hi & welcome to MrExcel
How about

Sub MyFolder()
   Dim sFolderName As String, set_Path As String, fname As String, datpath As String
   Dim FromPath As String
   
   fname = "2132_sheet_suivi.xlsx"
   FromPath = "C:\Users\sharr12\Desktop\Suivi\"  '<< Change
   
   set_Path = "C:\Users\sharr12\Desktop\Suivi\Fact Bakup\Suivi Fact_Backup_"
   sFolderName = format(Date, "mm-dd-yy")
   
   datpath = set_Path & sFolderName & "\"
   
   If Dir(datpath, vbDirectory) = "" Then MkDir datpath
   FileCopy FromPath & fname, datpath & fname ' Copy source to target.
End Sub

 

[raviroyalnew]

thanks a lot. it's work. thank you.....

 

[Fluff]

Glad to help & thanks for the feedback