文字操作 ローカルパス[¥]をサーバ用パス[/]へ変更

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][文字操作 ローカルパス[¥]をサーバ用パス[/]へ変更]
Option Explicit


Function PathSignChangeS(strPath As StringAs String
'*****************************************
'ローカルパス[\]をサーバ用パス[/]へ変更
'*****************************************

Dim cntLen As Long
Dim cntByt As Long

'文字列中に2byte文字が含まれているか判定
cntLen = Len(strPath)
cntByt = LenB(StrConv(strPath, vbFromUnicode))

If (cntLen <> cntByt) Then
    MsgBox "2byte文字が含まれています!", vbCritical, "PathSignChange"
    PathSignChangeS = ""
Else
    PathSignChangeS = Replace(strPath, "\", "/")
End If

End Function


Function PathSignChangeE(strPath As StringAs String
'*****************************************
'サーバ用パス[/]をローカルパス[\]へ変更
'*****************************************

Dim cntLen As Long
Dim cntByt As Long

'文字列中に2byte文字が含まれているか判定
cntLen = Len(strPath)
cntByt = LenB(StrConv(strPath, vbFromUnicode))

If (cntLen <> cntByt) Then
    MsgBox "2byte文字が含まれています!", vbCritical, "PathSignChange"
    PathSignChangeE = ""
Else
    PathSignChangeE = Replace(strPath, "/", "\")
End If

End Function


Private Sub testS()
    MsgBox PathSignChangeS("K\06\PR\exe\www\XXX")
End Sub

Private Sub testE()
    MsgBox PathSignChangeE("K/06\PR/exe/www/XXX")
End Sub






Production Japan Import Application. Since 1998