[VB] File restricties

[Ronald_stage]

ik wil als ik een bestand selecteer dat niet begingt met een D een melding krijgen, als hij wel begingt met een D.
wil ik hem kopieren,

maar ik krijg het niet werkend,
kan ik in mijn code zetten:

If File1.FileName = "D*.*" then FileCopy ...
Else MsgBox "verkeerd best."

[Verwijderd]

code:

if left$(ucase(File1.FileName) <> "D") then
   file copy
else
   error
end if

[Verwijderd]

Op woensdag 30 januari 2002 09:24 schreef Yarvieh het volgende:

code:

if left$(ucase(File1.FileName) <> "D") then
   file copy
else
   error
end if

Andersom toch

[Ronald_stage]

ik heb het op dezer manier op gelost

code:

Private Sub Command4_Click()
On Error GoTo ErrHandler
If File1.FileName = "" Then
MsgBox "Please select a file."
ElseIf File1.FileName Like "D*.*" Then FileCopy Dir1.Path & "\" & File1.FileName, "H:\backup\" & File1.FileName
MsgBox "File Uploaded"
Else
MsgBox "Wrong File Name"
End If
Exit Sub

ErrHandler:

    MsgBox Err.Description

End Sub