WEB WWWアドレスをローカルアドレスに変更・WWWアドレスをFTP用アドレスに変更

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

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][WEB WWWアドレスをローカルアドレスに変更・WWWアドレスをFTP用アドレスに変更]
Option Explicit


Function ServerAddressLocal(wwwAddress As StringAs String
'***************************************
'WWWアドレスをローカルアドレスに変更
'***************************************
'サーバー上のディレクトリーとローカルフォルダを一致させる
Dim strDel As String, str As String, BasicPointAddress As String

'正規アドレスから削除するアドレス
strDel = "http://www.xxxxx.com/"
'ローカル上の対象フォルダパス
BasicPointAddress = "C:\xxxx\yyyyy\zzzz\www"

    str = wwwAddress
    str = Trim(Mid(str, Len(strDel) + 1))
    str = Trim(Mid(str, 1, Len(str) - 1))

ServerAddressLocal = BasicPointAddress & "\" & str
End Function


Function FTPUpAddress(wwwAddress As StringAs String
'***************************************
'WWWアドレスをFTP用アドレスに変更
'***************************************
'サーバーUP用のFTPアドレスに変更
Dim strDel As String, str As String, BasicPointAddress As String

'正規アドレスから削除するアドレス
strDel = "http://www.xxxxx.com/"

    str = wwwAddress
    str = Trim(Mid(str, Len(strDel) + 1))
    str = Trim(Mid(str, 1, Len(str) - 1))

FTPUpAddress = "www/" & str & "/"
End Function





Production Japan Import Application. Since 1998