home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / ExtremeRSS19413910182005.psc / ExtremeRSS / frmCreate.frm < prev    next >
Text File  |  2005-08-11  |  3KB  |  114 lines
  1. VERSION 5.00
  2. Begin VB.Form frmCreate 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Create new folder"
  5.    ClientHeight    =   1200
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   5535
  9.    Icon            =   "frmCreate.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   1200
  14.    ScaleWidth      =   5535
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.CommandButton cmdCancel 
  17.       Caption         =   "&Cancel"
  18.       Height          =   375
  19.       Left            =   4200
  20.       TabIndex        =   2
  21.       Top             =   720
  22.       Width           =   1215
  23.    End
  24.    Begin VB.CommandButton cmdCreate 
  25.       Caption         =   "&Save"
  26.       Height          =   375
  27.       Left            =   2880
  28.       TabIndex        =   1
  29.       Top             =   720
  30.       Width           =   1215
  31.    End
  32.    Begin VB.TextBox txtFolderName 
  33.       Height          =   285
  34.       Left            =   120
  35.       TabIndex        =   0
  36.       Top             =   360
  37.       Width           =   5295
  38.    End
  39.    Begin VB.Label lblFolderName 
  40.       Caption         =   "Enter new folder name"
  41.       Height          =   285
  42.       Left            =   120
  43.       TabIndex        =   3
  44.       Top             =   120
  45.       Width           =   1905
  46.    End
  47. End
  48. Attribute VB_Name = "frmCreate"
  49. Attribute VB_GlobalNameSpace = False
  50. Attribute VB_Creatable = False
  51. Attribute VB_PredeclaredId = True
  52. Attribute VB_Exposed = False
  53. Option Explicit
  54.  
  55. Dim FSys As New FileSystemObject
  56. Dim FSysFile As Object
  57. Dim FSysFolder As Object
  58.  
  59. Private Sub cmdCancel_Click()
  60.  
  61.     Unload frmCreate
  62.  
  63. End Sub
  64.  
  65. Private Sub cmdCreate_Click()
  66.  
  67.     On Error GoTo Error_Handler
  68.     
  69.     txtFolderName.Text = Trim(txtFolderName.Text)
  70.  
  71.     FSys.CreateFolder "C:\RSS\" & txtFolderName.Text
  72.     
  73.     frmMain.cboCategory.Clear
  74.     
  75.     For Each FSysFolder In FSys.GetFolder("C:\RSS\").SubFolders
  76.         frmMain.cboCategory.AddItem FSysFolder
  77.     Next
  78.     
  79.     frmMain.cboCategory.AddItem "C:\RSS"
  80.     frmMain.cboCategory.SelText = "C:\RSS\" & txtFolderName.Text
  81.     frmMain.fileFeeds.Path = frmMain.cboCategory
  82.     txtFolderName.Text = ""
  83.     Unload frmCreate
  84.  
  85. Error_Handler:
  86.  
  87.     If Err = 58 Then
  88.         MsgBox "Folder '" & txtFolderName.Text & "' Already exists. Please choose another name.", vbInformation, "Folder create error"
  89.         txtFolderName.Text = ""
  90.         Exit Sub
  91.     End If
  92.     
  93.     If Err = 52 Then
  94.         MsgBox "Bad file name, please choose another name!", vbInformation, "Bad file name"
  95.         Exit Sub
  96.     End If
  97.     
  98.     If Err = 76 Then
  99.         MsgBox "Bad file name, please choose another name!", vbInformation, "Bad file name"
  100.         Exit Sub
  101.     End If
  102.     
  103. End Sub
  104.  
  105. Private Sub txtFolderName_KeyPress(KeyAscii As Integer)
  106.     
  107.     On Error Resume Next
  108.     
  109.     If KeyAscii = vbKeyReturn Then
  110.         cmdCreate_Click
  111.     End If
  112.     
  113. End Sub
  114.