DOS/V Power Report 1996 February/VPR9602A.ISO/fwindows/exds100/spack/exceed5.frm

Text File | 1995-09-29 | 6KB | 216 lines

VERSION 2.00
Begin Form EXIS
   BackColor       =   &H00C0C0C0&
   FontBold        =   -1  'True
   FontItalic      =   0   'False
   FontName        =   "ＭＳ ゴシック"
   FontSize        =   12.75
   FontStrikethru  =   0   'False
   FontUnderline   =   0   'False
   Height          =   4665
   Icon            =   EXCEED5.FRX:0000
   Left            =   1545
   LinkTopic       =   "Form1"
   ScaleHeight     =   4215
   ScaleWidth      =   7515
   Top             =   1755
   Width           =   7635
   Begin OptionButton Option1
      BackColor       =   &H00C0C0C0&
      Caption         =   "ディレクトリ"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "ＭＳ ゴシック"
      FontSize        =   13.5
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   375
      Index           =   1
      Left            =   210
      TabIndex        =   10
      Top             =   1260
      Width           =   2025
   End
   Begin OptionButton Option1
      BackColor       =   &H00C0C0C0&
      Caption         =   "ファイル"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "ＭＳ ゴシック"
      FontSize        =   13.5
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   375
      Index           =   0
      Left            =   210
      TabIndex        =   9
      Top             =   900
      Value           =   -1  'True
      Width           =   1395
   End
   Begin CommandButton QQQ
      Caption         =   "Help"
      Height          =   375
      Index           =   1
      Left            =   3720
      TabIndex        =   4
      Top             =   3300
      Width           =   1545
   End
   Begin CommandButton CMD
      Caption         =   "実行"
      Height          =   495
      Left            =   2520
      TabIndex        =   3
      Top             =   3180
      Width           =   1095
   End
   Begin CommandButton QQQ
      Caption         =   "Quit"
      Height          =   375
      Index           =   0
      Left            =   5400
      TabIndex        =   1
      Top             =   3300
      Width           =   1545
   End
   Begin TextBox Text1
      BackColor       =   &H0000FFFF&
      Height          =   495
      Index           =   0
      Left            =   180
      TabIndex        =   0
      Text            =   "data1.txt"
      Top             =   330
      Width           =   7065
   End
   Begin Label Label4
      Alignment       =   1  '右揃え
      BackStyle       =   0  '透明
      Caption         =   "検査結果"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "ＭＳ ゴシック"
      FontSize        =   12.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   345
      Left            =   1110
      TabIndex        =   8
      Top             =   2430
      Width           =   1155
   End
   Begin Label Label3
      BackColor       =   &H0000FF00&
      BorderStyle     =   1  '実線
      Height          =   465
      Index           =   1
      Left            =   2310
      TabIndex        =   7
      Top             =   2370
      Width           =   4875
   End
   Begin Label Label1
      BackStyle       =   0  '透明
      Caption         =   "返却値　0:存在  -1:存在しない"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "ＭＳ ゴシック"
      FontSize        =   12.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   345
      Left            =   2970
      TabIndex        =   6
      Top             =   1800
      Width           =   3855
   End
   Begin Label Label2
      BackStyle       =   0  '透明
      Caption         =   "ファイルまたはディレクトリ名称"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "ＭＳ ゴシック"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   255
      Index           =   0
      Left            =   210
      TabIndex        =   5
      Top             =   120
      Width           =   3045
   End
   Begin Label Label3
      BackColor       =   &H0000FF00&
      BorderStyle     =   1  '実線
      Height          =   465
      Index           =   0
      Left            =   2340
      TabIndex        =   2
      Top             =   1740
      Width           =   495
   End
End
Option Explicit

Dim entmode As Integer

Sub CMD_Click ()
Dim s1 As String, s2    As String
Dim rt
Dim modes As Integer

  s1 = TEXT1(0).Text
  If OPTion1(0).Value Then
    rt = Exists%(s1, 1)
  Else
    rt = Exists%(s1, 4)
  End If
  '
  label3(0).Caption = Str$(rt)
  '
  s2 = "解析不能です"
  Select Case rt
  Case 0
    s2 = "存在します"
  Case -1
    s2 = "存在しません"
  End Select
  label3(1).Caption = s2
  '

End Sub

Sub Form_Load ()
Dim i As Integer
i = StrMain.CMD(0).Tag
Caption = StrMain.CMD(i).Caption + "  （" + StrMain.Label1(i).Caption + "）  " + "　動作試験"
entmode = 0
End Sub

Sub QQQ_Click (Index As Integer)
Dim ccc As String
Dim MM  As String
  ccc = Chr$(13)
  Select Case Index
  Case 0
    Unload Me
  Case 1

    MM = MM + "Ｅｘｉｓｔｓ" + ccc + ccc
    MM = MM + "　＜概要＞指定のファイル名称またはディレクトリ名称が存在するかを検査します。" + ccc + ccc
    MM = MM + "　＜引数＞" + ccc
    MM = MM + "　　　　　＜検査対象文字列＞ ＜タイプ　1:ファイル検査　4:ディレクトリ検査＞" + ccc + ccc
    MM = MM + "　＜返却値＞　　0 :存在する" + ccc
    MM = MM + "　　　　　　　　-1:存在しない" + ccc + ccc
    MM = MM + "　＜特記事項＞　ディレクトリ検査の場合でルートディレクトリの指定で" + ccc
    MM = MM + "　　　　　　　　A:　の指定では-1を返します。　A:\　\ﾏｰｸを末尾に指定して下さい。" + ccc
    MM = MM + "　　　　　　　　" + ccc
    MM = MM + "　　　　　　　　" + ccc
    MM = MM + "　　　　　　　　"
    MsgBox MM
  End Select
End Sub