Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/amazon-web-services/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
vb.net中的文件大小_Vb.net - Fatal编程技术网

vb.net中的文件大小

vb.net中的文件大小,vb.net,Vb.net,在表格1中,我有一个文本框1,在这个文本框中,我有一个文件“C:\folder\file.iso”的位置 在Form2中,我想得到Textbox1中文件的大小,所以我尝试了这个 Dim fileDetail As IO.FileInfo fileDetail = My.Computer.FileSystem.GetFileInfo(Form1.Textbox1.Text) Label1.Text = Size: fileDetail.Length End S

在表格1中,我有一个文本框1,在这个文本框中,我有一个文件“C:\folder\file.iso”的位置

在Form2中,我想得到Textbox1中文件的大小,所以我尝试了这个

        Dim fileDetail As IO.FileInfo


    fileDetail = My.Computer.FileSystem.GetFileInfo(Form1.Textbox1.Text)

    Label1.Text = Size: fileDetail.Length
End Sub
我没有收到错误,但是标签上没有显示文件的大小

编辑:这似乎不起作用

Private Sub Unscramble_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    If System.IO.File.Exists(Form1.TextBox2.Text) Then
        Dim fi As New System.IO.FileInfo(Form1.TextBox2.Text)
        Label3.Text = "Size: " & fi.Length.ToString()
    End If
End Sub

它仍然没有给出文件的大小,也没有给出“大小:

代码工作得很完美,但我的项目中有东西阻止了它

创建了一个新项目,并且工作得非常完美

'label3.Text is my all string with file size.

Label3.Text = "Size : " & My.Computer.FileSystem.GetFileInfo("C:\Download\my song.mp3").Length & " Bytes"
'Output: Size: 2344 Bytes

Label3.Text = "Size : " & System.Math.Round(My.Computer.FileSystem.GetFileInfo("C:\Download\my song.mp3").Length / 1024) & " KB"
'Output: Size: 2 KB

有两种选择,您需要它

您真的确定要将事件附加到表单加载而不是按钮单击吗?是的,因为此表单将在“转换”过程完成时弹出。因此文本框中的文件不存在!:)在带有if条件的行中设置一个breakpoint并测试“Textbox1.Text”文件的存在性。对不起,但实际上,您要做什么?为什么在加载方法中测试它?为什么要使用Form1.TextBox,是否在Form1类上初始化了共享的TextBox?将临时
Form1.TextBox2.Text
替换为
“C:\boot.ini”
,看看会发生什么。好的,我以当前形式制作了一个文本框:解译,它给了我Dim fileDetail=My.Computer.FileSystem.GetFileInfo(Textbox1.Text)Label1.Text=“size:”&fileDetail.Length但是当我想要文件在另一种形式的文本框中的位置时,它会给我一个错误Dim fileDetail=My.Computer.FileSystem.GetFileInfo(form1.Textbox1.Text)Label1.Text=“Size:&fileDetail.Lengthwhat's?
fi.Length
值是多少?
    Dim fileDetail = My.Computer.FileSystem.GetFileInfo(form1.Textbox1.Text)
    Label1.Text = "Size : " & fileDetail.Length
'label3.Text is my all string with file size.

Label3.Text = "Size : " & My.Computer.FileSystem.GetFileInfo("C:\Download\my song.mp3").Length & " Bytes"
'Output: Size: 2344 Bytes

Label3.Text = "Size : " & System.Math.Round(My.Computer.FileSystem.GetFileInfo("C:\Download\my song.mp3").Length / 1024) & " KB"
'Output: Size: 2 KB