كيف اعمل فولدر، وكيف انقل ملف ، وكيف افتح ملف

هلا فيك اخي الحبيب

الاكود

:

Private Sub Command1_Click()

Name "c:\Autoexec.bat" As "D:\Autoexec.bat"

End Sub

:

Private Sub Command1_Click()

Name "c:\Autoexec.bat" As "D:\Autoexec.bat"

End Sub

:

Private Sub Command1_Click()

Print FileLen("c:\Autoexec.bat")

End Sub

:

Private Sub Command1_Click()

Kill ("C:\FileName.txt")

End Sub

:

Private Sub Command1_Click()

FileCopy "c:\Autoexec.bat", "d:\Autoexec.bat"

End Sub

:

Private Sub Command1_Click()

open "c:\FileName.txt" for append as #1

Print #1,"مرحبا هذا هو الملف الجديد"

Close #1

End Sub

:

Mkdir("New Folder")