الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال: اخفاء مجموعة من الملفات والمجلدات

بدأه maayah في 25 نوفمبر 2008 · 11 رد · 1,105 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

يوجد عندي مجلد في داخل هذا المجلد مجموعة من المجلدات

والملفات هل يوجد كود او طريقة نستطيع من خلال المجلد

الرئيسي الذي يحتوي هذه المجلدات والملفات اخفاء كل محتويات

المجلد الرئيسي من ملفات ومجلدات وهل يوجد كود يقوم بإظهار

كل المجلدات والملفات المخفية في هذا المجلد الرئيسي.

مع شكري للجميع ...

#2 
Dim X As New System.IO.FileInfo("C:\sami.txt")
		X.Attributes = IO.FileAttributes.Hidden

تم تعديل هذه المشاركة بواسطة XP.net في 27 نوفمبر 2008 في 18:15

Sami is the name .net is the game

SamiKaraeen@hotmail.com

#3

اخي انا اعرف هذا الكود

هذا الكود يخفي ملف واحد ولا يخفي كل الملفات والمجلدات الموجودة

داخل المجلد الرئيسي

#4

اعملي loop في كل ملف داخل المجلد و قومي بتغيير الخصائص لكل ملف

او حولي الكود بلد ملف للمجلد ككل

Sami is the name .net is the game

SamiKaraeen@hotmail.com

#5

اخي ممكن تعطيني مثال

لاني مبتدأ في الفيجوال بيسك دوت نت

#6

ما في حل يا اخوان

#7 
 Dim x As System.IO.FileInfo
		Dim D As New System.IO.DirectoryInfo("C:\Sami")
		For Each x In D.GetFiles
			x.Attributes = IO.FileAttributes.Hidden
		Next

Sami is the name .net is the game

SamiKaraeen@hotmail.com

#8

مشكور اخي لقد حللت لي نصف المشكلة

لقد تم فعلا اخفاء كل المجلدات ونفس الشيء مع الملفات لكن

كيف نخفي المجلدات داخل المجلدات يعني بطريقة شجرية.

اخي اريد ان اوضح هدفي من هذا الكود

لقد دخل على كمبيوتري فيروس قام باخفاء كل الملفات والمجلدات

عند محاولة ازالة اشارة الـ Hidden عن المجلدات والملفات وجدت الخيار

غير مفعل لقد جربت الكود الذي يزيل الـ Hidden عبر الفيجوال بيسك دوت نت

وقد نجح في ازالة خيار الـ Hidden عن الملفات والمجلدات ولكن اريد ان ازيل

خيار الـ Hidden عن كل الملفات والمجلدات دفعه واحده يعني كل المجلدات

والملفات الموجودة داخل بعضها البعض

#9

السلام عليكم,,,,

هذا الكود ممكن يفيدك.

 

Imports [color= #990000;]System[color= #339933;].IO

 

[color= #000000; font-weight: bold;]Public [color= #000000; font-weight: bold;]Class FileAttributesTest

    [color= #000000; font-weight: bold;]Public Shared Sub TestMain[color= #009900;]([color= #009900;])

        [color= #0000ff;]''مسار الملف او المجلد

        Dim path [color= #b1b100;]As String [color= #339933;]= [color= #0000ff;]"t1"

        HideFiles[color= #009900;](path[color= #009900;])

        [color= #0000ff;]'UnHideFiles(path)

 

[color= #0000ff;]    End Sub

 

[color= #0000ff;]    Public Shared Function GetFileSystemInfo(ByVal path As String) As FileSystemInfo

[color= #0000ff;]        If System.IO.Directory.Exists(path) Then

[color= #0000ff;]            Return New DirectoryInfo(path)

[color= #0000ff;]        ElseIf File.Exists(path) Then

[color= #0000ff;]            Return New FileInfo(path)

[color= #0000ff;]        End If

 

[color= #0000ff;]        Throw New Exception()

[color= #0000ff;]    End Function

 

 

 

[color= #0000ff;]    Public Shared Sub HideFile(ByVal f As FileSystemInfo)

[color= #0000ff;]        f.Attributes = f.Attributes Or FileAttributes.Hidden

[color= #0000ff;]    End Sub

 

[color= #0000ff;]    Public Shared Sub UnHideFile(ByVal f As FileSystemInfo)

[color= #0000ff;]        f.Attributes = f.Attributes And Not FileAttributes.Hidden

[color= #0000ff;]    End Sub

 

[color= #0000ff;]    Public Shared Sub HideFiles(ByVal path As String)

[color= #0000ff;]        HideFiles(GetFileSystemInfo(path))

[color= #0000ff;]    End Sub

 

[color= #0000ff;]    Public Shared Sub HideFiles(ByVal fs As FileSystemInfo)

[color= #0000ff;]        HideFile(fs)

 

[color= #0000ff;]        Dim d As DirectoryInfo = TryCast(fs, DirectoryInfo)

[color= #0000ff;]        If d IsNot Nothing Then

[color= #0000ff;]            For Each x As FileSystemInfo In d.GetFileSystemInfos()

[color= #0000ff;]                HideFiles(x)

[color= #0000ff;]            Next

[color= #0000ff;]        End If

 

[color= #0000ff;]    End Sub

 

 

[color= #0000ff;]    Public Shared Sub UnHideFiles(ByVal path As String)

[color= #0000ff;]        UnHideFiles(GetFileSystemInfo(path))

[color= #0000ff;]    End Sub

 

[color= #0000ff;]    Public Shared Sub UnHideFiles(ByVal fs As FileSystemInfo)

[color= #0000ff;]        UnHideFile(fs)

 

[color= #0000ff;]        Dim d As DirectoryInfo = TryCast(fs, DirectoryInfo)

[color= #0000ff;]        If d IsNot Nothing Then

[color= #0000ff;]            For Each x As FileSystemInfo In d.GetFileSystemInfos()

[color= #0000ff;]                UnHideFiles(x)

[color= #0000ff;]            Next

[color= #0000ff;]        End If

 

[color= #0000ff;]    End Sub

 

[color= #0000ff;]End Class

[وسط]لا اله الا انت سبحانك انى كنت من الظالمين

[/وسط]

#10

اخي ممكن ترفقلي مثال

#11

السلام عليكم,,,

المثال موجود في الإجراء TestMain في الكود.

وعلى العموم علشان تخفي مجلد ومحتوياته نستدعي الأجراء HideFiles مع مسار المجلد مثلاً

HideFiles("C:\Test\")

وعلشان نزيل الأخفاء نستخدم الأجراء UnHideFiles بنفس الطريقة.

[وسط]لا اله الا انت سبحانك انى كنت من الظالمين

[/وسط]

#12

اخي الف الف الف .... شكر

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…