如果全部移完之后,怎么增加一个提示?
Dim xplj As String = e.Form.Controls("相片地址").text
Dim cflj As String = e.Form.Controls("存放地址").text
For Each File As String In FileSys.GetFiles(xplj)
If file.EndsWith("jpg") Then ' 不加这句就出现"内存不足"报错;加了就是出现 "无相关属性"报错,并且完全没有移到相片命名
'读取相片拍摄日期
Dim theImage As Image = Image.FromFile(file)
Dim propItems() As System.Drawing.Imaging.PropertyItem = theImage.PropertyItems
Dim propItem As System.Drawing.Imaging.PropertyItem = theImage.GetPropertyItem(36867)
Dim propItemValue() As Byte = propItem.Value
Dim dateTimeStr As String = System.Text.Encoding.ASCII.GetString(propItemValue).Trim(chr(0))
Dim rq As Date = DateTime.ParseExact(dateTimeStr, "yyyy:MM:dd HH:mm:ss",System.Globalization.CultureInfo.InvariantCulture)
theImage.Dispose
Dim mm As String
mm = format(rq,"yyyyMM")
Dim fn = FileSys.GetName(File)
If FileSys.DirectoryExists(cflj &"\"& mm) Then '如果目录存在
FileSys.MoveFile(File, cflj &"\" & mm &"\" & fn)
FileSys.RenameFile(cflj &"\" & mm &"\" & fn, rq)
Else
FileSys.CreateDirectory(cflj &"\"& mm)
FileSys.MoveFile(File, cflj &"\" & mm &"\" & fn)
FileSys.RenameFile(cflj &"\" & mm &"\" & fn, rq)
End If
End If
Next
已上传附件,默认密码。
请帮忙改一下。谢谢
[此贴子已经被作者于2019/10/4 12:02:19编辑过]