文件改名 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

当下载的文件是锁定时,我上传修改文件名会报错,有办法解决吗?改名代码如下:

表事件BeforeAttachFile

Dim fi As String = e.FileName

Dim fi1 As String = e.SubFolder

Dim fi2 As String = e.DataCol.DefaultFolder

'MessageBox.Show(fi2 & "\" & fi1 & "\" & fi)

If ftppp = False Then

If FileSys.FileExists(fi2 & "\" & fi1 & "\" & fi) Then

Dim aa As String = Rand.NextString(4) & fi

e.FileName = aa

End If

文件名其实修改成功了,文件也保存了,就是会报错,然后图片列的保存信息不正确,是本地文件名:

D:\市场尺寸.png

这是文件夹的权限,为了限制更改,有办法解决权限问题吗?我发现只要不限制写入属性,就可以上传

是权限问题,共享文件夹我设置是能写入,但不能写入属性和写入扩展属性,因为我不能让使用人员修改文件,但要让他们能创建文件,所以这个问题有办法解决吗?

而且只有这种有安全锁定的文件上传时会报错,没有锁定的没有问题

或者有办法判断或者修改本地文件的属性吗

在需要解锁的文件所在的文件夹中空白处，按住Shift然后单击右键，在弹出的右键菜单中，选择“在此处打开PowerShell窗口”，输入Get-ChildItem | Unblock-File，然后回车即可解锁所有被锁定的文件。

需要去除锁定,只能用PowerShell,狐表有办法运行PowerShell和命令吗?

最后使用CMD曲线救国,老师帮助看下这段代码有没有问题?我本机运行良好,我怕那些老电脑有问题(不能使用FileSys.CopyFile,一样会报错)

Dim fi As String = e.FileName

Dim fi1 As String = e.SubFolder

Dim fi2 As String = e.DataCol.DefaultFolder

Dim aa As String

If ftppp = False Then

If FileSys.FileExists(fi2 & "\" & fi1 & "\" & fi) Then

aa = Rand.NextString(4) & fi

Else

aa = fi

End if

Dim p As New Process()

p.StartInfo.FileName = "cmd.exe"

p.StartInfo.UseShellExecute = False '关闭Shell的使用

p.StartInfo.RedirectStandardInput = True '重定向标准输入

p.StartInfo.RedirectStandardOutput = True '重定向标准输出

p.StartInfo.RedirectStandardError = True '重定向错误输出

p.StartInfo.CreateNoWindow = True '设置不显示窗口

p.Start()

Dim bb As String = "echo f| xcopy """ & e.SourceFolder & "\" & fi & """ """ & fi2 & "\" & fi1 & "\" & aa & """ /i /D /s /e /c /y"

p.StandardInput.WriteLine(bb)

p.StandardInput.WriteLine("exit")

If e.DataRow(e.DataCol.Name) = Nothing Then

e.DataRow(e.DataCol.Name) = fi1 & "\" & aa

Else

e.DataRow(e.DataCol.Name) &= vbCrLf & fi1 & "\" & aa

End If

e.Cancel = True

End If

主题：文件改名