Ciao a tutti,
ho un problema dovrei far girare uno script con explorer. Ne ho trovato uno scritto in VB e vorrei tradurlo in javascritp in modo da poterlo inserire all'interno della pagina html. Vi scirvo il codice che ho trovato qualche anima pia potrebbe aiutarmi a tradurlo.
Private Sub Form_Load()
'Show drive serial number for the current drive
MsgBox " Drive serial number for " & Left (App.Path, 1) & ": " & GetDriveSerialNumber
End
End Sub
Public Function GetDriveSerialNumber(Optional ByVal DriveLetter As String ) As Long
Dim fso As Object, Drv As Object
'Create a FileSystemObject object
Set fso = CreateObject("Scripting.FileSystemObject")
'Assign the current drive letter if not specified
If DriveLetter <> "" Then
Set Drv = fso.GetDrive(DriveLetter)
Else
Set Drv = fso.GetDrive(fso.GetDriveName(App.Path))
End If
With Drv
If .IsReady Then
DriveSerial = Abs(.SerialNumber)
Else '"Drive Not Ready!"
DriveSerial = -1
End If
End With
'Clean up
Set Drv = Nothing
Set fso = Nothing
GetDriveSerialNumber = DriveSerial
End Function
