WEB WWWアドレスをローカルアドレスに変更・WWWアドレスをFTP用アドレスに変更
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
Function ServerAddressLocal(wwwAddress As String) As 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 String) As 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 |