Question

vb获取C盘根目录文件夹名并显示在text1中，求代码？？？

Answer 1

病情分析：
你好怀孕时可以通过检查人绒毛膜促性下激素测定的比较准确
指导意见：
你的检测值说明你确实是怀孕了，有足够的激素来维持胎儿的发育，

病情分析：
妊娠不同时期以及各孕妇之间血清HCG绝对值变化很大，既人同人是不相同的，没有可比性，只可自身比较。　　　　一般非孕妇女：血HCG(8-32)×104IU/L（清晨尿HCG水平最高，接近血清水平）。　　正常妊娠期间血清HCG水平：妊娠周数HCG（IU/L）0.2-1周5-501-2周50-5002-3周100-50003-4周500-100004-5周1000-500005-6周10000-1000006-8周15000-2000002-3月10000-100000[编辑本段]孕酮与HCG正常值下面是怀孕期间孕酮与HCG正常值的列表，请姐妹们注意单位统一。特别说明的是：mIU与mU是一样的，（MIU中间的I是国际单位的意思）。1u/ml=1000mu/ml=1000mIU/ml孕酮（P）测定时间标本旧制单位正常值旧→新系数法定单位正常值新→旧系数卵泡期血0。2～0。6ng/ml3。180。6～1。9nmol/L0。3145黄体期血6。5～32。2ng/ml3。1820。7～102。4nmol/L0。3145孕7周血24。5±7。6ng/ml3。1276。4±23。7nmol/L0。32孕8周血28。6±7。9ng/ml3。1276。4±23。7nmol/L0。32卵泡期血24。5±7。6ng/ml3。1289。2±24。6nmol/L0。32孕9～12周血38。0±13。0ng/ml3。12118。6±40。6nmol/L0。32孕13～16周血45。5±14。0ng/ml3。12142。0±43。7nmol/L0。32孕17～20周血63。3±14。0ng/ml3。12197。5±43。7nmol/L0。32孕21～24周血110。9±35。7ng/ml3。12346。0±111。4nmol/L0。32孕25～34周血165。3±35。7ng/ml3。12514。8±111。4nmol/L0。32孕35周血202。0±47。0ng/ml3。12630。2±146。6nmol/L0。32绝经期血100U/L1孕40天血>2000mU/ml1>2000U/L1孕10周血50～100U/ml150～100kU/L1孕14周血10～20U/ml110～20kU/L1滋养细胞疾病血>100U/ml1>100kU/L1
指导意见：
绒毛膜促性腺激素流产诊断与治疗：不完全流产如子宫内尚有胎盘组织残存，HCG检查仍可呈阳性；完全流主或死胎时HCG由阳性转阴性，因此可作为保胎或吸宫治疗的参考依据。先兆流产：如尿中HCG仍维持高水平多不会发生难免流产。如HCG在2500IU/L以下，并逐渐下降，则有流产的或死胎的可能，当降至600IU/L则难免流产。在保胎治疗中，如HCG仍继续下降说明保胎无效，如HCG不断上升，说明保胎成功。

孕酮

女性妊娠中：怀孕7～13周32.6～139.9nmol/L怀孕14～37周62.0～262.4nmol/L，怀孕30～42周206.7～728.2nmol/L。

增高：怀孕9～32周时显著增高可达正常人的10～100倍，怀双胞胎的水平比怀单胎高。脂质性卵巢瘤黄体囊肿、葡萄胎及绒毛膜上皮细胞癌病人均见孕酮增高。建议看看医生

病情分析：
怀孕37天没什么异常不建议查各种指标
指导意见：
血：人绒毛膜促性腺激素值>5000IU/L，孕酮被称为“孕激素”，它是维持妊娠所必需的血：24.5±7.6ng/ml。孕酮低会导致流产
医生询问：
数值单位？

Answer 2

1、使用dir()函数进行操作可得。

2、vb6示例：（在窗体上，添加text1,设置多行属性为真,添加command1)

Private Sub Command1_Click()
 Dim MyPath As String, MyName As String, tmpPath As String
 
 ' 显示 C:\ 目录下的名称。
 MyPath = "c:\"   ' 指定路径。
 MyName = Dir(MyPath, vbDirectory)   ' 找寻第一项。
 Do While MyName <> ""   ' 开始循环。
    ' 跳过当前的目录及上层目录。
    If MyName <> "." And MyName <> ".." Then
       ' 使用位比较来确定 MyName 代表一目录。
       If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
          tmpPath = tmpPath & MyName & "," ' 如果它是一个目录，保存下来
       End If
    End If
    MyName = Dir   ' 查找下一个目录。
 Loop
  
 Text1.Text = Left(tmpPath, Len(tmpPath) - 1)

End Sub

Answer 3

将Text1设置成多行属性，代码如下：
' 显示 C:\ 目录下的名称。
Dim MyDirectory As String
MyDirectory = ""

Dim MyPath As String
Dim MyDirectoryName As String

MyPath = "C:\" ' 指定路径。
MyDirectoryName = Dir(MyPath, vbDirectory) ' 找寻第一项。
Do While MyDirectoryName <> "" ' 开始循环。
' 跳过当前的目录及上层目录。
If MyDirectoryName <> "." And MyDirectoryName <> ".." Then
' 使用位比较来确定 MyName 代表一目录。
If (GetAttr(MyPath & MyDirectoryName) And vbDirectory) = vbDirectory Then
MyDirectory = MyDirectory & MyDirectoryName & vbCrLf
End If

End If
MyDirectoryName = Dir ' 查找下一个目录。
Loop

Text1.Text = MyDirectory