将一个阵列复制到另一个阵列

Question

My Sub继续以"<--- HERE"结尾的在线错误.

如果在Dim中指定数组是Full_Path(2)我得到compile error Cannot be assigned to an array.

如果我把数组保持为动态(如下面的样本),我得到Run-Time error '13': Type mismatch.

我不明白为什么两者都不起作用？

也作为输入Entered_Path = D:\Data\MBS

Sub Set_Folder(Entered_Path As String)
    ' this function wil point to the folder that you want your data be saved into
    Dim Drive As String, Folder As String
    Dim Full_Path()

    'Assign this to a Public Variable
    Path = Entered_Path

    Full_Path = Split(Entered_Path, ":", , vbTextCompare)   <--- HERE
    Drive = Full_Path(0)
    Folder = Full_Path(1)

    ChDrive Drive
    ChDir Folder
End Sub

Answer 1

您可能不需要所有这些变量.

查找Split()

Sub SetFolder(Entered_Path)
    ChDrive Split(Entered_Path, ":")(0)
    ChDir Split(Entered_Path, ":")(1)
End Sub

这显然假设您的路径始终采用以下格式 DRIVE:\FOLDER\SUB