Elseif statement

Question

Good evening,

Is someone able to tell me why this elseif statement isn't correct please?

    If Environment.MachineName = "file001" Then
        lblHostname.Text = "Fileserver 1"
    Elseif
        Environment.MachineName = "file001" Then
        lblHostname.Text = "Fileserver 2"
    Elseif
        Environment.MachineName = "file001" Then
        lblHostname.Text = "Fileserver 3"
    Elseif
        Environment.MachineName = "file001" Then
        lblHostname.Text = "Fileserver 4"
    End If

Apologies i'm not the greatest programmer in the world but learning :)

Thanks

Answer 1

Hi @Simon Scott ,
Also note that ‘ElseIf’ and ‘Then’ should be written on one line.

        If Environment.MachineName = "file001" Then  
            lblHostname.Text = "Fileserver 1"  
        ElseIf Environment.MachineName = "file002" Then  
            lblHostname.Text = "Fileserver 2"  
        ElseIf Environment.MachineName = "file003" Then  
            lblHostname.Text = "Fileserver 3"  
        ElseIf Environment.MachineName = "file004" Then  
            lblHostname.Text = "Fileserver 4"  
        End If  

Best Regards,
Xingyu Zhao
*
If the answer is helpful, please click "Accept Answer" and upvote it.
Note: Please follow the steps in our documentation to enable e-mail notifications if you want to receive the related email notification for this thread.

Answer 2

Hi,

Thanks for all your answers.

The idea is that this application will be installed on 4 different servers.

Depending on which server it is installed on, my code will then write to a text file on that specific server.

Unless of course a case statement would be better?

Thanks
Simon

Answer 3

Hello @Simon Scott
You are trying to check the Environment.MachineName = "file001" in all of you statements
So if Environment.MachineName = "file001" is true that you will get lblHostname.Text = "Fileserver 1"
if Environment.MachineName = "file001" is false, none of your statements will pass

Answer 4

All four lines are evaluating the same string.