با سلام خدمت همه ی دوستان عزیز
بنده دنبال یه برنامه که سی دی رام راشناخته و کلیه فایل ها و فولدر های درون آن را لیست گیری کرده
ودر قالب یه فایل متنی ذخیره کند میگردم اگه کسی از دوستهای عزیزم شبیه این برنامه رو داشت
بی زحمت ما رو هم بی نصیب نکند.
با سپاس از همه ی دوستان
شما میتونید از تابع Dir استفاده کنید و یه حلقه Do
پس از این کار و لیست تمام فایل ها با دستور Open
یه فایل باز کن و لیست رو تو فایل بنویس .
دوست عزیز ابتدا از قسمت References گزینه Microsoft Scripting Runtime را انتخاب کن :
کد:Private Sub Command1_Click()
Dim Fso As New FileSystemObject
Dim Drv As Drive
Dim Path As String
For Each Drv In Fso.Drives
If Drv.DriveType = CDRom Then
Path = Environ("windir") & "\system32\cmd.exe /c dir/s/b " & Drv.DriveLetter & ":\*.*" & " >c:\" & Drv.DriveLetter & ".txt"
Call Shell(Path, vbHide)
End If
Next Drv
Set Fso = Nothing
End Sub