Bonsoir tout le monde,
cela fait 15 jours que j'apprends le VB.NET, et comme tout débutant j'ai un petit souci.

J'essaie de faire une petite application avec WebMatrix (en web form) qui me permet de connaitre la taille restante sur mes disques durs.

Lorsque j'exécute l'application j'obtiens l'erreur suivante:
Le format de la chaine d'entrée est incorrecte

quelqu'un peut-il me dire à quoi cela est du svp?
Bien à vous.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
<%@ Page Language="VB" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.SqlClient" %>
<%@ import Namespace="System.Web.Mail" %>
<%@ import Namespace="System.IO" %>
<%@ import Namespace="System.DirectoryServices" %>
<%@ import Namespace="System.Configuration" %>
<%@ import Namespace="System.Net" %>
<%@ import Namespace="System" %>
<%@ import Namespace="System.Net.DNS" %>
<%@ import Namespace="System.ComponentModel" %>
<%@ import Namespace="System.Management" %>
<%@ import Namespace="System.Runtime.InteropServices" %>
<%@ import Namespace="System" %>
<%@ import Namespace="ActiveDs" %>
<script runat="server">
 
    ' Insert page code here
    '
 
    Sub Button1_Click(sender As Object, e As EventArgs)
 
      Dim allDrives() As DriveInfo = DriveInfo.GetDrives()
 
        Dim d As DriveInfo
        For Each d In allDrives
            response.write("Drive {0}:"+ d.Name)
            response.write("  File type: {0}:"+ d.DriveType)
            If d.IsReady = True Then
                response.write("  Volume label: {0}:"+ d.VolumeLabel)
                response.write("  File system: {0}:"+ d.DriveFormat)
                response.write( "  Available space to current user:{0, 15} bytes:"+ d.AvailableFreeSpace)
 
                response.write( "  Total available space:          {0, 15} bytes:"+ d.TotalFreeSpace)
 
                response.write( "  Total size of drive:            {0, 15} bytes :"+ d.TotalSize)
            End If
        Next
 
    End Sub
 
</script>
<html>
<head>
</head>
<body>
    <form runat="server">
        <asp:Button id="Button1" onclick="Button1_Click" runat="server" Text="Button"></asp:Button>
        <!-- Insert content here -->
    </form>
</body>
</html>