12-30-2011، 12:07 AM
با سوری میتونید یک فولدر یا پوشه رو مخفی کنید:
Using:
FileSystemObject
Require:
Microsoft Scripting Runtime
or
C:\WINDOWS\System32\scrrun.dll
so using attributes of the folder we hide it and by giving it a different name from the one he have it will not be even able to access it from Command Prompt. So here is the code for hiding
سورس 2 :
Using:
FileSystemObject
Require:
Microsoft Scripting Runtime
or
C:\WINDOWS\System32\scrrun.dll
so using attributes of the folder we hide it and by giving it a different name from the one he have it will not be even able to access it from Command Prompt. So here is the code for hiding
کد:
Private Sub Command1_Click()
Dim FS As New FileSystemObject
strPath = "E:\TestFolder"
Name strPath As strPath & "A"
Set F = FS.GetFolder(strPath & "A")
f.Attributes = -1
End Subسورس 2 :
کد:
Private Sub Command2_Click()
Dim fs As New FileSystemObject
Dim f
Dim strPath As String
strPath = "E:\TestFolder"
f.Attributes = 0
Name strPath & "A" As strPath
End Sub