Uipath基础——流程控制1

最新推荐文章于 2023-03-11 17:36:52 发布

神奇的VBA

最新推荐文章于 2023-03-11 17:36:52 发布

阅读量867

点赞数

分类专栏： Uipath学习文章标签： VB Uipath

本文链接：https://blog.csdn.net/u012450095/article/details/102174851

版权

Uipath学习专栏收录该内容

2 篇文章 0 订阅

订阅专栏

Uipath基础——流程控制1

If 判断

在这里插入图片描述
变量intInput是定义来接受输入对话框的输出的
对应的VB代码:

    Sub GeussNum()
        Dim intInput As Integer = CInt(InputBox("请输入一个数字", "输入提示："))
        If intInput > 10 Then
            Debug.Print("Biger Than 10")
        Else
            Debug.Print("Not Biger Than 10")
        End If
    End Sub

For Each 循环

在这里插入图片描述

在选择文件夹这个Activety中，在输出选项中定义变量strPath来接收用户选择的文件夹路径
FileList定义为Array (Of String) 。FileList = Dictionary.Getfiles(strPath)
VB代码

    ''' <summary>
    ''' 
    ''' </summary>
    ''' <param name="Describe">描述、提示</param>
    ''' <param name="ShowNewFolder">是否允许选择时新建文件夹</param>
    ''' <returns>路径</returns>
    Private Function SelectFolder(ByVal Describe As String, Optional ByVal ShowNewFolder As Boolean = True) As String
        'Using无论是否主动释放变量，程序结束后都会释放,窗口控件不一定要在控件上使用，System.Windows.Forms命名控件中有更多关于Dilog的方法
        Using folderDialog As New System.Windows.Forms.FolderBrowserDialog()
            folderDialog.Description = Describe
            folderDialog.ShowNewFolderButton = ShowNewFolder
            folderDialog.ShowDialog()
            Return folderDialog.SelectedPath
        End Using
    End Function
    Sub GetFiles()
        Dim Filelist() As String = System.IO.Directory.GetFiles(SelectFolder("请选择一个文件夹", False))
        For Each file In Filelist
            Debug.Print(file.ToString)
        Next
    End Sub