help in filesystem object

[muddasirmunir]

i want to copy a specific file and paste into another folder
i am using the following code

 '' getting the required file to be copied 
fso.GetFile "D:\Data\smeb_Data.MDF"
 
'' creating newfolder 
If fso.FolderExists("H:\Backup") Then
Else
fso.CreateFolder "H:\Backup"
End If
 
''pasting the file
fso.CopyFile "H:\Backup\smeb_Data.MDF"
Exit Sub
 
 

when i run this code i get errror
"argument not optional "

what chages i have to made in it
any help

i also want to copy more than one files and it should be pasted with
out promting that file already exists

[jg007]

i want to copy a specific file and paste into another folder

my VB is a bid lousy but this worked for me -

 
 
      '' getting the required file to be copied 
 
        Dim fso As System.IO.FileInfo = FileIO.FileSystem.GetFileInfo("D:\Data\smeb_Data.MDF")
 
 
        ' creating newfolder 
        If FileIO.FileSystem.DirectoryExists("H:\Backup") Then
        Else
            FileIO.FileSystem.CreateDirectory("H:\Backup")
 
        End If
 
        ''pasting the file
        fso.CopyTo("H:\Backup\" & fso.Name)
 
 
 

[muddasirmunir]

there is something wrong in line

 
Dim fso As System.IO.FileInfo = FileIO.FileSystem.GetFileInfo("D:\Data\smeb_Data.MDF")
 

vb is showing it as red colour and giving error
"expected end of statement"

my VB is a bid lousy but this worked for me -

 
 
'' getting the required file to be copied 
 
Dim fso As System.IO.FileInfo = FileIO.FileSystem.GetFileInfo("D:\Data\smeb_Data.MDF")
 
 
' creating newfolder 
If FileIO.FileSystem.DirectoryExists("H:\Backup") Then
Else
FileIO.FileSystem.CreateDirectory("H:\Backup")
 
End If
 
''pasting the file
fso.CopyTo("H:\Backup\" & fso.Name)
 
 
 

[jg007]

are you entering it all as one line?, also it is VB.net and I noticed later that you are using VB 6

[lotus18]

Try:

Dim fso As New FileSystemObject
Dim s As String
 
s="D:\Data\smeb_Data.MDF"
 
If fso.FolderExists("H:\Backup")=False Then
     fso.CreateFolder "H:\Backup"
End If
 
fso.CopyFile s, "H:\Backup\smeb_Data.MDF"
Exit Sub
 
 

Line 10, argument is not optional because you didn't specify the path to paste the file.

Rey Sean

[muddasirmunir]

thanks this code works

Try:

Dim fso As New FileSystemObject
Dim s As String
 
s="D:\Data\smeb_Data.MDF"
 
If fso.FolderExists("H:\Backup")=False Then
fso.CreateFolder "H:\Backup"
End If
 
fso.CopyFile s, "H:\Backup\smeb_Data.MDF"
Exit Sub
 
 

Line 11, argument is not optional because you didn't specify the path to paste the file.

Rey Sean

[lotus18]

Glad we could help : )

Rey Sean