|
"・"はASCIIコードではないからです。
(文字コード165で127より大きいから。)
ほかにも"「"、"」"、"、"がおそらく残っちゃうでしょう。
>SKY04・02.pdf
は空文字でOKでいいなら、
> If code < 0 Or code > 127 Then
> str = str & Chr$(code)
> End If
を Select Case文にして意図しない文字は除外するようにすればいいです。
Dim s As String
s = "SKY04・02.pdf"
Dim str As String
Dim tmp As String
Dim i As Long
Dim code As Integer
For i = 1 To Len(s)
tmp = Mid$(s, i, 1)
Select Case Asc(tmp)
Case 0 To 127 ' 対象外
Case Asc("・") ' 対象外
Case Asc("「") ' 対象外
Case Asc("」") ' 対象外
Case Asc("、") ' 対象外
Case Else
str = str & tmp
End Select
Next
|
|