[VB]File System Object + Wildcards

[Ronald_stage]

dit is mijn code

code:

Private Sub Command1_Click()
If Combo1 = "Daily NL" Then GoTo Nosel
Set fso = CreateObject("Scripting.FileSystemObject")

Select Case Combo1.ListIndex
    Case 0
     On Error GoTo ErrHandler
If File1.FileName = "" Then
MsgBox "Please select a file."
ElseIf File1.FileName Like "D*.*" Then

en

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

Else

MsgBox "blaat"

End If

bij het if fileexists gedeelte wrkt het wel met een bestands naam maar niet met Wildcards hoe los ik dit op?

[BdR]

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]"ie_animated.gif"></a[/img] 
<% 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.

Dus volgens mij kan dit niet zo eenvoudig, of je moet een drivemapping naar die 10.205.50.50-server maken ofzo (als dat kan, anders weet ik het ook niet meer)

[Ronald_stage]

het bestand is op een file-share

het werkt gewoon als ik een bestandsnaam invul maar

als er een bestand in de dir staat kopieer dat bestand naar de sub dir en kopieer file1 naar de dir

zo heb je in de dir een bestand plus de sub dir en de subdir wordt steeds groter een "history"

ps edit in eerste gedeelte Typo in de code

[BdR]

oh wacht.. nu snap ik het, je wilt checken of er uberhaubt files zijn, dat moet denk ik zo:

code:

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("\\10.205.50.50\Project\DAYNL\DPR\")
Set fc = f.Files
if (fc.Count = 0) Then
  MsgBox "Er zijn geen files."
Else
  MsgBox "Er zijn " & fc.Count & " bestanden."
End If

ik had em getest met "C:\" ipv "\\10.205.50.50\Project\DAYNL\DPR\" dus weet niet zeker of dat ook werkt, maar zou wel moeten..