关于返回文件名和文件大小的问题

Question

我的代码如下:
 Private Sub Dir1_Change()
File1.Path = Dir1.Path
End SubPrivate Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End SubPrivate Sub File1_Click()
Text2.Text = Str(FileLen(File1))
Text1.Text = Form2.File1End Sub  即就是 Dirlistbox ,Drivelistbox,Filelistbox 三个相一致,然后用鼠标单击某个文件名
就将文件名返回到text1  将文件长度返回到text2
还有 我返回的文件长度单位是字节,怎么样能变成 K    谢谢!

Answer 1

Private Sub File1_Click()
Dim s As String
s = Dir1.Path & "\" & File1.FileName
Text2.Text = FileLen(s)
'若想用“K”表示，可换成
'Text2.Text = Round(FileLen(s) / 1024, 2) & "K"
Text1.Text = s
End Sub

Answer 2

homezj(小吉) 说的不错哦，不过有个小问题，请先检查Dir1.Path 的最后一个字符是不是"\"再确定是否添加"\"