两个小问题,请帮我解决

lingjiadong 2003-08-22 10:23:42

我有两个小问题
1. 我有个INI文件如下:
[game]
pp=
cc=
我该如何把pp和cc两个小字段都显示在list列表里
2. 怎么读取文件夹里所有文件的名字,而且用VB程序来实现建立文件夹与拷贝文件到里面去

请帮我回答,谢谢!

...全文

27 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

lingjiadong 2003-08-22

打赏
举报

谢谢各位，我自己翻了下书用ist.additem 解决了，而且试了一下李洪根的方法，现在有个问题就是buff返回的只有一行的值，比方说我的INI是
[game]
pp=
ss=
现在用你的方法buff的值可以返回pp，但ss没有返回来啊，请问怎么返回所有的值呢，也就是pp和ss...等等，是不是要用数组啊，谢谢帮我一下！

射天狼 2003-08-22

打赏
举报

List.AddItem "内容"

liul17 2003-08-22

打赏
举报

我来帮你吧，上面的代码改了一下(改成 list.additem sFile即可)

Private Sub Form_Load()
Dim bln As Boolean
'将F:\盘根目录下的所有文件和目录列出来
bln = AutoListFiles("f:\", "*.*")
End Sub

Private Function AutoListFiles(ByVal sDirName As String, ByVal FileFilter As String) As Boolean

On Error GoTo RF_ERROR

Dim sName As String, sFile As String, sExt As String
Dim sDirList() As String, iDirNum As Integer, I As Integer

'首先枚举所有文件
sFile = Dir(sDirName + FileFilter, vbNormal + vbArchive + vbHidden)
I = 1
Do While Len(sFile) > 0
sFile = UCase(Trim(sFile))
list.additem sFile
sFile = Dir '下一个文件
Loop
RF_EXIT:
AutoListFiles = True
Set xlApp = Nothing
Exit Function
RF_ERROR:
MsgBox Err.Description, vbCritical, ""
Resume RF_EXIT
End Function

lihonggen0 2003-08-22

打赏
举报

mkdir 建立文件夹

mkdir "c:\aaa"

FileCopy 拷贝文件
FileCopy "c:\a.mdb", "d:\bak.mdb"

lihonggen0 2003-08-22

打赏
举报

List1.AddItem "你的项目"
List1.AddItem "你的项目"

lingjiadong 2003-08-22

打赏
举报

非常谢谢,问题差不多解决了,现在是如何把debug.print的内容在listbox里显示出来,我用textbox显示可以,但现在必须用listbox,请问用什么属性啊,我用list.text和list.list好象都不行,请帮我把这个问题搞定掉,谢谢!

lihonggen0 2003-08-22

打赏
举报

Private Sub Form_Load()
Dim bln As Boolean
'将F:\盘根目录下的所有文件和目录列出来
bln = AutoListFiles("f:\", "*.*")
End Sub

Private Function AutoListFiles(ByVal sDirName As String, ByVal FileFilter As String) As Boolean

On Error GoTo RF_ERROR

Dim sName As String, sFile As String, sExt As String
Dim sDirList() As String, iDirNum As Integer, I As Integer

'首先枚举所有文件
sFile = Dir(sDirName + FileFilter, vbNormal + vbArchive + vbHidden)
I = 1
Do While Len(sFile) > 0
sFile = UCase(Trim(sFile))
Debug.Print sFile
sFile = Dir '下一个文件
Loop
RF_EXIT:
AutoListFiles = True
Set xlApp = Nothing
Exit Function
RF_ERROR:
MsgBox Err.Description, vbCritical, ""
Resume RF_EXIT
End Function

lihonggen0 2003-08-22

打赏
举报

建立与读取.ini文件

'请於form中放3个TextBox，一个CommandBox
Private Declare Function GetPrivateProfileString Lib "kernel32" _
Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, ByVal lpDefault As String, _
ByVal lpReturnedString As String, ByVal nSize As Long, _
ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" _
Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, ByVal lpString As Any, _
ByVal lpFileName As String) As Long

Private Sub Command1_Click()
Dim success As Long
success = WritePrivateProfileString("MyApp", "text1", Text1.Text, "c:\aa.ini")
'叁数一 Section Name
'叁数二於.ini中的项目
'叁数三项目的内容
'叁数四 .ini文件的名称
success = WritePrivateProfileString("MyApp", "text2", Text2.Text, "c:\aa.ini")
success = WritePrivateProfileString("MyApp2", "text3", Text3.Text, "c:\aa.ini")
End Sub

Private Sub Form_load()
Dim ret As Long
Dim buff As String
buff = String(255, 0)
ret = GetPrivateProfileString("Myapp", "text1", "text1", buff, 256, "c:\aa.ini")
'若.ini MyApp中无text1，则采用叁数三的值
Text1.Text = buff
buff = String(255, 0)
ret = GetPrivateProfileString("Myapp", "text2", "text2", buff, 256, "c:\aa.ini")
Text2.Text = buff
buff = String(255, 0)
ret = GetPrivateProfileString("Myapp2", "text3", "text3", buff, 256, "c:\aa.ini")
Text3.Text = buff
End Sub

lihonggen0 2003-08-22