[VB] file exists ?

[Ronald_stage]

ik heb dit:

code:

If fso.fileexists("\\10.205.50.50\Project\DAYNL\DPR\*.*") = True Then

fso.MoveFile "\\10.205.50.50\Project\DAYNL\DPR\*.*", "\\10.205.50.50\Project\DAYNL\DPR\History\"

FileCopy Dir1.Path & "\" & File1.FileName, "\\10.205.50.50\Project\DAYNL\DPR\" & File1.FileName
Done1.Visible = True

Combo1 = "Daily NL"
Exit Sub

Else
   MsgBox "No files found in the source directory.", vbInformation, "Filemove"
End If
Exit Sub

maar of er nu wel of niet een bestand staat in de Dir
hij komt met de MsgBox No files found in the source directory.


/edit [code=vb] werkt niet op dit forum

[Crazy D]

Volgens mij was er niet zo lang geleden ook iemand met zo'n probleem, en werd er toen een linkje oid geplaatst dat het filesystemobject niet overweg kan met UNC?(\\ip\share\file)

[dusty]

Leren om te zoeken aub.

[dusty]

Door de mail was ik gevraagd om dit toe te voegen door Bas.
---------------------> > knip/plak
volgens mij verwar je een Visual Basic script met gewoon Visual Basic

want in VBscript kan je iets dergelijks als volgt doen

code:

 <%If Tools.FileExists("ie_animated.gif") then %> 
     <p>   <a href="http://www.microsoft.Com/ie/">  <img 
src="ie_animated.gif">  </a> 
 <% End If %>

en in gewoon Visual Basic kan je de FileExists method gebruiken, maar die is
onderdeel van het FileSystemObject. Wat jij wil is controleren op bestanden
webservers en niet op filesystems, dat is denk ik iets anders.