Output.Show("文件创建时间:" & ifo.CreationTime)

Output.Show("上次修改时间:" & ifo.LastWriteTime)

Output.Show("上次访问时间:" & ifo.LastAccessTime)

Output.Show("是否只读:" & ifo.ReadOnly)

Output.Show("是否隐藏:" & ifo.Hidden)

output.Show("文件路径:" & ifo.Path)

Output.Show("文件大小:" & ifo.Length)

Output.Show("文件名称:" & ifo.Name)

Output.Show("扩展名:" & ifo.Extension)

是对知道路径的文件的吧？怎样改一下？

Dim img As Image = Image.FromFile("I:\\图像文件.jpg")
Dim pt As PropertyItem() = img.PropertyItems
For i As Integer = 0 To pt.Length - 1
    Dim p As PropertyItem = pt(i)
    Select Case pt(i).Id
        Case &H132
            Dim s As String = System.Text.Encoding.ASCII.GetString(p.value)
            Output.Show("修改时间:  " & s)
            Output.Show("")
        Case &H9003
            Dim s As String = System.Text.Encoding.ASCII.GetString(p.value)
            Output.Show("拍摄时间:  " & s)
            Output.Show("")
        Case &H110
            Dim s As String = System.Text.Encoding.ASCII.GetString(p.value)
            Output.Show("相机型号:  " & s)
            Output.Show("")
        Case &H10F
            Dim s As String = System.Text.Encoding.ASCII.GetString(p.value)
            Output.Show("制造商:  " & s)
            Output.Show("")
            
        Case  &H131
            Dim s As String = System.Text.Encoding.ASCII.GetString(p.value)
            Output.Show("修改软件:  " & s)
            Output.Show("")   
            
    End Select
Next

Dim 图像高度 As Integer = img.Height.ToString()
Output.Show("图像高度:  " & 图像高度 & " DPI" )
Dim 图像宽度 As Integer = img.Width.ToString()
Output.Show("图像宽度:  " & 图像宽度  & " DPI" )

怎样把它改成A表的B列当前行读取相片的拍摄日期？