텍스트파일의 제목을 리스트에 불러오기?!
일본드립
2024.11.13
예를들어
Gogoomas라는 폴더안에
Ryu.txt
Gogm.txt
Debu.txt
GamJ.txt
가 있을경우
리스트박스에
Ryu
Gogm
Debu
GamJ
이렇게 텍스트파일의 이름을 아이템으로 불러오는.. ㄷ
-
루리 2024-11-13
Dir1은 변수가 아니라 DirListBox의 약어 구요
소스에서 end는 쓸필요가 없는뎀
Dim i As Integer
Open App.Path & \\\목록.txt\ For Append As #1
For i = 0 To Dir1.ListCount - 1
List1.AddItem Right$(Dir1.List(i), InStr(StrReverse$(Dir1.List(i)), \\\\) - 1)
Print #1, List1.List(i)
N -
바다 2024-11-13
ㄴ 네 맞습니다 맞고요 (덧글 먹기의 시작)
-
루나 2024-11-13
ㄴ 네 맞습니다 맞고요
-
종달 2024-11-13
폴더명구하는건 아는데.... 응용
Option Explicit
Private Sub Form_Load()
Dir1.Path = App.Path
Dim i As Integer
Open App.Path & \\\목록.txt\ For Append As #1
For i = 0 To Dir1.ListCount - 1
List1.AddItem Right$(Dir1.List(i), InStr(StrReverse$(Dir1
번호 | 제 목 | 글쓴이 | 날짜 |
---|---|---|---|
2675930 | 작업관리자 차단 | 별빛 | 2024-11-22 |
2675901 | 숫자를 제외한 문자를 어떻게 나타내야될까요? | 진나 | 2024-11-22 |
2675871 | 거의마지막질문인데요 | 아메 | 2024-11-22 |
2675846 | 제가 완성햇는데요 ㅎ; | 거늘 | 2024-11-21 |
2675824 | 타이머. 프로그래스바 코드 질문입니다. (10) | 빛글 | 2024-11-21 |
2675798 | 이걸 머라고해야 할지모르지만 질문합니다 (2) | 리라 | 2024-11-21 |
2675772 | 구구단 함수 질문이요~! (1) | 테이 | 2024-11-21 |
2675746 | exe저장시 런타임53 에러 | 아픔이보여 | 2024-11-20 |
2675718 | ocx 설치법 | 달달한캔디 | 2024-11-20 |
2675630 | ""안에 큰따음표 넣기. | 터전 | 2024-11-19 |
2675519 | 컴파일 오류 ?? | 슬아라 | 2024-11-18 |
2675492 | 비베 수다 사이트채팅 접속방법 | 마법 | 2024-11-18 |
2675463 | ㅠㅠ;; | 지은 | 2024-11-18 |
2675434 | 타이머로 라벨바꾸는거 (2) | 대나무 | 2024-11-18 |
2675386 | 선형보간법 문의 | 나길 | 2024-11-17 |
2675328 | 프로세스 강제종료하는방법좀... (1) | 슬아라 | 2024-11-17 |
2675226 | 폼 관련 질문&버튼 관련질문 (7) | 한울 | 2024-11-16 |
2675194 | 파일 삭제 소스 (4) | AngelsTears | 2024-11-15 |
2675147 | 예기치 않은 오류 (2) | 촉촉한 초코칩 | 2024-11-15 |
2675124 | 혹시 수다 사이트에서 이벤트 기능 구현이 가능한지요.... (10) | Sweeety | 2024-11-15 |