絶対ディレクトリが256文字を超えるフォルダツリーを作成していますか？

Question

ExcelのVBAマクロを使用して、Excelファイルに基づいてフォルダツリーを作成しています。

現在の問題は、絶対ディレクトリが非常に長くなるたびにエラーが発生するようです。

プログラムは実行時エラー76（パスが見つかりません）をスローします。スクリプトが256文字を超える絶対パスを参照しているため、これが原因であると思います。

回避策はありますか？またはフォルダ名と絶対パス文字列を短縮するための唯一の選択肢ですか？

Dim asheet As Range, r As Range, c As Range 
Dim fPath As String, tmp As String 

Set asheet = ActiveSheet.UsedRange 

For Each r In asheet.Rows 
    fPath = DEST_FOLDER 
    For Each c In r.Cells 
     tmp = Trim(c.Value) 
     If Len(tmp) = 0 Then 
      Exit For 
     Else 
      tmp = Clean(tmp) 
      fPath = fPath & tmp & "\" 
      If Len(Dir(fPath, vbDirectory)) = 0 Then MkDir fPath 
     End If 
    Next c 
Next r 

クリーン（）単に文字列、すなわちから特殊文字を削除します自己定義された関数である：

EDIT

私が使用しているコードは、次があります！、＃、_、@、$、&、*、^、および％。

絶対パスの代わりに相対パスを使用するこれらのフォルダを作成するために使用できる別の方法がありますか？

Answer 1

Windows APIには、状況によってはlimit of 260 characters（C：\ + 256文字+）があります。以前の質問を参照している場合、SHFileOperationAの代わりにSHFileOperationWを使用してみましたか？