form2.frm

简单的操作系统程序

VERSION 5.00
Begin VB.Form creForm 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "新建"
   ClientHeight    =   2295
   ClientLeft      =   5280
   ClientTop       =   4500
   ClientWidth     =   4440
   Icon            =   "Form2.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2295
   ScaleWidth      =   4440
   Begin VB.CommandButton Command2 
      Caption         =   "取 消"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2520
      TabIndex        =   3
      Top             =   1560
      Width           =   1215
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确 定"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   600
      TabIndex        =   2
      Top             =   1560
      Width           =   1215
   End
   Begin VB.TextBox Text1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   480
      TabIndex        =   1
      ToolTipText     =   "输入文件名或文件夹名"
      Top             =   840
      Width           =   3495
   End
   Begin VB.Label Label1 
      Caption         =   "请输入文件名或文件夹名："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   3735
   End
End
Attribute VB_Name = "creForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub Command1_Click()
If Text1.Text = "" Then
   MsgBox "请输入名称！", 48, "提示"
Else
    wj = Text1.Text
    cd = Len(wj)
    n = 0
    For i = 1 To cd
    If Asc(Mid(wj, i, 1)) <= 122 And Asc(Mid(wj, i, 1)) >= 97 Then
        n = n + 1
    Else
        If Asc(Mid(wj, i, 1)) <= 57 And Asc(Mid(wj, i, 1)) >= 48 Then
           n = n + 1
        Else
            If Asc(Mid(wj, i, 1)) = 46 Then
                n = n + 1
            End If
        End If
    End If
    Next i
    If n = cd Then
        If cd <= 3 And InStr(wj, ".") = 0 Then
            lj = LCase(mainform.TreeView1.SelectedItem.FullPath)
            lj = Right(lj, Len(lj) - 5)
    
            Call mainform.makdir(lj & "\" & Text1.Text)
            Text1.Text = ""
            Me.Hide
        Else
           If cd <= 5 And InStr(wj, ".") <> 0 And cd - InStr(wj, ".") = 1 Then
              lj = LCase(mainform.TreeView1.SelectedItem.FullPath)
            lj = Right(lj, Len(lj) - 5)
              
              Call mainform.create(lj & "\" & Text1.Text)
              Me.Hide
            Else
                MsgBox "文件名小于3个字符，必须有一个一位扩展名，文件夹名小于3个字符！", 48, "提示"
                Text1.Text = ""
            End If
        End If
    Else
        MsgBox "名称中包涵非法字符", 48, "提示"
        Text1.Text = ""
    End If
End If

End Sub

Private Sub Command2_Click()
Me.Hide
End Sub



Private Sub Form_Load()
Text1.Text = ""
creForm.Show

 Text1.SetFocus
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    Call Command1_Click
       
End If
End Sub