(VB6) Left, Right, Mid 等の文字列関数の代用

  Dim y As String
  Dim z As String

  y = "abcdefg"
  z = y.Substring(0, 3)   'abc

(VB6) InStr の代用

Dim i As Integer Dim x As String i = x.LastIndexOf("\")

プログラム起動引数取得

Sub Main(ByVal strArgs() As String)

  Dim s As String
  Dim w As String

  For Each s In strArgs
    w = s
  Next

End Sub

ディレクトリ確認（なかったら作る）

Private Function hogeDir() As Boolean

  Dim strPath As String

  strPath = "c:\hoge\"

  If System.IO.Directory.Exists(strPath) = False Then
    System.IO.Directory.CreateDirectory(strPath)
  End If

End Function

よく使いそう。

ハッシュテーブル

Private Function hogeHashTable() As Boolean

  Dim ht As Hashtable
  Dim strKey As String
  Dim strArray As String()
  Dim strVal As String

  ht = New Hashtable

  strKey = "01"
  strArray = New String() {"japan", "nippon"}
  ht.Add(strKey, strArray)

  strKey = "02"
  strArray = New String() {"pen", "enpitsu"}
  ht.Add(strKey, strArray)

  If ht("01") Is Nothing Then
  Else
    strVal = CType(ht("01"), Array)(0)  'japan
    strVal = CType(ht("01"), Array)(1)  'nippon
  End If

  If ht("02") Is Nothing Then
  Else
    strVal = CType(ht("02"), Array)(0)  'pen
    strVal = CType(ht("02"), Array)(1)  'enpitsu
  End If

End Function

連想配列。結構使える。