Reading hard drive serial number

[Av8tordude]

I have a code that inputs the HDD serial number in a text file, however when I run the code below to check if the HDD serial number matches the number in the text file, it gives an incorrect response. When I put the HDD serial number in a cell, the code response is correct. What am i missing?

        Status = Trim(Split(f, vbCrLf)(2))        
        If Status = CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber Then
            Msgbox "Yes"
        Else
            Msgbox "No"
        End If

 

[Fluff]

What is the value of "Status" when you run the code?

 

[Av8tordude]

Status is the HDD serial number

 

[Fluff]

But is it actually the number you expect?

 

[Av8tordude]

I think it can vary. My serial number are numbers, but I'm not sure if other HDD serial numbers may have Alpha-numberic numbers

 

[Fluff]

If you add the msgbox

        Status = Trim(Split(f, vbCrLf)(2))
       [COLOR=#ff0000] MsgBox Status[/COLOR]
        If Status = CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber Then

does it give you the number you are expecting?

 

[Av8tordude]

Yes...I've tried that and it gives me the number I'm expecting

 

[Av8tordude]

I did this and it works fine, but when reading the file it doesn't.

Range("A1") = CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber


If Range("A1") = CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber Then
    MsgBox "Yes"
Else
    MsgBox "No"
End If

the full code

    Set fs = CreateObject("Scripting.FileSystemObject")    
    f = fs.OpenTextFile(OPath & Evnt).readall
    PT= Trim(Split(f, vbCrLf)(1))
    CT = Format(Now, "#0.#########0")
    
    If CT > PT Then
        Open OPath & Evnt For Input As [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1"]#1[/URL] 
        ss = ""
        Do While Not EOF(1)
            Line Input [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1"]#1[/URL] , s
            n = n + 1
            If n = 2 Then s = CT
            ss = ss & s & vbCrLf
        Loop
        Close [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1"]#1[/URL] 
        
        Open OPath & Evnt For Output As [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1"]#1[/URL] 
        Print [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1"]#1[/URL] , ss;
        Close [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1"]#1[/URL] 
     Status = Trim(Split(f, vbCrLf)(2))        
     
     If Status = CreateObject("Scripting.FileSystemObject").GetDrive("C:").SerialNumber Then
            Msgbox "Yes"
        Else
            Msgbox "No"
        End If

 

[Fluff]

Ok, in that case try

If Val(Status) = CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber Then

 

[Av8tordude]

It works... Thank you. Can you explain the reason for the Val?