```vb.net
Dim dz_y As String = "e:\DCIM"
Dim dz_x As String = "C:\Users\zlm21\Desktop\"
Dim n_x As String = TextBox1.Text
If IO.Directory.Exists(dz_y) Then
Button1.Enabled = False
Microsoft.VisualBasic.FileIO.FileSystem.CopyDirectory(dz_y, dz_x)
Microsoft.VisualBasic.FileSystem.Rename("dz_x" + "DCIM", n_x)
Button1.Enabled = True
错误代码如下:
![img](https://img-mid.csdnimg.cn/release/static/image/mid/ask/868846860156192.jpg "#left")