mangler en kode til at se om fil findes

http://www.web-dev.dk/post/FileSystemObject-FSO.aspx

super keysersoze takker!!

svar

Sorry soze men kan får det ikke til at virke hvad gør jeg forkert
eller er det ikke den rigtige kode at bruge her til:



Dim fso
Dim ObjFso
Dim SourceLocation
Dim DestinationLocation


Private Sub Command1_Click()
'locating files to move
SourceLocation = Dir2.Path & "\" & File1.FileName
DestinationLocation = Dir1.Path & "\" & File1.FileName


    'creates object(objfso) for movefile
    Set ObjFso = CreateObject("scripting.filesystemobject")
    'creates object(fso) for search directory
    Set fso = CreateObject("Scripting.FileSystemObject")

   
    If fso.FileExists("Dir1.Path & " \ " & File1.FileName") Then
    MsgBox ("En Fil Med Samme Navn Findes Allerede")
    MsgBox ("Tryk Omdøb Fil Og Flyt Til Mappe")
   
    Else

   
    ObjFso.MoveFile SourceLocation, DestinationLocation
   
    'update files i dir
    Form1.File1.Refresh
    Form1.File2.Refresh
 
  End If
    Set fso = Nothing


 
   
End Sub

Har fundet ud af det.:) sådan her virker det.

Dim ObjFso
Dim SourceLocation
Dim DestinationLocation


Private Sub Command1_Click()
'locating files to move
SourceLocation = Dir2.Path & "\" & File1.FileName
DestinationLocation = Dir1.Path & "\" & File1.FileName

 
 
    'creates object(objfso) for movefile
  Set ObjFso = CreateObject("scripting.filesystemobject")
   
    'search dir for exsisting file
  If Dir(Dir1.Path & "\" & File1.FileName) <> "" Then
  MsgBox ("En fil med Samme navn findes allerede, og flyttes ikke")
       
  Else
     
    ObjFso.MoveFile SourceLocation, DestinationLocation
   
    'update files i dir
    Form1.File1.Refresh
    Form1.File2.Refresh
 
  End If
     
  End Sub

If Dir(Dir1.Path & "\" & File1.FileName) <> "" Then
  MsgBox ("En fil med Samme navn findes allerede, og flyttes ikke")

tak for hjælpen...