Ⅰ 怎样用vb设置文件夹权限
设置权限的方法：
1、随意的到电脑中选择一个文件夹，点击右键，选择属性选项。
2、在弹出来的属性窗口中切换到安全这一栏，然后选择最下方的高级。
3、在高级设置窗口中，咱们选择所有者，然后点击编辑，最后是确定。
4、在名称这一栏中选择所有者，然后将下方的“替换子容器和对象的所有者”勾选上，最后确定退出设置窗口。
5、选择当前所有者即可。
Ⅱ 求助VB一个简单的文件管理系统急需！！
病情分析：
您好，根据您描述的情况，您的胎盘尚未老化，且胎动、胎心正常，您可以再等待几天观察观察，并自数胎动，间接了解宝宝情况。
指导意见：
若观察5-7天仍无宫缩，则需要到医院再次产前检查，了解胎儿情况，必要时静点催产素诱发宫缩。观察过程中如有胎动减少或频繁现象，即应该及时到医院就诊。
Ⅲ vb编写一个文件管理器程序,完成文件的复制,删除,改名等操作.
病情分析：
孩子是多大开始上幼儿园的？出现这种情况，可能是最初送幼儿园时孩子的焦虑情绪没有处理好。对于孩子来说，幼儿园是一个陌生的环境，那里没有熟悉的亲人。有的孩子就会用不交流的方式，希望引起母亲的注意，回到母亲的身边。如果孩子越是这样，家长越是说教，会加重孩子的恐惧。孩子会想，我不喜欢这个环境，妈妈还为此说我，会让孩子更加憎恨这个环境，环境带给她的是更多的负面情绪。再加上比较内向，不善于表达，所有的情绪压抑在心里，对生人会越发的害怕，讨厌。而对亲人就会发泄。
指导意见：
以后最好给孩子多一些表扬与鼓励，少一些说教与强迫。例如再遇到熟人的时候，妈妈不要说“你应该和叔叔打招呼，快点叫叔叔啊。不打招呼多没礼貌”等等这样的话。可以这样说“宝宝，你认识这位叔叔吧，那么我们和他打个招呼好不好？妈妈先打招呼，看看我们谁打的好。你看叔叔和我们打招呼呢，我们也去问声好，好不好。宝宝真棒，主动与叔叔打招呼了”等等。如果实在不愿意，就暂且不要非得打。妈妈要学会看到宝宝的优点，不要总觉得宝宝应该做什么，应该怎样做，一旦做不到，就不高兴，说教。而要反过来看，只要宝宝做了，就及时表扬强化。
小孩子不说话原因有很多。您的小孩读幼儿园以前是个很讨人喜爱的小朋友是因为上幼儿园前大家都是以她为中心，但是上幼儿园后，同班上有很多小朋友，老师不可能以她为中心，而且同班的小朋友也不可能迁就她的，所以她不习惯这样的生活，就会在性格上发生改变。
要改变你的小孩目前的情况，你现在不应该急着给她增加一些集体的活动，你应该找一个同龄的小朋友，先让他们成为朋友，然后让那个小朋友带她出去和别的小朋友玩，这样循序渐进的方法并让同龄小朋友的引导会收到的效果比较好。
这个年龄的孩子，是在玩中去学的，用我们的说教是没有用的，可能还起反作用。
根据你说的情况，孩子可能是在进入一种新的生活状态后不适应，又没能及时得到帮助，所以才成了一种生活中的习惯。
你可以试着带着孩子一边玩一边有意地让她接触外界，和朋友老师来个约定，对孩子多鼓励，让他们有意的多和孩子接触，多鼓励她。也可以让她学点像表演，主持人这一类，要求个人表现比较高的内容。
祝你的孩子早日开朗起来。
Ⅳ VB如何控制某个文件夹里面的文件数量
Public Sub Load_logoin_Image(oProInet As Inet, oProImage As Image)
Dim oFSO As New FileSystemObject
Dim oFile As File
Dim cFile As String
On Error Resume Next
cFile = App。
Path & "\DataBase\ f"
要用inet控件之类的东西下载，保存到硬盘临时目录，再用LoadPicture()加载
Ⅳ vb如何建立文件夹并保存文件
Form1的文件名确保输入正确.你输入多级目录或者单级目录都可以。下面代码可以参照。参数就传递你Text1.text。
Public Function CreateDir(path As String) As Boolean
Static start, pos As Integer
Static directory As String
Static result As Boolean
result = True
' initialize the error trap
On Error GoTo errCreation
' if null string why bother....
If path = "" Then Err.Raise vbObjectError + 1
' start will always be null
' the first time through
If start = Empty Then
start = 1
Else
start = pos + 1
End If
' find "\" if the char exists
pos = InStr(start, path, Chr$(92))
If (pos <> 0) Then
' not at the last directory in the path string...
directory = directory + Mid$(path, start, pos - start) + Chr$(92)
If InStr(1, Mid$(path, start, pos - start), Chr$(58)) = 0 And Dir(directory, vbDirectory) = "" Then
MkDir Mid$(directory, 1, Len(directory) - 1)
End If
' call itself
result = CreateDir(path)
ElseIf (pos = 0) Then
' the last directory or the only in the path string
directory = directory + Mid$(path, start, Len(path) - start + 1)
MkDir Mid$(directory, 1, Len(directory))
directory = ""
End If
' success return true
CreateDir = result
Exit Function
' if it gets here, an exception was thrown
' propogate the error to the calling function
errCreation:
Err.Clear
result = False
CreateDir = result
End Function
至于打开该文件夹。你可以用VB中的
Shell "explorer " & FILENAME, vbNormalNoFocus
FILENAME是文件夹或者文件名都可以。
每次启动程序，文件夹名都要重新命名，下面代码参照：
Dim i As Integer
i = 1
Set fs = CreateObject("scripting.filesystemobject")
Set fd = fs.GetFolder("d:\test")
fd.Name = "pic"
或者
Name "OldPathname" As "NewPathname" 也可以
只能给你一个实现的大概
Ⅵ vb.net 文件夹操作
vb.net使用控件FolderBrowserDialog1,在程序中:
'设置对话框中在树视图控件上显示的说明文本
Me.FolderBrowserDialog1.Description = "请选择输出报表所在路径:"
'设置从其开始浏览的根文件夹
Me.FolderBrowserDialog1.SelectedPath = "c:\"
If Me.FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
'取得全路径（包含文件名）
reportPath1 = System.IO.Path.GetFullPath(Me.FolderBrowserDialog1.SelectedPath)
'设定text显示文件名
txtReport1.Text = reportPath1
setReportList()
End If
在setReportList()中针对你所需要的文件进行操作等