掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
「アプリからひらく」には？ (ID：75011)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
忘れてました^^;まだ関数が使われてましたね^^; Public Function DelQuot(tar As String) On Error Resume Next 1 If Right(tar, 1) = """" Then Mid(tar, Len(tar)) = Space(1) tar = Trim(tar) If Right(tar, 1) = """" Then GoTo 1 2 If Mid(tar, 1, 1) = """" Then Mid(tar, 1) = Space(1) tar = Trim(tar) If Mid(tar, 1, 1) = """" Then GoTo 2 DelQuot = tar End Function Public Function LongPath(Path As String) As String Dim sf As String * 255 GetLongPathName Path, sf, 255 If DelNull(sf) = "" Then LongPath = Path Else LongPath = DelNull(sf) End Function GetLongPathNameというのはAPI関数です。APIビューアを使って貼りつけてください。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.