Ⅰ 怎樣用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()中針對你所需要的文件進行操作等