If e.PostValues.ContainsKey("up1_deleted") Then
Dim Files = e.PostValues("up1_deleted").Split("|")
Dim lst As List(Of String) = dr.Lines("账号头像图片")
For Each File As String In Files
lst.Remove(File.Trim(".").Replace("img/头像/", ""))
file = "d:\web\" & File.Trim(".")
If Filesys.FileExists(file) Then
Dim endpoint As String = "https://oss-cn-hanjgzoh55ou.aliyuncs.com" '你的阿里云oss地域节点
Dim accessKeyId As String = "LTAIg5tQg3QgxgqnsjjKeFdzB9b7o"
Dim accessKeySecret As String = "xTeKXzagrLUgjjjj7ib9kgKsTZH7js64CymQZb"
Dim bucketName As String = "nczlfweb" '存储空间的名称
Dim client As New Aliyun.OSS.OssClient(endpoint, accessKeyId, accessKeySecret) '根据SDK创建阿里云oss对象
Try
'设置要删除的文件列表---
Dim DeleteFiles As New List(Of String)
DeleteFiles.Add("img/头像/" & File.Trim("."))
'设置要删除的文件列表---
Dim request = New Aliyun.OSS.DeleteObjectsRequest(bucketName, DeleteFiles, False)
client.DeleteObjects(request)
'MessageBox.show("删除成功")
Catch ex As Exception
'MessageBox.show("删除失败,原因" & ex.Message)
End Try
Filesys.DeleteFile(file)
End If
Next
dr.Lines("账号头像图片") = lst
End If
这样什么取名
[此贴子已经被作者于2022/6/14 10:53:52编辑过]