form1.frm

vb编程+从基础到实践光盘代码

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()

Dim SourceFile, DestinationFile
Dim OldName, NewName
On Error Resume Next
    ChDrive "C"   ' 使"C"成为当前驱动器。

    MkDir "A"   '在当前驱动器 建立新的文件夹A。
    MkDir "B"   '在当前驱动器 建立新的文件夹B。

    SourceFile = "C:\1.txt"   ' 指定源文件名。  请在在C盘下新建一个TXT文件“1.txt”
    
    DestinationFile1 = "C:\A\1.txt"   ' 指定目的文件名。
    DestinationFile2 = "C:\B\1.txt"   ' 指定目的文件名。
    FileCopy SourceFile, DestinationFile1   ' 将源文件的内容复制到目的文件中。
    FileCopy SourceFile, DestinationFile2   ' 将源文件的内容复制到目的文件中。

    Kill "C:\B\1.txt" '将指定目录下的1.exe 文件删除。

    RmDir "B"   ' 将B文件夹 删除。'  B为一空的目录或文件夹。

    OldName = "C:\A\1.txt": NewName = "C:\A\binjia.txt"   ' 定义文件名。
    Name OldName As NewName   ' 更改文件名。

    SetAttr "C:\A\binjia.txt", 0  ' 设置常规属性。
    SetAttr "C:\A\binjia.txt", vbHidden + vbReadOnly  ' 设置隐含并只读。

End Sub