Tạo Folder theo giá trị của 1 ô (Cell) có ký tự đặc biệt

[quyenpv]

Chào anh chị
Em đang muốn tạo thư mục theo giá trị của 1 ô (Cell) để mục đích xuất các file con vào thư mục này. Nhưng ký hiệu mã thư mục có các ký tự đặc biệt như "VTUDA/20/000036" nên câu lệnh không thể thực hiện được

    sRootFolder = ActiveWorkbook.path
    sFolder_Unfinished=shtDanhMuc.[D4].Value
    
    If Len(Dir(sRootFolder & "\" & sFolder_Unfinished, vbDirectory)) = 0 Then
        MkDir (sRootFolder & "\" & sFolder_Unfinished)
    End If

Em nhờ anh chị có cách nào Replace "/" thành "_" , em cám ơn nhiều ạ

 

[Bluestar092011]

Chào anh chị
Em đang muốn tạo thư mục theo giá trị của 1 ô (Cell) để mục đích xuất các file con vào thư mục này. Nhưng ký hiệu mã thư mục có các ký tự đặc biệt như "VTUDA/20/000036" nên câu lệnh không thể thực hiện được

    sRootFolder = ActiveWorkbook.path
    sFolder_Unfinished=shtDanhMuc.[D4].Value
   
    If Len(Dir(sRootFolder & "\" & sFolder_Unfinished, vbDirectory)) = 0 Then
        MkDir (sRootFolder & "\" & sFolder_Unfinished)
    End If

Em nhờ anh chị có cách nào Replace "/" thành "_" , em cám ơn nhiều ạ

Thử thế này.

    sFolder_Unfinished=VBA.Replace(sFolder_Unfinished, "/", "_")

 

[quyenpv]

Thử thế này.

    sFolder_Unfinished=VBA.Replace(sFolder_Unfinished, "/", "_")

Thanks a. Chuẩn rồi ạ