主题：求助动态更改文件夹目录代码

If e.DataCol.Name = "IO" Then '如果触动的是"IO"列
    If  FileSys.DirectoryExists("D:\跟单系统外部数据\Attachments\规格\" & Tables("订单情况").Current("IO")) & "" Then  '判断这个"IO"的目录是否存在
        e.Cancel = True  '如存在取消建立
    Else  '否则
        FileSys.CreateDirectory("D:\跟单系统外部数据\Attachments\规格\新建文件夹")  '建立一个新的文件夹
        FileSys.RenameDirectory("D:\跟单系统外部数据\Attachments\规格\新建文件夹",Tables("订单情况").Current("IO"))   '根据订单情况表的"IO"列的数据改成新文件夹的名字
        MessageBox.Show("此制单的目录已建立!", "提示")
    End If
End If

 

现在我用,和你的要求差不多.

可以利用代码将文件自动归类到相应的文件夹中.我过一会将我的代码贴上来.

Dim T,T1,T2,T3,T4 As String
If FileSys.FileExists(ProjectPath & "Attachments\规格\" & Tables("订单情况").Current("IO") & "\ " & Tables("订单情况").Current("IO") & T3 &  T2 & T4 & T & ".xls") Then '判断文件夹中有无这个文件
    FileSys.DeleteFile(ProjectPath & "Attachments\规格\" & Tables("订单情况").Current("IO") & "\ " & Tables("订单情况").Current("IO") & T3 & T2 & T4 & T & ".xls") '如果有就将这个文件删除
End If
T =  e.Form.Controls("ComboBox1").value
T1 = ProjectPath & "Attachments\" & T & ".xls"
T2 = e.Form.Controls("ComboBox8").value
T3 = e.Form.Controls("ComboBox5").value
T4 =  e.Form.Controls("ComboBox10").value

  If T isnot Nothing Then
    If T.Indexof(T) > -1 Then

       Dim Book As New XLS.Book(T1)
       Book.Build()

       Book.Save(ProjectPath & "Attachments\规格\" & Tables("订单情况").Current("IO") & "\ " & Tables("订单情况").Current("IO") & T3 & T2 & T4 &T & ".xls")     '将打印出来的文件保存到相对应的文件夹中