자세한 VB 코드를 알려주세요!

Private Sub Form_Load()

Form1.Visible = False

For i = 1 To 20#

"c:\ 열기 \당신은 이상한 사람에게 장난을 쳤습니다. 바보입니까! " CStr(i) ".txt" For Random As 1

Open "d:\\당신은 이상한 사람에게 장난을 당했습니다. 당신은 바보입니까? ! " CStr(i) ".txt" 무작위로 2

열기 "e:\\당신은 이상한 사람에게 장난을 당했습니다. 당신은 바보입니다!" CStr(i) ".txt" 무작위로 3으로

1번 닫기

2번 닫기

3번 닫기

다음

하위 끝

실행 후 c, d, e에는 각 드라이브 문자 아래에 20개의 파일이 생성됩니다. 다른 드라이브 문자가 있는 경우

직접 추가할 수 있습니다.

하드디스크 삭제는 쉽습니다~삭제만 하시면 됩니다