第一个： 想弄一个IF语句 很简单 先检查C:\BOS 这个文件夹存不存在
如果存在 不执行任何命令 如果不存在 就创建一个叫BOS的文件夹在C盘
第二个： 怎样能在点击一个按钮的时候启动一个.scr屏幕保护文件
文件的地址是：C:\PMBH\屏幕保护.scr
第三个： 怎么点击一个按钮就能把一个text里的内容保存到C:\BOS这个文件里
最好能以dll的格式 而不是txt 不过不能也无所谓了 文件名：stop
第四个： form load 时检查c:\BOS这个文件夹里有没有stop这个文件
有的话unload me 没有的话正常启动form
第五个： 怎么读取某个txt或者dll的文件到一个text里显示 这个主要是配合第三个问题
回答好3个追10分 全部回答追20分 谢啦！！！
1. If Dir("C:\BOS", vbDirectory) = "" Then
MkDir "C:\BOS"
End If
2. call shell("C:\PMBH\屏幕保护.scr")
3. '只能保存成txt文件，代码如下
Private Sub Command1_Click()
Open "C:\BOS\stop.txt" For Output As #1
Write #1, Text1.Text
Close #1
End Sub
4.
Private Sub Form_Load()
If Dir("C:\BOS\stop.txt") <> "" Then
Unload Me
End If
End Sub
5.
Private Sub Command1_Click()
Dim x As String
Text1.Text = ""
Open "C:\BOS\stop.txt" For Input As #1
Do While Not EOF(1) Input #1, x
Text1.Text = Text1.Text & x
Loop
Close #1
End Sub
先回答这5个吧，有点饿了，先吃饭去回来再回答后两个
推荐实用代码网站 http://bingning.net/free/source/index.html
，这里有很多常用代码。一、
if dir("C:\BOS ",16)<>"" then
msgbox "文件存在"
else
msgbox "文件不存在"
end if
二、
shell("C:\PMBH\屏幕保护.scr")
四、
if dir("C:\BOS\stop.dll ")<>"" then
msgbox "文件存在"
else
msgbox "文件不存在"
end if
6个问题，都在以下了
Dim i As Integer Private Sub Command1_Click() Dim STR As String If Dir("C:\BOS", vbDirectory) <> "" Then MsgBox "没有" Exit Sub Else MkDir "C:\BOS" MsgBox "创建成功" End If End Sub
Private Sub Command2_Click() Shell "C:\PMBH\屏幕保护.scr" End Sub
Private Sub Command3_Click() Open "c:\BOS\stop.txt" For Output As #1 Print #1, "1234" Print #1, "ABCD" Close #1
End Sub
Private Sub Command5_Click() Dim Lstr As String Open "c:\BOS\stop.txt" For Input As #1
Do While Not EOF(1) Input #1, Lstr Text1.Text = Lstr Loop End Sub
Private Sub Form_Load() i = 20 If Dir("c:\bos\stop.txt", 16) = "" Then Unload Me End If End Sub
Private Sub Timer1_Timer() i = i - 1 If i <= 0 Then i = 20 Label1.Caption = i End Sub